以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有列名事件吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140550)
--  作者：yifan3429
--  发布时间：2019/9/8 12:28:00
--  有列名事件吗
单击单击列标题打开窗口    我可以最特殊列做规范说明或是设置等

例如单击 第一列 标题打开 窗口1  单击 第二列 标题打开 窗口2
[此贴子已经被作者于2019/9/8 13:54:07编辑过]
--  作者：y2287958
--  发布时间：2019/9/8 14:20:00
--  

没有现成的

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77806&skin=0
--  作者：yifan3429
--  发布时间：2019/9/8 23:12:00
--  
谢谢

Public headCol As Integer = -1

Public Sub MouseLeaveCellHandler(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs )
headcol = -1
End Sub

Public Sub MouseEnterCellHandler(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs )
If e.Row = 0 Then
    headcol = e.Col
End If
End Sub

Public Sub DoubleClickHandler(sender As object, e As System.EventArgs)
If headcol <> -1 Then
    msgbox(sender.Name & " " & Tables(sender.Name).Cols(headcol-1).Name)
End If
End Sub


我想改成 单击 第一列 标题打开 窗口1  单击 第二列 标题打开 窗口2
--  作者：有点蓝
--  发布时间：2019/9/9 8:48:00
--  
Public Sub DoubleClickHandler(sender As object, e As System.EventArgs)
If headcol <> -1 Then
    if Tables(sender.Name).Cols(headcol-1).Name) = "第一列" then
forms(“窗口1”).open
elseif Tables(sender.Name).Cols(headcol-1).Name) = "第二列" then
……
End If
End Sub