Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树节点NodeMouseClick


  共有3269人关注过本帖树形打印复制链接

主题：[求助]目录树节点NodeMouseClick
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1402 积分：10865 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]目录树节点NodeMouseClick  发帖心情 Post By：2021/8/3 18:23:00 [只看该作者]

同一个目录树下，有打开表的，也有打开窗口的，怎样把下面两段结合一起，判断如果是表的就打开表，如果是窗口的就打开窗口
Se/ect Case e.Node.Name
    Case e.Node.Name
        Dim dr As DataRow
        dr = DataTables("报表权限").Find("报表 = '" & e.Node.Name & "'")
        If dr IsNot Nothing Then
            Dim fl As String = dr("分组")
            Dim ck As String = dr("查看权限")
        If Functions.Execute("ShouQuan",fl,ck) Then
            MainTable = Tables(e.Node.Name)
        Else
            MessageBox.Show("你无此表查阅权限!")
        End If
        End If
End Se/ect

Se/ect Case e.Node.Name
    Case e.Node.Name
        Dim dr As DataRow
        dr = DataTables("报表权限").Find("报表 = '" & e.Node.Name & "'")
        If dr IsNot Nothing Then
            Dim fl As String = dr("分组")
            Dim ck As String = dr("查看权限")
        If Functions.Execute("ShouQuan",fl,ck) Then
            Forms(e.Node.Name).Open()
            MainTable = Tables("查询表")
        Else
            MessageBox.Show("你无此表查阅权限!")
        End If
        End If
End Se/ect
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1402 积分：10865 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2021/8/3 18:45:00 [只看该作者]

明白了

Select Case e.Node.Name
    Case e.Node.Name
        Dim dr As DataRow
        dr = DataTables("报表权限").Find("报表 = '" & e.Node.Name & "'")
        If dr IsNot Nothing Then
            Dim fl As String = dr("分组")
            Dim ck As String = dr("查看权限")
        If Functions.Execute("ShouQuan",fl,ck) And Forms.Contains(e.Node.Name)=False Then
            MainTable = Tables(e.Node.Name)
        ElseIf Functions.Execute("ShouQuan",fl,ck) And Forms.Contains(e.Node.Name) Then
            Forms(e.Node.Name).Open()
            MainTable = Tables("查询表")
        Else
            MessageBox.Show("你无此表查阅权限!")
        End If
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询