主题：工资管理系统

If nd.Nodes(i).Checked = True Then

 

如果是判断当前选择的节点是否勾选，改成

 

If nd.Checked = True Then

方法一：加一列逻辑列，勾选目录树的时候，顺便把表的数据也勾选；

 

方法二：要查询某一行是否勾选，需要循环目录树的所有节点，判断和比较才能知道。

 

具体上传实例

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        Dim fdr As DataRow = DataTables("表A").find("_Identify = " & nd.tag)
        If fdr IsNot Nothing Then
            msgbox(fdr("第一列") & fdr("第二列"))
        End If
    End If
Next

If nd.Nodes.Count = 0 AndAlso nd.Checked = True Then

 

http://www.foxtable.com/help/topics/1275.htm

 

 

mark 复制节点

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim pnd As WinForm.TreeNode = trv.nodes.Add("新节点")
Dim pnds As new List(Of WinForm.TreeNode)
pnds.Add(pnd)
For Each nd As WinForm.TreeNode In trv.SelectedNode.AllNodes
    pnd = pnds(nd.Level-1).nodes.Add(nd.name, nd.text)
    If pnds.count <= nd.Level Then
        pnds.add(pnd)
    Else
        pnds(nd.Level) = pnd
    End If
Next

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim pnd As WinForm.TreeNode = trv.nodes.Add("新节点")
Dim pnds As new List(Of WinForm.TreeNode)
pnds.Add(pnd)
Dim t As Table = Tables("表A")
For Each nd As WinForm.TreeNode In trv.SelectedNode.AllNodes
    Dim nr As Row = t.AddNew
    pnd = pnds(nd.Level-1).nodes.Add(nd.name, nd.text)
    pnd.tag = nr("_Identify")
    Dim fdr1 As DataRow = t.DataTable.find("_Identify = " & nd.tag)
    If pnds.count <= nd.Level Then
        pnds.add(pnd)
    Else
        pnds(nd.Level) = pnd
    End If
    For Each c As Col In t.Cols
        nr(c.Name) = fdr1(c.Name)
    Next
Next

关键要理解：用一个集合记录了上一级节点，这样创建节点的时候，就知道应该在哪个节点下创建节点了。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") '目录树对象
Dim pnd As WinForm.TreeNode = trv.nodes.Add("新节点") '添加一个节点
Dim pnds As new List(Of WinForm.TreeNode) '定义一个集合
pnds.Add(pnd) '第一级节点
Dim t As Table = Tables("表A")
For Each nd As WinForm.TreeNode In trv.SelectedNode.AllNodes '循环所有的节点
    Dim nr As Row = t.AddNew '新建一行
    pnd = pnds(nd.Level-1).nodes.Add(nd.name, nd.text) '新增一个节点
    pnd.tag = nr("_Identify") '设置属性
    Dim fdr1 As DataRow = t.DataTable.find("_Identify = " & nd.tag) '查找对应的行
    If pnds.count <= nd.Level Then '如果此级节点没有放入集合
        pnds.add(pnd) '放入
    Else
        pnds(nd.Level) = pnd '修改原先集合的值
    End If
    For Each c As Col In t.Cols '拷贝数据
        nr(c.Name) = fdr1(c.Name)
    Next
Next

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim idx As Integer =  Tables("工资摘要").FindRow("代码 = '" & e.Node.Name & "'")
If idx >= 0
    Tables("工资摘要").Position = idx
    Forms("工资档案窗口").open()
    Forms("工资档案窗口").Controls("Label1").Text = Tables("工资摘要").current("摘要")
End If