以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按键操作  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69449)

--  作者:yifan3429
--  发布时间:2015/6/5 11:34:00
--  按键操作
我想按下  ctrl  时双击行头  执行如下
Tables("订单").OpenLoadTree("客户类别|区域|顾客称呼")
如果不按

执行 打开某窗口

If e.Control = True AndAlso e.Table.Current IsNot Nothing Then
    Dim r As Row = e.Table.Current
    Select Case e.Control
            
    End Select
End If

--  作者:大红袍
--  发布时间:2015/6/5 12:01:00
--  
 If ModifierKey = Keys.Control Then
    msgbox(1)
Else
    msgbox(2)
End If