具体情况是这样的:
我创建了两个DBCOMBOBOX,
其中dbcombobox1和数据库中表A的字段a关联,当用户从dbcombobox1选择某值之后,
我写了一个sql语句:select b from A where a=dbcombobox2.text
即再从表A中选择a=dbcombobox1.text的字段b的值
然后在dbcombobox2中形成b的列表,供用户选择.现在问题是:
dbcombobox2中确实有满足条件的字段b的列表,可是当我下拉dbcombobox2进行点击选择之后,dbcombobox2中为空,点不上去.
着急!!!!!!!!!!!!
解决方案 »
- delphi做报表时出现如下问题,请大牛们看看哦
- 关于TCP传文件的一个疑惑?
- 怎么实现BDE的数据库 修改
- 急啊!怎么取得一个整形数组里面两个最大的数?
- 100分,一个简单的小问题请大家帮忙!
- delphi怎样写日志文件?就是我的串口每收到一次数据就写到文本文件里
- 利用TMediaplayer组件,打开一个avi文件 提示“无法使用视频,找不到‘vids:dvsd’解压缩程序”
- 用Delphi6里的自带的InstallShield-professional制作安装盘时,怎样加到开始菜单里,请详细说明,立即给分!
- 高手越来越少,我提的问题,竟没有人遇到过。给多少分恐怕也没人拿走!哎。。。
- 救命!如何实现四层结构的关联数据的录入,修改?????
- 潜水我猩猩们注意啦!!问问题搂 hehe^^
- 那里有XP风格样的位图down?? 在线等待..............
我创建了两个DBCOMBOBOX,
其中dbcombobox1和数据库中表A的字段a关联,当用户从dbcombobox1选择某值之后,
我写了一个sql语句:select b from A where a=dbcombobox1.text
即再从表A中选择a=dbcombobox1.text的字段b的值
然后在dbcombobox2中形成b的列表,供用户选择.procedure TForm1.DBComboBox2Change(Sender: TObject);
var str:string;
begin
dbcombobox1.Items.Clear;
query1.Close;
query1.SQL.Clear;
str:='select modelName from select_model where objectName='''+dbcombobox2.Text+'''';
query1.SQL.Append (str);
//query1.Active:=true;
query1.Open;
while not query1.Eof do begin DBComboBox1.Items.Add(query1.FieldByName('modelName').AsString);
query1.Next;end;现在问题是:
dbcombobox2中确实有满足条件的字段b的列表,可是当我下拉dbcombobox2进行点击选择之后,dbcombobox2中为空,点不上去.
着急!!!!!!!!!!!!
怎么是dbcombobox2
2 代码?dbcombobox2是怎么设置?
我以前也碰到过这个问题,改了就好了.
combobox比较好用.