主题：工资管理系统

在窗口中生成上述数据表，如何隐藏非最下级，比例有三级，只显示第三级，隐藏第一、二级？

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

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数字级码生成 (1).table

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

如何在窗口2用代码

AfterSelectNode 事件

 

e.Form.Controls("Label1").text = e.Node.FullPath.replace("\", "---")？

点击上下一行时，不是最下级记录表不显示出来？

比如代码

 

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

窗口2的Label1应如何做才有60楼的效果？

比如代码

 

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