主题：工资管理系统

 什么意思？数据表用一列直接合并三级的内容？

 

 你还是直接说目的吧，具体说明啊。

不理解你要做什么啊？哪里，怎么操作，最后什么效果？

比如代码

 

With Tables("表A")
    .Position = .Position + 1
End With
Dim fdr As DataRow = DataTables("表A").find("第一列 like '" & Tables("表A").Current("第一列") & ".%'")
If fdr Is Nothing Then
    e.Form.Controls("RecordGrid1").Visible = True
Else
    e.Form.Controls("RecordGrid1").Visible = False
End If

比如代码

 

Dim t As Table = Tables("表A")
t.Position = t.Position + 1

Dim fdr As DataRow = t.DataTable.find("第一列 like '" & t.current("第一列") & ".%'")
If fdr Is Nothing Then
    e.Form.Controls("RecordGrid1").Visible = True
Else
    e.Form.Controls("RecordGrid1").Visible = False
End If
Dim ps As String = ""
Dim str As String = ""
For Each s As String In t.current("第一列").split(".")
    ps = ps & "." & s
    fdr = t.DataTable.find("第一列 = '" & ps.trim(".") & "'")
    If fdr IsNot Nothing Then
        str &= fdr("第二列") & "-"
    End If
Next
e.Form.Controls("Label1").Text = str.trim("-")

Dim t As Table = Tables("表A")
For i As Integer = t.Position+1 To t.Rows.Count - 1
    Dim fdr As DataRow = t.DataTable.find("第一列 like '" & t.Rows(i)("第一列") & ".%'")
    If fdr Is Nothing Then
        t.Position = i
        Exit For
    End If
Next

打开窗口的时候，自动定位到第一行？afterLoad事件

 

参考

 

For Each nd As WinForm.TreeNode In e.node.AllNodes
    nd.Checked = e.Node.Checked
Next

If e.Node.Checked = False Then
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Do While pnd IsNot Nothing
        pnd.Checked = False
        pnd = pnd.ParentNode
    Loop
Else
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Dim flag As Boolean = True
    Do While pnd IsNot Nothing
        If flag = True
            For Each nd As WinForm.TreeNode In pnd.Nodes
                If nd.Checked = False Then
                    flag = False
                    Exit For
                End If
            Next
        End If
        pnd.Checked = flag
        pnd = pnd.ParentNode
    Loop
End If

把table导出成excel？参考

 

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

 

For Each nd As WinForm.TreeNode In e.node.AllNodes '将所有的子节点弄成和当前节点一样
    nd.Checked = e.Node.Checked
Next

If e.Node.Checked = False Then '如果是取消勾选，把所有的父节点的勾选都去掉
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Do While pnd IsNot Nothing
        pnd.Checked = False
        pnd = pnd.ParentNode
    Loop
Else                     '如果是勾选，判断是否全部都勾选了，如果全部都勾选，就把父节点也勾选
    Dim pnd As WinForm.TreeNode = e.Node.ParentNode
    Dim flag As Boolean = True
    Do While pnd IsNot Nothing
        If flag = True
            For Each nd As WinForm.TreeNode In pnd.Nodes
                If nd.Checked = False Then
                    flag = False
                    Exit For
                End If
            Next
        End If
        pnd.Checked = flag
        pnd = pnd.ParentNode
    Loop