Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树筛选


  共有2126人关注过本帖树形打印复制链接

主题：目录树筛选
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		目录树筛选  发帖心情 Post By：2019/8/4 14:21:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
        trv.BuildTree(dt,dr("目录树"), "报备人= User.Name", dr("筛选条件"))

黄色部分筛选不行
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4648 积分：33890 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/4 16:56:00 [只看该作者]

"报备人='" & User.Name & "'"

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/6 9:03:00 [只看该作者]

MessageBox.Show(cmd.CommandText)显示什么内容？

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/8/6 17:01:00 [只看该作者]

搞定  数据列没有加载进来  谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 4 次数据查询