【结】CheckBizTreeView获取部门项？？**

jianth2005

for i := 0 to  CheckBizTreeView1.Selected.StateIndex-1 do
     lID := lOrgUnit.ID;
     lName := lOrgUnit.DisplayName;

这个lName部门,怎么判断获取第i项?

atiger

啥意思，没有理解，你不是在循环 CheckBizTreeView1.Selected.StateIndex，获取的可能是多个lName ，要判断获取第几项，怎么理解你的意思？能配上图说明一下吗？

jianth2005

我选择两项，就输出那两个被选中的部门
我用lOrgUnit.DisplayName 只能输出最后焦点的那一项
怎么获取那两个被选中的部门?

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=2620

SelectedNodes:所选的节点列表，多选时有效

jianth2005

var
  I: Integer;
  lBizNode: TBizNode;
  lBizNodes: TStringList;
begin
  lBizNodes := TStringList.Create;
  lBizNode := CheckBizTreeView1.SelectedNode;
  lBizNodes.AddObject(lBizNode.GUID, lBizNode);
  CheckBizTreeView1.BizTree.GetChildrenByFilter(lBizNode.GUID, lBizNodes, False, nil);

  for I := 0 to lBizNodes.Count - 1 do
  begin
    lBizNode := lBizNodes.Objects[I] as TBizNode;
    ListBox1.Items.Add(lBizNode.DisplayName);
  end;
end;
  编译错误
[错误] Incompatible types: "TBizObjectKinds" and "Void*"

jianth2005

??

atiger

楼主，你写的是啥啊，
参考：
http://bbs.justep.com/forum.php?mod=viewthread&tid=5221   8楼的代码

jianth2005

var
   i: integer;
   lNode: TBizNode;
begin
  for i := 0 to CheckBizTreeView1.SelectedNodes.Count - 1 do
  begin
    lNode := TBizNode(CheckBizTreeView1.SelectedNodes.Objects);
    dialogs.ShowMessage(lNode.DisplayName);
  end;
end;
我这样写应该没错吧?可是如3楼所示那样选择还是只能获取最后焦点所在位置的那一项.

atiger

知道了，CheckBizTreeView 继承自 BizTreeView，但没有实现SelectedNodes，所以这个控件要截获哪些节点选中，哪些没有选中，
方法一、每次点击，自己来记录选择节点，参考“业务模型\协同系统\任务\任务中心资源\事情常用过滤” 的 “cbtvDept” 这个控件的 OnClickCheck 事件
方法二、通过循环 CheckBizTreeView  这个控件的所有节点，判断节点的checked 属性是否为Ture，就可以了。参考http://bbs.justep.com/forum.php?mod=viewthread&tid=15210 14楼的例子

atiger

??