主题：[求助]多表目录树

afterload事件

 

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")

Dim cmd As new SQLCommand
cmd.CommandText = "select 项目工程,单项工程,单位工程,分项工程 from {电气工程量} union select 项目工程,单项工程,单位工程,分项工程 from {水卫工程量}"
Dim dt As DataTable = cmd.ExecuteReader

tv.BuildTree(dt, "项目工程|单项工程|单位工程|分项工程")

Dim Filter As String = ""
Dim Value() As String
Value = e.Node.FullPath.Split("\")
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[项目工程] = '" & Value(0) & "'"
           
        Case 1
            Filter = "[项目工程] = '" & Value(0) & "' And [单项工程] = '" & Value(1) & "'"
        Case 2
            Filter = "[项目工程] = '" & Value(0) & "' And [单项工程] = '" & Value(1) & "' And [单位工程] = '" & Value(2) & "'"
           
        Case 3
            Filter = "[项目工程] = '" & Value(0) & "' And [单项工程] = '" & Value(1)  & "'And [单位工程] = '" & Value(2) & "' And [分项工程] = '" & Value(3) & "'"
           
    End Select
End If

If DataTables("水卫工程量").Find(filter) IsNot Nothing Then
    Tables("水卫工程量").Filter = Filter
End If
If DataTables("电气工程量").Find(filter) IsNot Nothing Then
    Tables("电气工程量").Filter = Filter
End If

 

 写成 Tables("工程量输入_电器").DataTable

 呃，你说的没激活是什么意思？你是不是应该要切换页签（选项卡）？

 你切换呗。页签.SelectedPage = 页签.TabPages("xxx")

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127148&skin=0