以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  目录树筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139050)

--  作者：yifan3429 --  发布时间：2019/8/4 14:21:00 --  目录树筛选 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")         trv.BuildTree(dt,dr("目录树"), "报备人= User.Name", dr("筛选条件")) 黄色部分筛选不行

--  作者：y2287958 --  发布时间：2019/8/4 16:56:00 --   "报备人=\'" & User.Name & "\'"

--  作者：yifan3429 --  发布时间：2019/8/6 8:52:00 --     If User.Roles = "部门职员" Then         MessageBox.Show("欢迎您:"& User.Group & "_" & User.Name)         \'DataTables("终端用户").LoadFilter = "[报备人] = \'" & User.Name & "\'"         \'DataTables("终端用户").Load         \'MessageBox.Show("加载完毕") 上面的代码可以         \'End If                           Dim dr As DataRow         dr = DataTables("窗体设置").SQLFind("[表名] = \'" & e.form.tablename & "\'")         \'MessageBox.Show(dr("数据列"))         If dr IsNot Nothing Then             e.Form.Controls("CheckedComboBox选择列").value = dr("数据列")             Dim cmd As New SQLCommand             Dim dt As DataTable             cmd.ConnectionName = dr("数据源") \'数据源             cmd.CommandText = "SE L ECT DI STINCT " & dr("数据列") & " From " & e.form.TableName & " where 客户等级 In (\'B类客户\',\'C类客户\',\'T类客户\',\'A类客户\',\'Y类客户\') "             dt = cmd.ExecuteReader()             Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")             trv.BuildTree(dt,dr("目录树"), "[报备人]=\'" & User.Name & "\'", dr("筛选条件"))   这个代码会显示 找不到 报备人 列             trv.Nodes.Insert("客户数据", "客户数据(" & DataTables(e.form.tablename).sqlCompute("count(报备人)") & ")户", 0)         End If     End If

--  作者：有点蓝 --  发布时间：2019/8/6 9:03:00 --   MessageBox.Show(cmd.CommandText)显示什么内容？

--  作者：yifan3429 --  发布时间：2019/8/6 17:01:00 --   搞定  数据列没有加载进来  谢谢老师