Foxtable(狐表)用户栏目专家坐堂 → [求助]显示所有行


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

主题:[求助]显示所有行

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1710 积分:11410 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]显示所有行  发帖心情 Post By:2020/6/9 12:46:00 [只看该作者]

老师好,显示所有行报错。

图片点击可在新窗口打开查看此主题相关图片如下:显示所有行.png
图片点击可在新窗口打开查看
If e.Node.Name = "显示所有行" Then
    Filter = ""
Else
    With e.Form.Controls("Table1").Table End With
Else
    Dim FilterCol() As String = e.Form.Controls("复选").Value.Split(",")
    Dim TmpStr() As String = e.Node.FullPath.Split("\")
    Dim FilterStr As String
    For i As Integer = 0 To e.Node.Level
        FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
    Next
    FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
    e.Form.Controls("Table1").Table.Filter = FilterStr
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106665 积分:542508 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/9 13:40:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1710 积分:11410 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/6/9 13:45:00 [只看该作者]

老师,定义后还是不显示所有。
Dim Filter As String

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106665 积分:542508 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/9 13:50:00 [只看该作者]

写了这么久的代码,连最基础的逻辑都还搞不清楚。

If e.Node.Name = "显示所有行" Then
    e.Form.Controls("Table1").Table.Filter = “”
Else
    Dim FilterCol() As String = e.Form.Controls("复选").Value.Split(",")
    Dim TmpStr() As String = e.Node.FullPath.Split("\")
    Dim FilterStr As String
    For i As Integer = 0 To e.Node.Level
        FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
    Next
    FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
    e.Form.Controls("Table1").Table.Filter = FilterStr
End If

 回到顶部