专家坐堂-[求助] 复选框目录树增加节点Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 复选框目录树增加节点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21456)

--  作者：lsf5138
--  发布时间：2012/7/12 22:57:00
--  [求助] 复选框目录树增加节点

1、新建一个窗口，插入一个目录树控件。

2、将窗口的AfterLoad事件代码设置为：

e.Form.Controls("TreeView1").BuildTree("订单", "产品|客户|款号")

3、将目录树的AfterCheckNode事件代码设置为：

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'同步子节点选中状态
    nd.Checked = e.Node.Checked
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level > 0 AndAlso nd.ParentNode.Checked Then \'如果父节点选中
        Continue For \'跳过此节点,处理下一结点
    End If
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or " \'注意用or而不是And
        End If
        If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 产品 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 产品 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 产品 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\'  帮我 + 个款号 )"

        Else
    End If
Next
Tables("订单").Filter = flt

[此贴子已经被作者于2012-7-14 12:33:38编辑过]

--  作者：lsf5138
--  发布时间：2012/7/13 18:06:00
--
怎么没人帮呀！示例只有2个节我要3个节点不知代码怎么改，帮我改下！先谢了

--  作者：jianjingmaoyi
--  发布时间：2012/7/13 19:44:00
--
flt = flt & "( 产品 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\' And 款号= \'" & nd.Text & "\' )"

--  作者：lsf5138
--  发布时间：2012/7/13 22:31:00
--
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'同步子节点选中状态
    nd.Checked = e.Node.Checked
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level > 0 AndAlso nd.ParentNode.Checked Then \'如果父节点选中
        Continue For \'跳过此节点,处理下一结点
    End If
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or " \'注意用or而不是And
        End If
        If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 审核 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 审核 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 审核 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\' And 款号= \'" & nd.Text & "\')"    注意：第3行节点加上就不能用！会的帮改下
        Else
    End If
Next
Tables("订单标准").Filter = flt

[此贴子已经被作者于2012-7-13 22:32:04编辑过]

--  作者：程兴刚
--  发布时间：2012/7/14 3:21:00
--

^_^，我都以为您是要给大家分享问题，都没有看！

--  作者：程兴刚
--  发布时间：2012/7/14 3:23:00
--
仔仔细细看完这个帖子，您就知道为啥，您的问题也就迎刃而解了！

--  作者：lsf5138
--  发布时间：2012/7/14 12:22:00
--

真不知问题出在哪我对代码不怎么会   会的说下吧

--  作者：程兴刚
--  发布时间：2012/7/14 12:47:00
--

Dim trv As WinForm.TreeView = e.Sender
Dim flt,a,b,c As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'同步子节点选中状态
    nd.Checked = e.Node.Checked
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
If nd.Level > 0 AndAlso nd.ParentNode.Checked Then \'如果父节点选中
    For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Checked Then
            If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
                a = nd.Text
                flt = " 审核 = \'" & a & "\'"
            End If
            If nd.Level = 1 Then
                b = nd.Text
                flt = "审核 = \'" & a & "\' And 客户 = \'" & b & "\'"
            End If
            If nd.Level = 2 Then
                c = nd.Text
                flt = "审核 = \'" & a & "\' And 客户 = \'" & b & "\' And 款号= \'" & c & "\'"
            End If
        End If
    Next
End If
Tables("订单标准").Filter = flt

--  作者：lsf5138
--  发布时间：2012/7/14 12:53:00
--

提示错误代码：If nd.Level > 0 AndAlso nd.ParentNode.Checked Then \'如果父节点选中

还不行呀

--  作者：程兴刚
--  发布时间：2012/7/14 13:04:00
--

无文件，没法测试，去掉判断看看什么现象：

Dim trv As WinForm.TreeView = e.Sender
Dim flt,a,b,c As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'同步子节点选中状态
    nd.Checked = e.Node.Checked
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            a = nd.Text
            flt = " 审核 = \'" & a & "\'"
        End If
        If nd.Level = 1 Then
            b = nd.Text
            flt = "审核 = \'" & a & "\' And 客户 = \'" & b & "\'"
        End If
        If nd.Level = 2 Then
            c = nd.Text
            flt = "审核 = \'" & a & "\' And 客户 = \'" & b & "\' And 款号= \'" & c & "\'"
        End If
    End If
Next
Tables("订单标准").Filter = flt