|
共有评论27条
当前显示最后6条评论
|
| rsjd |
2005/1/8 22:34:17 |
请教，如果我想区别节点的区别，比如一些节点是可建下一节结点，另一些节点不能再建子结点，怎么处理？
就好比人事系统中的，部门可有子部门，但员工不能再有下一个部门或员工一样？
另外，是不是把它做成一个通过性的组件？就与数据库字段名无关了 |
| kingbill |
2005/3/25 0:37:07 |
| 根据我自己做的,除了用树型科目代码表示外,我还给树型科目规定了类型,有叶子型,就是直接可以添加到树上的,还有子树型,需要通过从数据库中提取一些相关数据,再添加到树上.综合型,就是即有叶子,也有子树的 |
| zlbpolly |
2005/4/9 17:13:49 |
您好！
为什么在一级节点是排序正常，但二级节点排序相反呢？有办法吗？ |
| gdxcj |
2005/12/26 10:23:09 |
| 在生成树的时候，我能不能只显示江苏大学及其子节点，我觉得能够选择性地进行显示比较好，不知道你能否做到这一点呢？如果我的PID为0的有好多的话，那就可能导致电脑死机，你认为呢？ |
| caryzheng |
2006/2/14 15:28:19 |
我是新手，学习中，谢谢了
不过当我把这个算法改到和SQL Server2000一起用时，添加节点时树的显示不大正确，不知道是为什么 |
| hotswin |
2008/4/21 9:45:52 |
請教一下，我的db有近千筆時
TreeUtil := TTreeUtils.Create(TreeView1, DM.Conn, 'Dir');
TreeUtil.FillTree;
執行時，又快速close form 關閉就會在這一行報錯
nNode := TV.Items.AddChildObject(Node, PNode^.Caption, PNode);
----------
procedure TTreeFill.AddTree(Node: TTreeNode; PN: PNodeData);
var Query: TADOQuery;
nNode: TTreeNode;
PNode: PNodeData;
begin
try
Query := TADOQuery.Create(nil);
Query.Connection := Conn;
Query.SQL.Text := 'Select * from ' + TableName + ' where ID>0 and ' + FieldPID + ' =' + IntToStr(PN^.Index)+' order by CAPTION';
if Query.Active then
Query.Close;
Query.Open;
while Query.Eof = False do
begin
New(PNode);
PNode^.Caption := Query.FieldByName(FieldCaption).AsString;
PNode^.Index := Query.FieldByName(FieldIndex).AsInteger;
nNode := TV.Items.AddChildObject(Node, PNode^.Caption, PNode);
^^^^^^^^^^
nNode.ImageIndex := 1;
nNode.SelectedIndex := 2;
AddTree(nNode, PNode);
Query.Next;
end;
finally
Query.Free;
end;
end; |
| 我要发表评论 |
查看全部评论 |
![]() |
|
