不明白，有没有人知道？

[xly371]

with DataModule1.Q do
begin
sql.Clear;
SQL.Add('select * from "temp.db"');
while not eof do
begin
with listview1.Items.Add do
begin
caption:=FieldByName('编码').AsString ;
subitems.add(FieldByName('菜名').AsString);
subitems.add(FieldByName('单位').AsString);
subitems.add(FieldByName('单价').AsString);
end;
next;
end;
open;
end;
这样写可是listview没有东东

[空中居士]

同意楼上说的，先open 才能操作

[hejianling305]

对。要先OPEN的。

[hejianling305]

用完之后要CLOSE;

[47522341]

如果是作为一个独立过程的话最好要在添加之前先将listview中的东东给清除了，^_^

[47522341]

建议写成如下代码；
with DataModule1.Q do
begin
if active then close;
sql.Clear;
SQL.Add('select * from "temp.db"');
open;
listview1.clear;
while not eof do
begin
with listview1.Items.Add do
begin
caption:=FieldByName('编码').AsString ;
subitems.add(FieldByName('菜名').AsString);
subitems.add(FieldByName('单位').AsString);
subitems.add(FieldByName('单价').AsString);
end;
next;
end;
end;

[vpoor]

with DataModule1.Q do
begin
sql.Clear;
SQL.Add('select * from "temp.db"');
open;
while not eof do
begin
with listview1.Items.Add do
begin
caption:=FieldByName('编码').AsString ;
subitems.add(FieldByName('菜名').AsString);
subitems.add(FieldByName('单位').AsString);
subitems.add(FieldByName('单价').AsString);
end;
next;
end;

end;