一类
    0101-一类一组
  二类
    0201-二类一组
    0202-二类二组
   三类
   ......
能不能在单击treeview的一类的值为1。二类为2,三类为3。

解决方案 »

  1.   

    你可以设置它的tag,这个就是标志性的东西,对于一般开发人员的实质性的意义不大,他可以辅助作向上引用等。
    vInt := 1;
    for vIndex := 0 to TreeView1.Items.Count - 1 do
      if TreeView1.Items[vIndex].Level  = 0 then
      begin
        TreeView1.Items[vIndex].Tag := vInt;
        Inc(vInt);
      end;
      

  2.   

    你先用SQL语句将它们进行分组然后就可以添加到树里面了
      

  3.   

    有这个属性?TreeView1.Items[vIndex].Tag 
    我没找到!请教!
      

  4.   

    不行呀。TreeView1.Items[vIndex].Tag都没有看见这个线
      

  5.   

    能不能说得详细点,小弟第一次用delphi,是个低手来的。