以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据某列的不同字符显示不同列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127281)

--  作者:nxdx112
--  发布时间:2018/11/9 21:46:00
--  根据某列的不同字符显示不同列
共有20列,如何根据第二列的不同选择,显示不同的列。

      
[此贴子已经被作者于2018/11/10 15:59:35编辑过]

--  作者:y2287958
--  发布时间:2018/11/9 22:04:00
--  
上实例
--  作者:有点蓝
--  发布时间:2018/11/9 22:07:00
--  
做不到,这样的逻辑不合理。表格的列是所有行共用的。

比如第一行第二列含有七年级应该显示第5 列,但是第二行第二列含有八年级,却不能显示第5列。那么这个第5列到底是显示呢,还是不显示?

--  作者:blsu33
--  发布时间:2018/11/9 22:19:00
--  
好像 刚开始 接触 狐表 也这么 设计过 后来也不用这样,确实第一感受 不好,来回变来变去的,不知道 这样 能不能直接显示出效果

PrepareEdit

If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Row("第二列")="七年级" Or e.Row("第二列") Like "%七年级" Or e.Row("第二列") Like "七年级%" Or e.Row("第二列") Like "%七年级%" Then
        For Each c As Col In e.Table.Cols
            c.Visible=False
        Next
        Dim strs() As String={3,5,6,7,8,9,10}‘这块换成列名’
        For Each str As String In strs
            e.Col(str).Visible=True
        Next
    End If
End If

--  作者:nxdx112
--  发布时间:2018/11/10 10:12:00
--  
自己这样想的,没有太大的实用价值,都显示也可以,谢谢各位了