2,497
社区成员
发帖
与我相关
我的任务
分享请高手帮我看看问题出在哪里？
Query1.SQL.Clear;
Query1.sql.Add('select distinct 日期 from 计划.db');
try
Query1.Open;
query1.First;
while not Query1.Eof do
begin
cxtreeview1.Items.Addchild(nil,Query1.FieldByname('日期').AsString);
Query1.Next;
end;
except
close;
end;
为何只能添加第一个数据，似乎没有遍历？
Query1.sql.Add('select distinct 日期 from 计划.db');
try
Query1.Open;
query1.First;
while not Query1.Eof do
begin
cxtreeview1.Items.Addchild(nil,Query1.FieldByname('日期').AsString);
Query1.Next;
end;
except
close;
end;
为何只能添加第一个数据，似乎没有遍历？
...全文
请发表友善的回复…
发表回复
