DBCombobox显示的数据不见了

Question

DBCombobx的,我在那个控件里添加了代码,主要功能就是将数据库中满足条件的数据加到控件的组合框中,现在是下拉目录有了,点击数据也能在DBCombobox中显示,可是只要点击下一个DBCombobox或者其他地方,之前的那个DBCombobox显示的数据就不见了
各位大哥,这到底是怎么回事啊???
要怎么解决啊??

Answer 1

dbcombobox 的datasource dataset设置了吗

Answer 2

procedure TForm3zonghe.FormShow(Sender: TObject);
 var
 sqlstrl:string;
 query:TADOQuery;
begin
 //sqlstrl:='select * from banji';    //显示当前班级信息
 //ADOQuery1.close;
 //ADOQuery1.SQL.Clear;
 //ADOQuery1.SQL.Text:=sqlstrl;
 //ADOQuery1.Open; DBCombobox1.Items.Clear;        //将班级信息加入组合框
 query:=TADOQuery.Create (self);
 query.ConnectionString:=ADOQuery1.ConnectionString;
 query.SQL.clear;
 sqlstrl:='select distinct ClassNo from banji';
 query.SQL.Text:=sqlstrl;
 query.open;
 query.first;
 while not Query.Eof do
 begin
   DBCombobox1.Items.Add(Query.FieldByName('ClassNo').asstring);
   query.Next;
 end;
 DBCombobox2.Items.Clear;        //将课件信息加入组合框
 query:=TADOQuery.Create (self);
 query.ConnectionString:=ADOQuery1.ConnectionString;
 query.SQL.clear;
 sqlstrl:='select distinct CName from Course';
 query.SQL.Text:=sqlstrl;
 query.open;
 query.first;
 while not Query.Eof do
 begin
   DBCombobox2.Items.Add(Query.FieldByName('CName').asstring);
   query.Next;
 end;end;

Answer 3

现在DBCombobox能输入数据到数据库,可是每次输入的时候,DBGrid的第一条记录就会被新数据代替,显示的条数不变.可是数据库明明是增加了数据,这是怎么回事啊?

Answer 4

感觉你的DBCombobox和普通的COMBOBOX用法一样哦~~~不该这么麻烦吧!!

Answer 5

这个是COMBOBOX的,你自己比一下看能不能.用到DBCOMBOBOX上VAR
I:integer;
begin
i:=0;
combobox2.clear;
query2.Close;
query2.SQL.Clear;
query2.sql.add('select distinct bm from bm');
query2.open;
 for i:=0 to query2.RecordCount-1 do
 begin
     combobox2.Items.add(query2.fieldbyname('bm').asstring);
     query2.Next;
 end;