共3 条记录, 每页显示 10 条, 页签: [1]

标题：[求助] 请教目录树代码简化

1楼

老有所乐 发表于：2011/10/19 7:34:00

这段代码是不同用户显示不同目录树,如果登录用户多时,这样代码就太长,不知是否能更简化一点,请大家帮忙,谢谢!

'下面代码是限定目录树中显示的表名(节点)

Select Case User.name
Case "开发者"
Dim Ls As String() = {"表A","表B","表C"}
Dim s,sql As String
For Each s In Ls
sql+ = " UNION Select '表' As 表,'" & s & "' As 表名 ,年,月 From{" & s & "} "
Next
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql.Substring(7)

dt = cmd.ExecuteReader()
'生成目录树
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt,"表|表名|年|月")

Case "张三"
Dim Ls As String() = {"表A","表B"}
Dim s,sql As String
For Each s In Ls
sql+ = " UNION Select '表' As 表,'" & s & "' As 表名 ,年,月 From{" & s & "} "
Next
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql.Substring(7)

dt = cmd.ExecuteReader()
'生成目录树
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt,"表|表名|年|月")

Case "李四"
Dim Ls As String() = {"表C","表B"}
Dim s,sql As String
For Each s In Ls
sql+ = " UNION Select '表' As 表,'" & s & "' As 表名 ,年,月 From{" & s & "} "
Next
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql.Substring(7)
dt = cmd.ExecuteReader()
'生成目录树
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt,"表|表名|年|月")
End Select

[此贴子已经被作者于2011-10-19 7:34:53编辑过]

2楼

狐狸爸爸 发表于：2011/10/19 7:49:00

Dim Ls As String()
Select Case User.name
    Case "开发者"
        ls = new String () {"表A","表B","表C"}
    Case "张三"
        ls = new String () {"表A","表B"}
    Case "李四"
        ls = new String () {"表B","表C"}
End Select
Dim s,sql As String
For Each s In Ls
    sql+ = " UNION Select '表' As 表,'" & s & "' As 表名 ,年,月 From{" & s & "} "
Next
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql.Substring(7)
dt = cmd.ExecuteReader()
'生成目录树
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt,"表|表名|年|月")

[此贴子已经被作者于2011-10-19 8:13:20编辑过]

3楼

老有所乐 发表于：2011/10/19 8:12:00

谢谢贺老师

共3 条记录, 每页显示 10 条, 页签: [1]