| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 全部加载节点控制失效 帮我看看代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109252) |
| -- 作者：yifan3429 -- 发布时间：2017/11/7 18:43:00 -- 全部加载节点控制失效 帮我看看代码 Dim Filter As String If e.node.Text = "加载所有客户" Then \'Filter = "" DataTables("终端用户").LoadFilter = "" Else Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 \'Dim Filter As String Dim Year As Integer = dr("年") Dim Month As Integer = dr("月") Dim Product As String = dr("状态") Select Case e.Node.Level Case 0 Filter ="Year(建档日期) = " & Year Case 1 Filter ="Year(建档日期) = " & Year & " And Month(建档日期) = " & Month Case 2 Filter ="Year(建档日期) = " & Year & " And Month(建档日期) = " & Month & " And 状态 = \'" & Product & "\'" \'Case 3 \'Filter ="Year(建档日期) = " & Year & " And Month(建档日期) = " & Month & " And 楼盘名称 = \'" & Product & " And 客户姓名 = \'" & Product & "\'" End Select End If DataTables("终端用户").LoadFilter = Filter DataTables("终端用户").Load()
|
| -- 作者：有点蓝 -- 发布时间：2017/11/7 20:02:00 -- Dim Filter As String If e.node.Text = "加载所有客户" Then Filter = "" Else
|
| -- 作者：yifan3429 -- 发布时间：2017/11/8 21:38:00 -- 我改回了代码 貌似不会加载全部的数据进来 我是在窗口使用的 只会加载一部分数据 |
| -- 作者：有点甜 -- 发布时间：2017/11/8 22:11:00 -- 以下是引用yifan3429在2017/11/8 21:38:00的发言：
我改回了代码 貌似不会加载全部的数据进来 我是在窗口使用的 只会加载一部分数据
1、msgbox(DataTables("终端用户").LoadFilter) 看看弹出什么。
2、msgbox(filter) 看弹出什么。 |