新手求教**

Liang-Q

var kind:TBizObjectKind;

kind:= orgtreeview1.SelectedNode.NodeKind;

单步调试发现kind为无效值。

请问为什么啊？

我想判断kind是否等于TBizObjectKind.boPerson

Akon

TBizObjectKind是一个枚举类型,你可以写一个函数,在函数中用case 判断等于 TBizObjectKind 中某一种状态时,返回相应值,然后对返回值去做判断

Liang-Q

kind:= orgtreeview1.SelectedNode.NodeKind;

单步调试发现kind为无效值。

请问为什么啊？

lixy

这个值只是显示不出来。  只要程序运行的正确就可以了。

Liang-Q

procedure TWJDCRXZ.Button1Click(Sender: TObject);
var person:TListItem;
begin
        if orgtreeview1.SelectedNode.NodeKind = TBizObjectKind.boPerson

       then
       begin
            person:= listview1.Items.Add;
            person.Caption := orgtreeview1.SelectedNode.DisplayName;
       end;
end;

我选择的是人员也无法执行到then语句中啊

lixy

http://bbs.justep.com/forum.php? ... ;highlight=boPerson

Liang-Q

结贴吧，我看到问题了。不过你们这种回答的方式很不好。

你完全可以告诉我是什么原因。

jiahaiming

呵呵。6楼给个链接，是希望能培养楼主搜索答案的习惯。
其实很多问题在论坛中是有现成答案的。

lixy

汗。。