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


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

主题:[求助]显示隐藏

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


加好友 发短信
等级:五尾狐 帖子:1018 积分:6800 威望:0 精华:0 注册:2014/2/12 20:14:00
[求助]显示隐藏  发帖心情 Post By:2023/12/7 20:02:00 [只看该作者]

老师好,下面代码对多层表头隐藏或显示不正确,另外排序也不对谢谢老师帮忙纠正。





TextChanged

Dim str As String = e.sender.text
Dim ary As String() = str.split(",")
Dim t As Table = e.Form.controls("table1").Table
For Each c As Col In t.Cols
    c.visible = False
Next
For i As Integer = ary.length-1 To 0 Step -1
    t.Cols(i).move(0)
    t.Cols(i).visible = True
Next


Enter
If DataTables.Contains(e.Form.Controls("ComboBox表").Text) = False Then
    Return
End If
e.Sender.ComboList = ""
e.Sender.Text = ""
Dim s As String
For Each dc As DataCol In DataTables(e.Form.Controls("ComboBox表").Text).DataCols
    s + = dc.Name & "|"
Next
e.Sender.ComboList = s.Trim("|")

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/7 20:33:00 [只看该作者]

多层表头是怎么样的,输入的是什么数据?

排序不要使用datacols,改为cols
For Each dc As Col In Tables(e.Form.Controls("ComboBox表").Text).Cols
    s + = dc.Name & "|"
Next

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


加好友 发短信
等级:五尾狐 帖子:1018 积分:6800 威望:0 精华:0 注册:2014/2/12 20:14:00
  发帖心情 Post By:2023/12/7 21:03:00 [只看该作者]

谢谢老师

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


加好友 发短信
等级:五尾狐 帖子:1018 积分:6800 威望:0 精华:0 注册:2014/2/12 20:14:00
  发帖心情 Post By:2023/12/8 8:09:00 [只看该作者]




老师好,视图表窗口1筛选出来的列名称不正确,谢谢老师。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:筛选.table


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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:筛选.zip


 回到顶部