checkbiztreeview**

xhsoft

如图,为什么只显示,总经理,
想实现出完总经理,现显示副总经理,
var
   i: integer;
   lNode: TBizNode;
begin
  for i := 0 to OrgListView1.SelectedNodes.Count - 1 do
  begin
    lNode := TBizNode(OrgListView.SelectedNode.Objects);
    dialogs.ShowMessage(lNode.ID);
    dialogs.ShowMessage(lNode.DisplayName);
  end;
end;

Akon

你的那段代码不对,看17楼的代码,selectNode不是勾中的,而是选中那个结点,

Akon

你把17楼代码去掉试试,会报错不?

xhsoft

报的错,就是17楼的,

Akon

你跟踪一下那里报错了?

xhsoft

画黑色线处

jiahaiming

设置断点看看，画黑线处：
memo1.lines的值是什么？

xhsoft

jj

atiger

仅仅看 memo1.lines  这个值，在表达式中，把前面的BizTree.BizTreeStructure.FindNode 去掉

Akon

不好意思,找到原因了,原因是因为17楼的那段代码中Memo1.Lines.clear少了一个clear方法,这个方法我在其他地方写了,你把这个方法加上试试