If YYN_Name = "DEB1" Then ‘YYN_Name为变量名 从两张一样表结构加载
Tables("企业定额_Table1").Fill("Select * F rom
{DEB1}","ysprojcet",False) ‘动态绑定表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT YJFB,RJFB Fro m {DEB1}" ‘同时请问表名能否用变量名替代
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"YJFB|RJFB")
trv.Nodes.Insert("加载所有数据",0)
ElseIf YYN_Name = "DEB2" Then
Tables("企业定额_Table1").Fill("Select * F rom
{DEB2}","ysprojcet",False)
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT YJFB,RJFB Fro m {DEB2}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"YJFB|RJFB")
trv.Nodes.Insert("加载所有数据",0)
End If
企业定额_TreeView1_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 ="[YJFB] = '" & dr("YJFB") &
"'"
Case 1
Filter ="[YJFB] = '" & dr("YJFB") & "'
And [RJFB] = '" &
dr("RJFB") & "'"
End Select
End if
Tables("企业定额_Table1").DataTable.LoadFilter
= Filte ‘这里出错了,点击节点后窗口表变为空表,没有加载数据
Tables("企业定额_Table1").DataTable.Load()