如何让combobox显示的是另一个表中的数据项？求教
combobox的下拉菜单中希望能够选择的是另一个表中的数据项 ，这该怎么实现？ 问题点数：50、回复次数：6Top
1 楼joky1981（共享）回复于 2003-09-02 04:46:19 得分 10
可以重新创建一个数据集
procedure UpdateComboBox(MyComboBox: TCustomComboBox; MyADODataSet: TADODataSet;
MyFieldName, SQLStr: String);
begin
MyComboBox.Clear;
MyADODataSet.Close;
MyADODataSet.CommandText:= SQLStr;
MyADODataSet.Open;
MyADODataSet.First;
While not MyADODataSet.Eof do
begin
MyComboBox.Items.Add(MyADODataSet.FieldValues[MyFieldName]);
MyADODataSet.Next;
end;
end;Top
2 楼jpyc（九品-沉默）回复于 2003-09-02 07:29:20 得分 0
look,不用什么代码：
http://218.56.11.178:8020/web/index.aspx
-》下载基地-》例程-数据库/报表-》在DBGRID中下拉列表的显示Top
3 楼cow8063（天涯远不远？不远！人在天涯，天涯怎会远）回复于 2003-09-02 08:15:02 得分 10
while not eof
combox2.items.add(fieldbyname('field').asstring);
next;
end;Top
4 楼tjff2000（fengyun）回复于 2003-09-02 08:19:58 得分 10
with Table1 do
begin
first;
while not eof do
combobox1.items.add(fieldbyname('yourfield').asstring);
next;
end;
end;Top
5 楼seawavefj（@_@）回复于 2003-09-02 08:24:33 得分 10
with ADOQuery do
begin
first;
while not eof do
combobox1.items.add(fieldbyname('yourfield').asstring);
next;
end;
end;
Top
6 楼long102（龙102）回复于 2003-09-02 08:56:51 得分 10
ADODATASET1.CLOSE;
ADODATASET1.COMMANDTEXT:='SELECT * FROM B11';
ADODATASET1.OPEN;
with ADODATASET1 do
begin
first;
while not eof do
combobox1.items.add(fieldbyname('yourfield').asstring);
next;
end;
end;
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
