procedure TForm1.ComboBox2DropDown(Sender: TObject);
var
i:integer;
begin
combobox1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT name as "名称" from product');
ADOQuery1.Open;
For i:=0 to ADOQuery1.RecordCount-1 do
begin
ComboBox2.Items.Add(ADOQuery1.FieldValues['名称']);
ADOQuery1.Next;
end;
ADOQuery1.First;
ComboBox2.Text:=ComboBox2.Items[0];
end;
其中PRODUCT数据库中有一样的NAME
不知道该如何去掉相同的,谁帮我解决一样啊,万分感激
var
i:integer;
begin
combobox1.Clear;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT name as "名称" from product');
ADOQuery1.Open;
For i:=0 to ADOQuery1.RecordCount-1 do
begin
ComboBox2.Items.Add(ADOQuery1.FieldValues['名称']);
ADOQuery1.Next;
end;
ADOQuery1.First;
ComboBox2.Text:=ComboBox2.Items[0];
end;
其中PRODUCT数据库中有一样的NAME
不知道该如何去掉相同的,谁帮我解决一样啊,万分感激
解决方案 »
- 中国这么多牛人就不信搞不定这问题【Delphi中如何通过封装flash控件使背景透明和实现使用流播放】【上次同样问题帖已结贴,分数都给啦!算是补上上次的!o(∩_∩)o...哈哈】
- 文件传输功能实现方法讨论
- 怎样将焦点移入DbGird控件中?
- 哪有 rxRichEdit For Delphi7 下载,在线等,谢谢了!
- 请教有关char与string!
- 私人项目,有意合作请进
- 怎么样判断一个文件是否存在?
- delphi 7的帮助文件问题
- 请教,我是Delphi新手,我该怎么学习呢?
- 给分了--简单问题--?????????????????
- 暂与大家分享,一个IT的摆摊之想(请勿见笑)
- 怎样写1G的文件,最后字节为F
SELECT distinct name as "名称" from product