在添加数据后,如何更新里面的内容啊?
====================
初始化代码
====================
var i,j:integer;
ListItem: TListItem;
begin
ListView1.Columns.Clear;
ListView1.Items.Clear;
for i:=0 to ADOQuery1.FieldCount-1 do
begin
ListView1.Columns.Add;
ListView1.Columns.Items[i].Caption:=ADOQuery1.Fields[i].FieldName;
end;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
with ListView1.Items.Add do
begin
Caption:=ADOQuery1.Fields[0].AsString;
for j:=1 to ADOQuery1.FieldCount-1 do
SubItems.Add(ADOQuery1.Fields[j].AsString);
end;
ADOQuery1.Next;
end;
end;
====================
我现在的刷新就是再调用一下该代码,
但是应该用更好的方法
麻烦大家指导一下。。呵呵
====================
初始化代码
====================
var i,j:integer;
ListItem: TListItem;
begin
ListView1.Columns.Clear;
ListView1.Items.Clear;
for i:=0 to ADOQuery1.FieldCount-1 do
begin
ListView1.Columns.Add;
ListView1.Columns.Items[i].Caption:=ADOQuery1.Fields[i].FieldName;
end;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
with ListView1.Items.Add do
begin
Caption:=ADOQuery1.Fields[0].AsString;
for j:=1 to ADOQuery1.FieldCount-1 do
SubItems.Add(ADOQuery1.Fields[j].AsString);
end;
ADOQuery1.Next;
end;
end;
====================
我现在的刷新就是再调用一下该代码,
但是应该用更好的方法
麻烦大家指导一下。。呵呵
over
add
: