【结】有关ORGTREEVIEW**

zywindy

我在窗体的CREATE事件中过滤了组织机构的显示（只显示符合条件的部门和机构），为什么直接运行可以，而在初始化运行时，过滤代码没起作用（全部显示了）呢？

atiger

是没有没有执行到还是不起作用？
尝试放到窗体的onShow事件上看看

zywindy

放在ONSHOW事件中也一样，而且也执行了，但是最后显示的时候显示的就是没有过滤的内容

shangxy

把过滤的代码贴出来看看，我们测试一夏

zywindy

J := 1;
  for I:=1 to orgtreeview1.Items.Count-1 do
    begin
       //TSQLDataset(DSEA.DataSet).SQLFilter := 'FDISPLAYNAME='''+orgtreeview1.Items.Item.text+'''';
       //TSQLDataset(DSEA.DataSet).SQLFiltered := True;

       IF NOT DSEA.DataSet.Locate('FDISPLAYNAME',orgtreeview1.Items.Item[J].text,[]) THEN
       BEGIN
         ORGTREEVIEW1.BeginUpdate;
         orgTreeView1.Items.Delete[orgtreeview1.Items.Item[J]];
       END
       ELSE
         J := J+1;
       IF J > orgtreeview1.Items.Count -1 THEN Break;
    end;
    ORGTREEVIEW1.EndUpdate;


我利用了系统数据库中的部门表的ELEVEL字段的值来过滤的

shangxy

把上面的代码放到按钮里执行么？

我这里在create事件中删除组织节点是正常的。
procedure TMAINFORM.BizFormCreate(Sender: TObject);
var i:integer;
begin
  //OrgTreeView.ShowOptions := OrgTreeView.ShowOptions + [TBizObjectKind.boTable];
  OrgTreeView.FullExpand;
  for  i:=OrgTreeView.Items.Count-1 downto 0 do
  begin
   if OrgTreeView.Items.Text ='人员1' then
    OrgTreeView.Items.Delete;
  end;
  //OrgTreeView1.ShowOptions := cAllBizObjectKinds;
end;

zywindy

不是，就是放在CREATE事件里的啊，直接运行是可以，就是初始化运行的时候不行

shangxy

放到窗体的onshow事件中不行么？我这里放到onshow事件中是可以的，create事件中是不起作用的。

zywindy

我把你的代码放在CREATE事件时，按F9运行删除节点也是正常的，就是Alt+F9运行时候就不正常了。

shangxy

onshow事件呢？