主题：[讨论]窗体目录树tables问题

 

 

 

请教：设立一个窗口"人员查询"，添加一个SplitContainer，左侧添加TreeView1，右侧添加一个Table1，table1绑定人员表，作为副本。想自动生成以分厂、工段的目录树查询。

 

根据帮助，以下内容为"人员查询_Table1"为"人员表"的时候可以，但改为"人员查询_Table1"时，提示没有"人员查询_Table1"的DataTables。

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("人员查询_Table1", "分厂|工段")
trv.Nodes.Insert("显示所有行",0)

 

 

Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        If e.Node.Text = "显示所有行" Then
            Tables("人员查询_Table1").Filter = ""
        Else
            Tables("人员查询_Table1").Filter = "[分厂] = '" & Value(0) & "'"
        End If
    Case 1
        Tables("人员查询_Table1").Filter = "[分厂] = '" & Value(0) & "' And [工段] = '" & Value(1) & "'"
    Case 2
        Tables("人员查询_Table1").Filter = "[分厂] = '" & Value(0) & "' And [工段] = '" & Value(1) & "' And [雇员] = '" & Value(2) & "'"
End Select

说明要么窗口名不是"人员查询"，要么Table控件民不是人员查询，如果两者都对，那么你可能没有设置为副本。

 

 不会有别的原因，你仔细检查一下。

 

实在不行，打开这个窗口，在命令窗口执行：

 

For each t As Table in Tables

    Output.show(t.name)

Next

 

看看都有些什么名称的Table

我已经查了有"人员查询_Table1"的。

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

点击浏览该文件:工资核算.table

请帮忙看看，哪里的问题。人员管理里边，人员查询。

我看看啊

是的发错了。

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

点击浏览该文件:工资核算01.foxdb

这次对了

呵呵，你放上来的文件，姐妹有人员管理表，也没有人员查询窗口