我是这样:
---------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
table1.Active :=false;
table1.Active :=true;
dbcombobox1.items.clear;
while not Table1.Eof do begin
DBComboBox1.Items.Add(Table1.FieldByName('dydj').AsString);
Table1.Next;
end;
end;procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
//edit1.Text :=dbcombobox1.text
edit1.text:=dbcombobox1.items.strings[dbcombobox1.itemindex];
end;
------------------------------
(因不想误改数据故将table1设为readonly)
在edit1中却无法显示我选的值。
---------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
table1.Active :=false;
table1.Active :=true;
dbcombobox1.items.clear;
while not Table1.Eof do begin
DBComboBox1.Items.Add(Table1.FieldByName('dydj').AsString);
Table1.Next;
end;
end;procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
//edit1.Text :=dbcombobox1.text
edit1.text:=dbcombobox1.items.strings[dbcombobox1.itemindex];
end;
------------------------------
(因不想误改数据故将table1设为readonly)
在edit1中却无法显示我选的值。
解决方案 »
- ActiveX多线程,浏览器并发访问,致未执行完成的程序,暂停执行!特急!!!!急!!!
- 一个很郁闷的问题,在线等答案!!!
- 关于table的问题
- 新问题:服务器打了微软的震荡波补丁后,发现其它机器不能方问该SQLSERVER了提示SQLSERVER服务器不存在
- 那里有圆形按钮组件下载?(在线)
- 高分请教两个query关联的问题。
- 关于数据库主键的问题?
- 请教一个 修改 表结构 的问题。。。。。。。。。。。。。
- 怎样压缩一个目录?我用的是delphi自带的压缩zlib
- 我看了一篇关于第三方控件的评测,说一个叫mwEdit的Editor类控件很好,谁知道在哪里可以下载?
- 使用query控件怎么调用存储过程?
- 求救(100分):如何窃取一端时间内,显示器上的变化,并把他保存为多媒体文件或电影文件
用TComboBox没有问题!
begin
try
FDataLink.UpdateRecord;
except
SelectAll;
SetFocus;
raise;
end;
inherited;
end;
找到问题了,这是控件的部分源码。
原因就是它未和数据源(如:TTable等等)连接。
当失去焦点的时候就会执行UpdateRecord.
DBComboBox1.Items.Add(Table1.FieldByName('dydj').AsString;
Table1.First;
ComboBox1.Clear;
while not Table1.eof do begin
ComboBox1.Items.Add(Table1.FieldByName('dydj').AsString);
Tabel1.Next;
end;在ComboBox1.OnChange事件中处理
那现在有两个问题不知如何解决?
1、如何从字段“dydj”取出所有不重复的记录。
我用的是:
query1.Close;
query1.sql.Clear;
query1.sql.Add('select distinct "dydj" from ttml.dbf');
query1.ExecSQL;
对吗?2、再把查询结果加入ComboBox1.Items里面,查询结果是什么类型的数据?
result:=query1.fields[0].value;
ComboBox1.Items.Add(query1.Fields[0].value)
好象不行!
还烦请各位点拨!
2. zzg40280614(northsky) 已经说得很清楚了,把table改为query就可以了
query1.Close;
query1.sql.Clear;
query1.sql.Add('select distinct "dydj" from ttml.dbf');
query1.open;query1.First;
ComboBox1.Clear;
while not query1.eof do begin
ComboBox1.Items.Add(query1.FieldByName('dydj').AsString);
query1.Next;
我刚学DELPHI
可以详细一点吗?
你先用databas连接数据源
再在select语句里给定数据库名,如“ttml.dbf".这样不行吗?
如果用ODBC事先设置的话,那不是就不能动态改变数据库了吗?!!
另,使用SQL语句就一定用query构件吗?