cmd.ConnectionName = dr("数据源") '数据源
cmd.CommandText = "SELE CT DISTINCT " & dr("数据列") & " From " & e.form.TableName & " WHERE 部门 Like '% & User.Group & %'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,dr("目录树"), "", dr("筛选条件"))
trv.Nodes.Insert("全部规划", "全部规划(" & DataTables(e.form.tablename).sqlCompute("count(部门)","部门 Like '% & User.Group & %'") & ")项", 0)