求救.数据库表和dbcombobox关连的问题.

Question

ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
DBComboBox1.Items.Clear;
ADOQuery1.SQL.Add('Select Distinct Field1 From myTable');
ADOQuery1.Active:=True;
while Not ADOQuery1.Eof do
begin
  DBComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
  ADOQuery1.Next;
end;
//对于其它如Query等也照此办理。

Answer 1

可以写一个函数如:FillCB(CB:TComboBox;FieldName,SQLString:String)来加载

Answer 2

DBComboBox1.Items.Clear;
while Not table1.Eof do
begin
  if ansicomparetext(dbcombobox(i).text,table1.fieldbyname('xx').asstring)<>0 then  //以string类型为例
  begin
DBComboBox1.Items.Add(table1.fieldbyname('xx').asstring);
  table11.Next;
 end
else
table1.next;
 continue; 
end; 
 
 

Answer 3

只要写个LookUp字段就可以直接生成所要的东东