加载树刷新问题，权限控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载树刷新问题，权限控制

共有5609人关注过本帖树形打印复制链接主题：加载树刷新问题，权限控制

hawkgo

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：236 积分：1881 威望：0 精华：0 注册：2013/11/7 14:40:00

Post By：2015/9/8 12:49:00 [只看该作者]

上图，点击的是5月12日的12。

大红袍

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/8 14:16:00 [只看该作者]

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

Dim fl As String = "(销售姓名 = '" & User.Name & "' or 大区经理 = '" & User.Name & "')"

If e.DataTable.LoadFilter = "" Then

e.DataTable.LoadFilter = fl

ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括雇员条件

e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl

End If

hawkgo

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：236 积分：1881 威望：0 精华：0 注册：2013/11/7 14:40:00

Post By：2015/9/8 15:00:00 [只看该作者]

谢谢！就是这个问题。

谢谢你，让我学会了调试的一些方法。

hawkgo

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：236 积分：1881 威望：0 精华：0 注册：2013/11/7 14:40:00

Post By：2015/9/8 16:37:00 [只看该作者]

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

这里面“加载所有行”怎么设计？按照时间序列排，好像“加载所有行”有问题。

大红袍

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/8 16:41:00 [只看该作者]

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("销售姓名")
If e.node.name <> "加载所有行" Then
    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
end if
DataTables("拜访日志").LoadFilter = Filter
DataTables("拜访日志").Load
Tables("拜访日志").Sort = "记录时间 desc"

hawkgo

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：236 积分：1881 威望：0 精华：0 注册：2013/11/7 14:40:00

Post By：2015/9/8 17:19:00 [只看该作者]

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

点击加载所有行，会出现这个错误。

大红袍

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/8 17:21:00 [只看该作者]

Dim Filter As String = ""
If e.node.name <> "加载所有行" Then
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
    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
End If
DataTables("拜访日志").LoadFilter = Filter
DataTables("拜访日志").Load
Tables("拜访日志").Sort = "记录时间 desc"