授权求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 授权求助

共有2180人关注过本帖树形打印复制链接主题：授权求助

有点蓝

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

加好友

发短信

等级：超级版主帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/28 14:45:00 [显示全部帖子]

nav26字符串包含nav2，建议把nav2改为nav02

有点蓝

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

加好友

发短信

等级：超级版主帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/28 15:13:00 [显示全部帖子]

Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView3")
For Each nd As WinForm.TreeNode In tr1.AllNodes '同步子节点选中状态
If nd.Checked=True Then

msgbox("分类 = '" & nd.name & "' Or 分组 = '" & nd.name & "' or 名称 = '" & nd.name & "'")

Dim dr As DataRow = DataTables("导航").Find("分类 = '" & nd.name & "' Or 分组 = '" & nd.name & "' or 名称 = '" & nd.name & "'")
If dr IsNot Nothing Then

msgbox(dr("编号")) 查询到nav26的时候，上面显示什么条件
            If s<>Nothing Then s=s & ","
            s=s & dr("编号")
        End If
    End If
Next

有点蓝

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

加好友

发短信

等级：超级版主帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/28 15:34:00 [显示全部帖子]

查询条件的问题，使用的是or查询，也就是2和26都符合上面2个条件，默认取第一个。nav26的_sortkey或者_Identify应该比nav2小，所有都取nav26

有点蓝

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

加好友

发短信

等级：超级版主帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/28 16:08:00 [显示全部帖子]

我也不知道，这个是您的业务逻辑问题。自己把流程搞清楚。

有点蓝

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

加好友

发短信

等级：超级版主帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/1 10:24:00 [显示全部帖子]

那就不要偷懒了，判断一下节点level，如果是第一级，

Dim dr As DataRow = DataTables("导航").Find("分类 = '" & nd.name & "' and 分组 is null")

第二级

Dim dr As DataRow = DataTables("导航").Find("分类 = '" & nd.parnetnode.name & "' and 分组 = '" & nd.name & "' and 名称 is null")

第三级

Dim dr As DataRow = DataTables("导航").Find("分类 = '" & nd.parnetnode.parnetnode.name & "' and 分组 = '" & nd.parnetnode.name & "' and 名称 = '" & nd.name & "'")

下一主题 >> << 上一主题

主题：授权求助