Foxtable(狐表)用户栏目专家坐堂 → 目录树插入子节点


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

主题:目录树插入子节点

帅哥哟,离线,有人找我吗?
yifan3429
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2454 积分:22636 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2024/4/2 21:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20240402215108.png
图片点击可在新窗口打开查看

'Dim dr As DataRow
''''否则在产品表查找同名的产品行,将找到的行赋值给变量dr
'dr = DataTables("表B").Find("[角色] = 'BOOS'")
'Dim Multi As String = dr("配置")
'Dim drs As List(Of DataRow) = DataTables("表A").Select("[窗口] in ('" & Multi.Replace("|", "','") & "')", "菜单")

'For Each drn As DataRow In drs
'    If tr.Nodes.Contains(drn("菜单")) Then
'        nd = tr.Nodes(drn("菜单"))
'    Else
'        nd = Tr.Nodes.Add(drn("菜单"), drn("菜单"))
'        nd.ForeColor = Color.Red
'        '希望子节点按照表A的归属插入到一级节点下    
'    End If
'    nd.Nodes.Add(drn("窗口"), drn("窗口"))  现在希望把drn("窗口")处理成按钮添加到指定的窗口内
'Next
需要筛选 根据角色筛选数据

上面的代码是ok的 现在
[此贴子已经被作者于2024/4/2 21:51:46编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/2 21:52:00 [只看该作者]

添加按钮使用这种啊,或者看8楼的链接,自己做过的东西呀

zcdd = e.Form.CreateControl(dr("窗口"), ControlTypeEnum.Button) 

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2454 积分:22636 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2024/4/2 22:24:00 [只看该作者]

If e.Node.Level = 0 Then 
    Forms("菜单按钮").Show
    Dim dr As DataRow
    '    dr = DataTables("表A").Find("[菜单] = '" & e.Node.Name & "'")
    dr = DataTables("表B").Find("[角色] = 'BOOS'")  根据角色筛选结果 然后结果动态生成按钮
    If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
        Dim zcdd As WinForm.Button
        Dim Multi As String = dr("配置")
        Dim newMulti As String = "('" & Multi.Replace("|", "','") & "')" 
        Dim drs As List(Of DataRow) = DataTables("表A").Select("[窗口] in " & newMulti, "菜单")
        '        For Each drn As DataRow In drs
        For Each drn As DataRow In DataTables("表A").select("[菜单] = '" & e.Node.Name & "'")
            Dim Value As String = drn("窗口")
            Dim sps() As Char = {"|"}
            Dim Names() As String = Value.Split(sps) 
            Dim s As Integer = 2
            Dim t As Integer = 5
            For i As Integer = 0 To Names.length - 1
                If i <> 0 Then
                    If i Mod 10 = 0 Then
                        s = 2
                        t = t + 81.9
                    Else
                        s = s + 72.9
                    End If
                End If
                Dim nm As String = Names(i)
                zcdd = e.Form.CreateControl(nm, ControlTypeEnum.Button) 
                zcdd.Font = New Font("宋体", 9, FontStyle.Regular)
                zcdd.Text = nm
                zcdd.name = nm
                zcdd.Width = 72
                zcdd.Height = 81
                zcdd.Left = s + 8
                zcdd.Top = t + 2 
                zcdd.BorderSize = 0 
                Forms("菜单按钮").AddControl(zcdd) 
            Next 
        Next
    End If 

老师帮我再看看 
End If
图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20240402222347.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树插入子节点.foxdb


[此贴子已经被作者于2024/4/2 22:40:43编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/2 22:41:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树插入子节点.zip


 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2454 积分:22636 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2024/4/10 23:22:00 [只看该作者]

老师好  功能实现了 感谢
不过有个新问题

Click 无效

MessageBox.Show(e.Sender.Name)


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20240410232055.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2024/4/10 23:22:07编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/11 8:39:00 [只看该作者]

请上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2454 积分:22636 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2024/4/11 18:50:00 [只看该作者]

示例文件 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树插入子节点.foxdb


 回到顶部
帅哥,在线噢!
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/11 20:26:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树插入子节点.zip


 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2454 积分:22636 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2024/4/11 20:53:00 [只看该作者]

谢谢老师  
[此贴子已经被作者于2024/4/11 21:05:45编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105999 积分:539076 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/11 20:59:00 [只看该作者]

创建控件的地方。

 回到顶部
总数 20 上一页 1 2