关于listview的问题

表1:table1     字段:AA   ,BB,CC  
  要实现的功能：   把AA字段的值加到listview1.items形成第一列的同时把相应的BB,CC加到其后面形成第二列第三列，也就是说listview1.items的一行为一条记录。  
  各位大侠   小弟先谢过了  
  问题点数：20、回复次数：3Top

1 楼happyzsl（学习）回复于 2003-11-04 00:07:37 得分 10

var  
          ltTmp:   TListItem;  
  begin  
          listview1.items.clear;  
          ltTmp   :=   listview1.add;  
          ltTmp.caption   :=   table1.fieldbyname('aa').asstring;  
          ltTmp.subitem[0]   :=   table1.fieldbyname('bb').asstring;  
          ltTmp.subitem[1]   :=   table1.fieldbyname('cc').asstring;  
  end;Top

2 楼xingtao1016（秋水翁）回复于 2003-11-06 05:56:57 得分 0

var  
      ltTmp:   TListItem;  
  begin  
      query1.Active:=true;  
      query1.First;  
      listview1.items.clear;  
      while   not   query1.Eof   do  
      begin  
          ltTmp   :=   listview1.Items.Add;  
          ltTmp.caption   :=   query1.fieldbyname('aa').asstring;  
          ltTmp.SubItems.Add(query1.fieldbyname('bb').asstring)   ;  
          ltTmp.SubItems.Add(query1.fieldbyname('cc').asstring)   ;  
          query1.Next;  
      end;  
   
  end;  
  会了Top

3 楼delphiseabird（沙鸥）回复于 2003-11-06 08:29:20 得分 10

TreeView_list.Items[0].DeleteChildren;  
          with   ADOQuery_temp   do  
          begin  
              close;  
              SQL.Clear;  
              SQL.Add('select   *   from   hangye');  
              Open;  
          end;  
          for   i   :=   0   to   ADOQuery_temp.RecordCount   -   1   do  
          begin  
              node   :=   TreeView_list.Items.AddChild(TreeView_list.Items[0].Item[0].Item[1],   ADOQuery_temp.FieldByName('mingcheng').AsString);  
              node.ImageIndex   :=   1;  
              node.SelectedIndex   :=   1;  
              ADOQuery_temp.Next;  
          end;  
  Top

相关问题

• lttmp
• listview
• fieldbyname
• asstring
• subitems
• adoquery
• query
• item
• treeview
• aa

• 帖主：xingtao1016
• happyzsl
• delphiseabird

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载