5,939
社区成员
发帖
与我相关
我的任务
分享关于dbcombobox控件的问题
procedure TForm1.FormCreate(Sender: TObject);
var
q1:tquery;
d1:tdatasource;
begin
q1:=tquery.Create(nil);
q1.DatabaseName:='*';
q1.Close;
q1.sql.Clear;
q1.SQL.Add('select .....');
q1.Open;
d1:=tdatasource.Create(nil);
d1.DataSet:=q1;
dbcombobox1.DataSource:=d1;
dbcombobox1.datafield:='*';
end;
用同样的代码如果换成dbgrid控件是可以显示记录的，为什么用dbcombobox控件在下拉条中却没有记录显示。
var
q1:tquery;
d1:tdatasource;
begin
q1:=tquery.Create(nil);
q1.DatabaseName:='*';
q1.Close;
q1.sql.Clear;
q1.SQL.Add('select .....');
q1.Open;
d1:=tdatasource.Create(nil);
d1.DataSet:=q1;
dbcombobox1.DataSource:=d1;
dbcombobox1.datafield:='*';
end;
用同样的代码如果换成dbgrid控件是可以显示记录的，为什么用dbcombobox控件在下拉条中却没有记录显示。
...全文
请发表友善的回复…
发表回复
zleeway 2003-04-26
- 打赏
- 举报
你要的效果是要用DBLookupComboBox实现的
zhoutian618 2003-04-26
- 打赏
- 举报
自己填出TComboBox.Items.
李_军 2003-04-26
- 打赏
- 举报
dbcombobox的下拉条中东西是手工加进去的，如果要他自动线是出来应该用DBListBox
