以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  内部函数代码怎么避开带E 参数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115553)
--  作者：L88919138
--  发布时间：2018/3/9 7:41:00
--  内部函数代码怎么避开带E 参数
在 MouseEnterCell全局表事件写入如下代码可以正常使用，想把下面代码用“内部函数”形式来写，好方便在其他地方调用，缩小代码数量，该怎么写（即Select Case E.Col.Name里面的E如何去掉）？

Select Case MainTable.Name
    Case "表A"
        Select Case E.Col.Name
            Case "第一列"
                messagebox.show("表A第一列")
            Case "第二列"
                messagebox.show("表A第二列")
            Case "第三列"
                \' messagebox.show("表A第三列")
        End Select
End Select
--  作者：有点蓝
--  发布时间：2018/3/9 10:03:00
--  
Dim t As Table = MainTable
Select Case t.Name
    Case "表A"
        Select Case t.Cols(t.ColSel).Name
            Case "第一列"
                messagebox.show("表A第一列")
            Case "第二列"
                messagebox.show("表A第二列")
            Case "第三列"
                \' messagebox.show("表A第三列")
        End Select
End Select
--  作者：L88919138
--  发布时间：2018/3/9 16:22:00
--  
谢谢大师指点。