| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 不执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88279) |
| -- 作者：天蝉一线 -- 发布时间：2016/7/30 16:12:00 -- 不执行 通过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 |
| -- 作者：Hyphen -- 发布时间：2016/7/30 16:26:00 -- msgbox(dt.DataRows.Count )，看看弹出什么值 |
| -- 作者：天蝉一线 -- 发布时间：2016/7/30 16:37:00 -- 有一条记录的弹出2，有两条重复记录的弹出0 |
| -- 作者：Hyphen -- 发布时间：2016/7/30 16:39:00 -- 都不符合If dt.DataRows.Count = 1 Then的条件，当然不会执行if里面生成树的代码了 试试 If dt.DataRows.Count > 0 Then
|
| -- 作者：天蝉一线 -- 发布时间：2016/7/30 17:14:00 -- trv1.BuildTree("授权","功能模块|窗口菜单",Tables("授权").Filter="[用户角色] =\'" & lst.Table.Current("用户信息_用户角色") & "\'") 用着条代码为什么在treeviwe1里面没有数据
|
| -- 作者：Hyphen -- 发布时间：2016/7/30 17:35:00 -- trv1.BuildTree("授权","功能模块|窗口菜单","[用户角色] =\'" & lst.Table.Current("用户信息_用户角色") & "\'") 说明没有符号条件的数据
|