主题：应用窗口问题

1、执行这句代码后，目录树能否生存？

 

trv.BuildTree(dt,"项目名称|施工合同段|章节|子目|细目|桩号")

 

如果目录树没有数据生成，说明你dt没有数据，不能生成目录树。

 

2、删除这个代码后是否还报错？

 

trv.Nodes.Insert("加载所有数据",0)

 

3、如果不是1、2的问题，就是你其它代码有错，你要学会调试定位出错位置啊

 

http://www.foxtable.com/webhelp/scr/1485.htm

 

那应该是这个代码有问题：User.Roles.Replace

 

当你的user没有角色的时候，就会报错。

 

1、你可以给user设置一个角色；

 

2、你可以判断一下是不是为空

 

Dim roles = iif(user.roles = nothing, "", user.roles)

 

然后直接使用 roles 变量