以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90344)

--  作者:hbhb
--  发布时间:2016/9/10 13:03:00
--  请教实例
大师:如实例
请教如何实现表b输入记录时,当第二列从列表选择不同项目后显示后面的不同列,如选择的是“显示1”,则显示1,2,3,4列,其他列不显示。选择的是“显示2”,则显示1,2,5,6列,其他列不显示。如选择的是“显示3”,则显示1,2,7,8,9,10列,其他列不显示。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.zip


--  作者:有点蓝
--  发布时间:2016/9/10 14:07:00
--  
AfterEdit事件

Dim lst As new List(of String)
lst.Add("第一列|98|第二列|98|第三列|98|第四列|98")
lst.Add("第一列|98|第二列|98|第六列|98|第七列|98")
lst.Add("第一列|98|第二列|98|第九列|98|第十列|98")
Select Case e.Col.Name
    Case "第二列"
        If e.Row("第二列") = "显示1" Then
            e.Table.SetColVisibleWidth(lst(0))
        ElseIf e.Row("第二列") = "显示2" Then
            e.Table.SetColVisibleWidth(lst(1))
        Else
            e.Table.SetColVisibleWidth(lst(2))
        End If
        
End Select

--  作者:hbhb
--  发布时间:2016/9/10 15:17:00
--  
谢谢!请问同datacolanged的区别?
--  作者:有点蓝
--  发布时间:2016/9/10 15:20:00
--  
一样,只是贪图e.Table用的方便一点