DBCombobox显示的数据不见了
DBCombobx的,我在那个控件里添加了代码,主要功能就是将数据库中满足条件的数据加到控件的组合框中,现在是下拉目录有了,点击数据也能在DBCombobox中显示,可是只要点击下一个DBCombobox或者其他地方,之前的那个DBCombobox显示的数据就不见了
各位大哥,这到底是怎么回事啊???
要怎么解决啊??
问题点数：40、回复次数：9Top
1 楼Rubi（浪迹Csdn各个板块!MS－Borland－IBM－SUN－水区－在去哪里呢？）回复于 2006-05-01 22:53:38 得分 0
代码呢？Top
2 楼josephvsfby12（）回复于 2006-05-01 23:45:41 得分 0
是啊,最好有代码
呵呵,我是新手来的,如果给出代码的话,希望能告诉我代码要插到哪里Top
3 楼lyq（阿飞）回复于 2006-05-02 11:09:46 得分 0
dbcombobox 的datasource dataset设置了吗Top
4 楼josephvsfby12（）回复于 2006-05-02 14:23:32 得分 0
设置好了,可是还不行Top
5 楼wudi_1982（向伴水学习|胃出血，住院中）回复于 2006-05-02 17:54:31 得分 0
把你的代码以及代码贴入的位置，贴出来看看。否则，基本是白说。Top
6 楼josephvsfby12（）回复于 2006-05-02 23:36:30 得分 0
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;Top
7 楼josephvsfby12（）回复于 2006-05-03 00:53:25 得分 0
现在DBCombobox能输入数据到数据库,可是每次输入的时候,DBGrid的第一条记录就会被新数据代替,显示的条数不变.可是数据库明明是增加了数据,这是怎么回事啊?Top
8 楼newfang（传说中的MIC）回复于 2006-05-03 14:46:03 得分 0
感觉你的DBCombobox和普通的COMBOBOX用法一样哦~~~不该这么麻烦吧!!Top
9 楼qq7118622（）回复于 2006-05-03 15:03:08 得分 0
这个是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;Top
