△△TreeView简单显示数据表问题？？？△△

 
   
        数据表为table,有三个字段分别为sfz,name,sex   要在treeview中第一级中列出表table中所有不同  
  的sfz(身份证字段)，然后在点击该身份证号，在该级的下一级显示同级树形显示该身份证号对应  
  的name(姓名),sex(性别)。请问详细代码应怎样写？？  
  数据控件为ADOQuery1  
  问题点数：10、回复次数：2Top

1 楼lencon（深秋叙）回复于 2005-04-25 16:07:56 得分 10

ADOQuery1.Open;             //列表程序  
      no:=TR.Items.Add(NIL,'所有人员');  
      WHILE   NOT   ADOQUERY1.Eof   DO  
      BEGIN  
          SUB:=TR.Items.AddChildObject(no,'【'+TRIM(ADOQUERY1.FieldValues['SFZ'])+'】',nil);  
          ADOQUERY1.Next;  
      END;  
      ADOQUERY1.Close;  
   
  其他道理一样,供参考  
  Top

2 楼eyusir（kilter）回复于 2005-04-25 18:55:37 得分 0

var   i:integer;  
  with   adoquery1   do  
  begin  
      open;  
      first;  
      while   not   eof   do  
      begin    
          treeview1.item.add(treeview1.TopItem,fieldbyname('sfz').asstring);  
          i:=   treeview1.item.count   -1;  
          treeview1.item.add(treeview.item.item[i],fieldbyname('name').asstring);  
          treeview1.item.add(treeview.item.item[i],fieldbyname('sex').asstring);  
          next;  
      end;  
  end;Top

相关问题

• treeview
• adoquery
• sfz
• fieldbyname
• asstring
• 身份证
• sex
• item
• add

• 帖主：lantianhf
• lencon

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