请教:设立一个窗口"人员查询",添加一个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