Question

delphi 如何在tdbcombobox中显示表中的某个字段里的内容??

Answer 1

这是delphi一贯的做法，向我以前用惯拿键了vfp，也很不适应。这段程序应该自己写。with
dm.ADOQuery1
do
begin
active:=false;
sql.Clear;
sql.Add('select
id
from
table1);
open;
if
RecordCount>0
then
begin
first;
for
i0
to
RecordCount-1
do
begin
str:=Fields.Fields
.Value;
dbcombobox1.Items.add(str);
Next;
end;
end;end;str为字符型洞敏兆，在var
中定义var
str:string;这样做之后，如果数据源也指定，在程序中dbcombobox1既可以显示当前的字段的值，也可纳租以运行时下拉有其他的纪录