A
azheng
Unregistered / Unconfirmed
GUEST, unregistred user!
请教！memo1.text :=query1.fieldbyname('name').asstring;只显一个查询,而查询结果是多个,如何全部显示? (100分)<br />请教！memo1.text :=query1.fieldbyname('name').asstring;只显一个查询,而查询结果是多个,如何全部显示?
老
老赵
Unregistered / Unconfirmed
GUEST, unregistred user!
循环,add加入.
A
azheng
Unregistered / Unconfirmed
GUEST, unregistred user!
如何做？
B
bluerain
Unregistered / Unconfirmed
GUEST, unregistred user!
memo1.clear;
while not query1.eof do
begin
memo1.lines.add(query1.fieldbyname('name').asstring);
next;
end;
while not query1.eof do
begin
memo1.lines.add(query1.fieldbyname('name').asstring);
next;
end;
任
任我行_zq
Unregistered / Unconfirmed
GUEST, unregistred user!
with query1 do
begin
Fisrt;
While Not Eof do
Begin
Memo1.lines.add(fieldbyname('Name').Asstring);
next;
end;
end;
begin
Fisrt;
While Not Eof do
Begin
Memo1.lines.add(fieldbyname('Name').Asstring);
next;
end;
end;
A
azheng
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
memo1.clear;
while not query1.eof do
begin
memo1.lines.add(query1.fieldbyname('namechr').asstring);
next;
end;
end;
end.
实验失败！
begin
memo1.clear;
while not query1.eof do
begin
memo1.lines.add(query1.fieldbyname('namechr').asstring);
next;
end;
end;
end.
实验失败！
老
老赵
Unregistered / Unconfirmed
GUEST, unregistred user!
不能吧??
改为
memo1.text:=memo1.text+query1.fieldbyname('namechr').asstring+chr(0)+chr(13);
试试.
改为
memo1.text:=memo1.text+query1.fieldbyname('namechr').asstring+chr(0)+chr(13);
试试.
K
kevincsg
Unregistered / Unconfirmed
GUEST, unregistred user!
memo1.clear;
while not query1.eof do
begin
memo1.lines.add(query1.fieldbyname('name').asstring)+#13+#10; (这样好看点)[
]
query1.next;
end;
while not query1.eof do
begin
memo1.lines.add(query1.fieldbyname('name').asstring)+#13+#10; (这样好看点)[
]query1.next;
end;
A
azheng
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
with query1 do
begin
Fisrt;
While Not Eof do
Begin
Memo1.lines.add(fieldbyname('Namechr').Asstring);
next;
end;
end;
end.
实验失败！没说明：fisrt
begin
with query1 do
begin
Fisrt;
While Not Eof do
Begin
Memo1.lines.add(fieldbyname('Namechr').Asstring);
next;
end;
end;
end.
实验失败！没说明：fisrt
X
xygz
Unregistered / Unconfirmed
GUEST, unregistred user!
WK:
fisrt...!!!#@$%...!
fisrt...!!!#@$%...!
A
azheng
Unregistered / Unconfirmed
GUEST, unregistred user!
对不起！我的错，谢谢大家！