L
luckhacker
Unregistered / Unconfirmed
GUEST, unregistred user!
如何将表中的某个字段的内容读出并加入到combobox组件中？
L
linsb
Unregistered / Unconfirmed
GUEST, unregistred user!
ComboBox1.Items.clear;
with ComboBox1 do
with Table1 do
begin
open;
first;
while not eof do
begin
Items.add( fields[1].AsString);
next;
end;
close;
end;
with ComboBox1 do
with Table1 do
begin
open;
first;
while not eof do
begin
Items.add( fields[1].AsString);
next;
end;
close;
end;
M
mlzhou
Unregistered / Unconfirmed
GUEST, unregistred user!
ComboBox1.clear;
with adotable do
begin
open;
first;
while not eof do
begin
ComboBox1.Items.add( fieldbyname('aaa').asstring);
next;
end;
close;
end;
with adotable do
begin
open;
first;
while not eof do
begin
ComboBox1.Items.add( fieldbyname('aaa').asstring);
next;
end;
close;
end;
L
lemonloveyan
Unregistered / Unconfirmed
GUEST, unregistred user!
ComboBox1.Items.clear;
with ComboBox1 do
with Table1 do
begin
open;
first;
//可以提示 fieldNO:=你想输出的字段序列0。。fieldcount-1 之间
for i:=0 to recordcount-1 do
begin
Items.add( fields[fieldNO].AsString);
next;
end;
close;
end;
with ComboBox1 do
with Table1 do
begin
open;
first;
//可以提示 fieldNO:=你想输出的字段序列0。。fieldcount-1 之间
for i:=0 to recordcount-1 do
begin
Items.add( fields[fieldNO].AsString);
next;
end;
close;
end;
H
hurryman
Unregistered / Unconfirmed
GUEST, unregistred user!
哦，来晚了，给你一份看的很清楚的。procedure ThwglForm.ComboBox1DropDown(Sender: TObject);
begin
combobox1.Items.Clear ;
if not (utdatamoule.DataModule2.hwglcADODataSet.Active) then
utdatamoule.DataModule2.hwglcADODataSet.Active :=true;
try
utdatamoule.DataModule2.hwglpzADODataSet.Close;
utdatamoule.DataModule2.hwglpzADODataSet.CommandText:='select distinct pzbh from cjpz' ;
utdatamoule.DataModule2.hwglpzADODataSet.Open;
while not (utdatamoule.DataModule2.hwglpzADODataSet.Eof) do
begin
combobox1.Items.Add(utdatamoule.DataModule2.hwglpzADODataSet.fieldbyname('pzbh').AsString );
utdatamoule.DataModule2.hwglpzADODataSet.Next ;
end;
finally
utdatamoule.DataModule2.hwglpzADODataSet.Close;
utdatamoule.DataModule2.hwglpzADODataSet.CommandText:='select pzbh, pz,cjbh from CJPZ';
utdatamoule.DataModule2.hwglpzADODataSet.Open;
end;
end;
begin
combobox1.Items.Clear ;
if not (utdatamoule.DataModule2.hwglcADODataSet.Active) then
utdatamoule.DataModule2.hwglcADODataSet.Active :=true;
try
utdatamoule.DataModule2.hwglpzADODataSet.Close;
utdatamoule.DataModule2.hwglpzADODataSet.CommandText:='select distinct pzbh from cjpz' ;
utdatamoule.DataModule2.hwglpzADODataSet.Open;
while not (utdatamoule.DataModule2.hwglpzADODataSet.Eof) do
begin
combobox1.Items.Add(utdatamoule.DataModule2.hwglpzADODataSet.fieldbyname('pzbh').AsString );
utdatamoule.DataModule2.hwglpzADODataSet.Next ;
end;
finally
utdatamoule.DataModule2.hwglpzADODataSet.Close;
utdatamoule.DataModule2.hwglpzADODataSet.CommandText:='select pzbh, pz,cjbh from CJPZ';
utdatamoule.DataModule2.hwglpzADODataSet.Open;
end;
end;
W
w.th
Unregistered / Unconfirmed
GUEST, unregistred user!
ComboBox1.Items.Add(table1.fields[1].AsString);
风
风神
Unregistered / Unconfirmed
GUEST, unregistred user!
Table1.Open;
table1.first;
combobox1.items.clear;
for i:=0 to table1.recordcount-1 do
begin
combobox1.items.add(table1.fields[1].asstring);
table1.next;
end
table1.first;
combobox1.items.clear;
for i:=0 to table1.recordcount-1 do
begin
combobox1.items.add(table1.fields[1].asstring);
table1.next;
end
T
twos
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，这些都好用的
怎么会连这样的问题都要问呢，这应该很常用的
怎么会连这样的问题都要问呢，这应该很常用的
N
naughtboy
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么不用dblookupcombobox呢，只要设置几个属性就行了，更简单
W
w.th
Unregistered / Unconfirmed
GUEST, unregistred user!
while not eof do
begin
ComboBox1.Items.add( fieldbyname('aaa').asstring);
next;
end;
begin
ComboBox1.Items.add( fieldbyname('aaa').asstring);
next;
end;
L
lb_icesea79
Unregistered / Unconfirmed
GUEST, unregistred user!
ComboBox1.clear;
with adotable do
begin
open;
first;
while not eof do
begin
ComboBox1.Items.add( fieldbyname('aaa').asstring);
next;
end;
close;
end;
风
风中的狼
Unregistered / Unconfirmed
GUEST, unregistred user!
ComBoBox1.Items.BeginUpdate;
ComboBox1.Items.Clear;
While Not Query1.Eof Do
Begin
If
ComBoBox1.Items.IndexOf(Query1.FieldByName('AAA').AsString)=-1
Then
ComBoBox1.Items.Add(Query1.FieldByName('AAA').AsString);
Query1.Next;
End;
ComboBox1.Items.EndUpDate;
这样写有两个好处，一是在数抿量很大时能加快显示速度。二是如果数据有重复时保证
ComboBox1.Items内添加的是唯一值，不会出现重复记录～～～
ComboBox1.Items.Clear;
While Not Query1.Eof Do
Begin
If
ComBoBox1.Items.IndexOf(Query1.FieldByName('AAA').AsString)=-1
Then
ComBoBox1.Items.Add(Query1.FieldByName('AAA').AsString);
Query1.Next;
End;
ComboBox1.Items.EndUpDate;
这样写有两个好处，一是在数抿量很大时能加快显示速度。二是如果数据有重复时保证
ComboBox1.Items内添加的是唯一值，不会出现重复记录～～～
J
jobsxy
Unregistered / Unconfirmed
GUEST, unregistred user!
请教楼上几位大侠一个问题：
ComboBox1.Items.Clear;
ComboBox1.Clear;
它们之间有什么区别吗？
ComboBox1.Items.Clear;
ComboBox1.Clear;
它们之间有什么区别吗？
F
foxdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
关注
F
flying_ysh
Unregistered / Unconfirmed
GUEST, unregistred user!
用dblookupcombobox
L
Laird
Unregistered / Unconfirmed
GUEST, unregistred user!
[]select aaa from B group by aaa
可以去掉重复的数据。
]select aaa from B group by aaa可以去掉重复的数据。
L
luckhacker
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
