主题：工资管理系统

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

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim idx As Integer =  Tables("工资摘要").FindRow("代码 = '" & e.Node.Name & "'")

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Tables("工资摘要").Filter = "代码 like '" & e.Node.Name & "%'"

上述代码点击一级就正常，二级及以下的都不能正常显示？

代码没问题啊

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Tables("工资摘要").Filter = "代码 = '" & e.Node.Name & "' Or 代码 like '" & e.Node.Name & ".%'"

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

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

老师请你看下，双击目录树不能显示对应的代码？

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim name As String = e.Node.FullName.replace("\", ".")
Tables("表A").Filter = "第一列 = '" & name & "' Or 第一列 Like '" & name & ".%'"

非常感谢！

增加目录树节点的名称如何从固定数据表中提取？