如何实现即时更新ListView显示内容!

Question

用LISTVIEW显示表1的信息LISTVIEW的显示如下
ID  编号  姓名
1    01   员工1
2    02   员工2现在修改员工1为张三ListView里如何实现即时更新数据??

Answer 1

我想修改数据后,就更新LISTVIEW.

Answer 2

如果那个ID为Caption;
////
var
  ChangedItem: TListItem;
  nIndex: integer;
begin
   for nIndex := 0 to ListView1.Items.Count - 1 do
   begin
      if '1' = ListView1.Items.Caption then
      begin
        ChangedItem := ListView1.Items.Item[nIndex];
        break;
      end;
      ChangedItem.SubItems.Strings[2] := '张三';
   end;
end;

Answer 3

修改数据后,我运行如下程序.但ListView没有得到即时更新
fEdit:
     begin
       gSql  := 'select * from GK WHERE (编号='+QuotedStr(ph)+') and (月份= '+QuotedStr(mo)+')';
       gOpenQuery(gsql);
       gQu.Last;
       ShouHuoJiLuID := gqu.fieldbyname('ID').AsInteger;
       lvItem         := ListView1.Selected;
        lvItem.Data    := pointer(ShouHuoJiLuID);
    lvItem.Caption := gqu.fieldbyname('ID').AsString;
    lvItem.SubItems.Add(gqu.fieldbyname('编号').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('姓名').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('缸号').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('款式').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('颜色').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('尺码').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('发货日期').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('发货数量').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('发货重量').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('收货日期').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('收货数量').AsString);
    lvItem.SubItems.Add(gqu.fieldbyname('收货重量').AsString);
     end; 

Answer 4

修改完发送一个完成消息通知listview，然后listview更新数据库信息

Answer 5

不要用SubItems.Add,这样会加入一个新的子结点，而这个新的子结点在listview的标题栏里没有相应的列，所以也不会显示出来。
应该改成
lvItem.SubItems.Strings[0] := gqu.fieldbyname('编号').AsString;
lvItem.SubItems.Strings[1] := gqu.fieldbyname('姓名').AsString;
......