有一个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事件：
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Da As Integer = dr("日")
Dim Sales As String = dr("销售姓名")
Select Case e.Node.Level
Case 0
Filter ="Year(记录时间) = " & Year
Case 1
Filter ="Year(记录时间) = " & Year & " And Month(记录时间) = " & Month
Case 2
Filter ="Year(记录时间) = " & Year & " And Month(记录时间) = " & Month & " And DAY(记录时间) = " & Da
Case 3
Filter ="Year(记录时间) = " & Year & " And Month(记录时间) = " & Month & " And DAY(记录时间) = " & Da & " And 销售姓名 = '" & Sales & "'"
End Select
DataTables("拜访日志").LoadFilter = Filter
DataTables("拜访日志").Load()
加好友 
发短信
Post By：2015/9/6 21:53:00 [只看该作者]
此主题相关图片如下：qq截图20150906222408.png
