窗口2_Afterloa
Dim cmd As New S Q L C ommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE LECT DISTINCT 结账,建设单位,工程名称 From {项目工程} WHERE 结账 = 0 "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"建设单位|工程名称")
trv.Nodes.Insert("加载所有数据",0)
Tables("项目工程").Sort = "合同编号 DESC"
窗口2_NodeMouseDoubleClick
Dim Filter As String
If e.node.Text = "加载所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="[建设单位] = '" & dr("建设单位") & "'"
Case 1
Filter ="[建设单位] = '" & dr("建设单位") & "'And [工程名称] = '" & dr("工程名称") & "'"
End Sele ct
End If
With DataTables("项目工程")
.LoadFilter = Filter
.Load()
End With
msgbox(Filter)