var I: Integer; begin for I := 0 to TreeView1.Items.Count - 1 do if (TreeView1.Items[I].Level = 2) and (TreeView1.Items[I].Text = DBGrid1.DataSource.DataSet.FieldByName('姓名').AsString) and (TreeView1.Items[I].Parent.Text = DBGrid1.DataSource.DataSet.FieldByName('分类').AsString) then begin TreeView11.Selected := TreeView1.Items[I]; Break; end;end;
to rockhard(探索中...) 一般不会,因为我是通过NODE.INDEX和DBGRID.RECNO来设置的 zswang(伴水)(需要充充电) 还有没有更简单的方法?NODE.itemid和data属性怎么用,我看HELP不大明白! 因为我E文太差!
我的TREEVIEW就三层:我的通讯录--分类--姓名;每个人有一个ID(无重复).
我想我可以确定他的父节点,但怎么把NODE
我可以确定他的父节点,但怎么把NODEHE和ID对应起来?(姓名可能有重复);不象VB,NODE有一个'key'!
2:单击TREEVIEW中某人名字,在DBGRID中他的记录为选中!
是不是说可能会在DBGrid中找到多条记录??
I: Integer;
begin
for I := 0 to TreeView1.Items.Count - 1 do
if (TreeView1.Items[I].Level = 2) and
(TreeView1.Items[I].Text = DBGrid1.DataSource.DataSet.FieldByName('姓名').AsString) and
(TreeView1.Items[I].Parent.Text = DBGrid1.DataSource.DataSet.FieldByName('分类').AsString) then begin
TreeView11.Selected := TreeView1.Items[I];
Break;
end;end;
一般不会,因为我是通过NODE.INDEX和DBGRID.RECNO来设置的
zswang(伴水)(需要充充电)
还有没有更简单的方法?NODE.itemid和data属性怎么用,我看HELP不大明白!
因为我E文太差!