通过table副本的click事件，单击单元格后在treeview控件里面显示相应的内容。但是我点击后没有反应，不知道代码哪个地方有问题。Dim cmd As new SQLCommand
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim lst As WinForm.Table = e.Form.Controls("Table1")
Dim dt As DataTable
cmd.Connectio n N ame = "cwgl"
If Forms("用户管理").Opened Then '正常打开
'筛选用户明细
cmd.CommandText = "Select DISTINCT 功能模块,窗口菜单 Fro m {授权} Where [用户角色] = '" & lst.Table.Current("用户信息_用户角色") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 1 Then
trv1.BuildTree("授权","功能模块|窗口菜单")
End If
End If
加好友 
发短信
Post By：2016/7/30 16:12:00 [只看该作者]
