combobox的问题(10分)

F

flyerer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #1

用query1.add('select * from ta');for i:=1 to query1.recordcount do 获得str1:=query1.fieldbyname('xm').asstring;向combobox.items.add(str1);插入数据时，
combobox什么也没有.

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #2

query1.add('select * from ta');
query1.open; //
for i:=1 to query1.recordcount do

 

W

wzs1208

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #3

表ta中有数据不?
query1.next;

 

D

defcjjava

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #4

推荐这样
Query1.First;
while not Query1.Eof then
begin
combobox.items.add(Query1.FieldByName('FieldName').asstring);
Query1.Next;
end;

 

F

flyerer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #5

有数据还很多，语句也不少就是combobox中不显示,怪异？

 

A

Airenzheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #6

给你一个建议，就是在调试是看不到结果，可以用Showmessage（）来跟踪你要的显示数据，defcjjava说得方法是最规范的了，不过前面加上
query1.sql.add('select * from ta');
query1.open;
可能你是在Query1.sql.add 这边出错

 

虻

虻椿橡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #7

Query1.First;
while not Query1.Eof do
begin
Combobox.Items.Add(Query1.FieldByName('Test').AsString);
Query1.Next;
end;

 

N

nankym

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #8

Query.First;
Query.Last;

Query1.First;
while not Query1.Eof then
begin
combobox.items.add(Query1.FieldByName('FieldName').asstring);
Query1.Next;
end;

这样就没问题了！

 

F

flyerer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #9

各位的都试了还是一片空白

 

N

nankym

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #10

我的方法也不行吗？我也碰到过这样的情况，你在查询出数据Open后加一个
Query1.First;
Query1.Last;
就没问题了呀！

 

F

flyerer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #11

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
str,str1:string;
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from D_YeWu');
query1.Open;

query1.First;
query1.Last;
query1.First;
while Query1.Eof do
begin
combobox1.items.add(Query1.FieldByName('XM').asstring);
Query1.Next;
end;
end;

end.
如上还是一片空白

 

C

cysmon77

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #12

应该是while not Query1.eof do啊！

 

F

flyerer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #13

多人接受答案了。