主题：加载树刷新问题，权限控制

Tables("到款").OpenLoadTree("创建日期 YMD",120,500,True, "销售姓名 = '" & User.Name & "'")

上面是在afteropenproject 引用 openloadtree，根据销售姓名来下载他们自己的到款，

这个没有问题，效率也很高。

但是，

     加载树右下角有一个刷新按钮，一旦点击刷新，发现所有的销售到款，将前部下载，即上面的过滤条件不可用了，请问问题出现在哪里？

谢谢！

不知道您是否是官方的官方的人员，但是不管怎么样，对于老兄的热心帮忙，我决定寄一盒茶叶（大红袍）到湛江总部，表示感谢。

此主题相关图片如下：qq截图20150906215050.png

cmd COMMANDTEXT 这句有错？

此主题相关图片如下：qq截图20150906222408.png

我在执行sql上测试过没有问题呀，奇怪。

还真是没有指定数据源呀，

加上后可以了，谢谢！折腾了一个晚上，哈哈。

有一个bug，花了一个两个晚上没有搞定，不知道大家碰到过没有？

即当用”区域经理“，”区域经理2“的用户登录时，点击加载树的任何一个点，马上就会下载全部的数据，

而当时，销售工程师，或者销售总监时，却是正常的。

    

窗口的afterload事件：

    Select Case  user.roles

        Case   "销售工程师"

            cmd.CommandText = "SELECT DISTINCT Year(记录时间) As 年, Month(记录时间) As 月, DAY(记录时间) As 日, 销售姓名  Fro m {拜访日志} WHERE 销售姓名 = '" & User.Name & "'"

            dt = cmd.ExecuteReader()

            trv.BuildTree(dt,"年|月|日|销售姓名")

             

        Case   "区域经理" , "区域经理2"

            cmd.CommandText = "SELECT DISTINCT Year(记录时间) As 年, Month(记录时间) As 月, DAY(记录时间) As 日, 销售姓名  Fro m {拜访日志} WHERE 大区经理 = '" & User.Name & "' or  销售姓名 = '" & User.Name & "'"

            dt = cmd.ExecuteReader()

            trv.BuildTree(dt,"年|月|日|销售姓名")

             

        Case   "销售总监","销售副总"

            cmd.CommandText = "SELECT DISTINCT Year(记录时间) As 年, Month(记录时间) As 月, DAY(记录时间) As 日,销售姓名  Fro m {拜访日志}"

            dt = cmd.ExecuteReader()

            trv.BuildTree(dt,"年|月|日|销售姓名")           

        

            

    End Select

treeview的nodemousedoubleclick事件：