【结】[问题]如何能实现这样的统计结果？**

atiger

好，最后不管结果如何，都请跟帖告知

songyun

还是没有能解决。
我用CheckTreeView想直接获取数据表中所有的部门，看来看去，都很是糊涂。

atiger

那从 CheckTreeView 获取到的是啥呢？把结果告知一下
并告知你的物理表对于这个过滤的字段存储的是啥呢？

songyun

不好意思，跟贴速度太慢。
1、根据您给的帖子链接，用 CheckTreeView去取得组织机构下的部门。可是链接里的内容，连来连去的。
2、过滤的字段如：行政部、软件部都是存储在物理表下的‘部门’字段里。

atiger

请你把 对CheckTreeView  选择后，取得组织机构下的部门 的结果和代码帖出来看看。

atiger

下面这段代码是获取CheckTreeView 选择了哪些部门
VAR
  lBizNode: TBizNode;
  lCondition: string;
  lurls: TStrings;
  i: integer;
  lBizUrl: TBizUrl;
begin
   lurls := TStringList.create;
   lBizUrl := TBizUrl.Create;
   try
     lCondition := org.OrgExpr.orgselect(org.OrgExpr.OrgCondition('*.DPT', '', ''));
     Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(lcondition,lurls);
     for i := 0 to lurls.count - 1 do
     begin
       lBizUrl.URL := lurls;
       lBizNode := CheckBizTreeView1.BizTree.FindNodeByBizURL(lBizUrl);
       CheckBizTreeView1.SelectedNode := lBizNode;
       CheckBizTreeView1.Selected.Expanded := True;
       if CheckBizTreeView1.Checked[CheckBizTreeView1.Selected] = True then
       begin
          dialogs.ShowMessage(lBizUrl.ID);  //显示选择部门的ID
          dialogs.ShowMessage(lBizUrl.URL); //显示选择部门的bizURL
       end;
     end;
  finally
    lurls.Free;
    lBizUrl.Free;
  end;
end;

然后根据这些部门去拼过滤条件，可以用SQLFilter过滤，参考http://bbs.justep.com/forum.php?mod=viewthread&tid=590

songyun

编译可以通过，但是运行的时候报错了。在这个地方报错：
CheckBizTreeView1.Selected.Expanded:= True;  
注释掉上面这句以后，可以运行，但是什么结果都没有，CheckBizTreeView是空白的。

atiger

1、把原始的错误信息帖出来
2、你在CheckBizTreeView中选择了吗？即选择了一个或者多个部门了吗？

songyun

1,错误信息如图
2.没有选择，我就直接运行你给的代码了。

atiger

你先选择一下，然后再运行，前面需要加个判断。