Foxtable(狐表)用户栏目专家坐堂 → 显示列


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

主题:显示列

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


加好友 发短信
等级:八尾狐 帖子:1942 积分:14943 威望:0 精华:0 注册:2016/4/28 9:58:00
显示列  发帖心情 Post By:2017/12/12 19:49:00 [只看该作者]

Dim datalist As String = e.Form.Controls("combobox3").text
Dim cc2 As String = e.Sender.text
Tables(datalist).SetColVisibleWidth(cc2)

老师我想用checkcombobox来动态选表并动态显示指定列,checkcombobox列表选定是用"|“分隔,但没有列宽,就不能显示指定列,如何实现只设置显示指定列,而不用设置其列宽

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


加好友 发短信
等级:八尾狐 帖子:1942 积分:14943 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/12/12 20:07:00 [只看该作者]

Dim datalist As String = e.Form.Controls("combobox3").text
Dim cc2 As String = e.Form.Controls("checkedcombobox2").text
For Each cl As Col In Tables("帐号管理_table5").Cols
    If cc2.Contains(cl.name)
        Tables("帐号管理_table5").Cols(cl.name).Visible = True
    Else
        Tables("帐号管理_table5").Cols(cl.name).Visible = False
    End If 
Next

懂起了

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


加好友 发短信
等级:八尾狐 帖子:1942 积分:14943 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/12/12 20:12:00 [只看该作者]

但又发现个问题,用这种方式当选英语列时英语_a列也显示出来了,因为用的包含判断,怎么解决更好

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


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

Dim datalist As String = e.Form.Controls("combobox3").text
Dim cc2 As String = e.Form.Controls("checkedcombobox2").text
Dim t As Table = Tables("帐号管理_table5")
For Each cl As Col In t.Cols
    cl.Visible = False
Next
For Each c As String In  cc2.Split("|")
    t.Cols(c).Visible = True
Next

 回到顶部