以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于表的KeyDown事件,很奇怪的问题.  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21046)
--  作者：yankunhao
--  发布时间：2012/6/28 14:29:00
--  关于表的KeyDown事件,很奇怪的问题.

我在一个表的KeyDown事件代码如下,在我的电脑(xp)里测试按下空格时正常的,但在同事的繁体win7笔记本里按空格时没反应,请问这是什么原因呢.我试过他的键盘是没问题的.

 

 

Dim t As Table = e.Table
Dim c As Col = t.Cols(t.Colsel)
Select Case c.name
    Case "料品编码","料品规格","料品名称","客户编码"
       
        If e.Control = False AndAlso e.Alt=False Then
            If e.keycode=keys.Space Then
                e.Cancel=True
                Forms("订单明细录入").Show
               
            End If
           
        End If
End Select

If e.Control = True AndAlso e.KeyCode = Keys.D Then
    Syscmd.Edit.RepeatFill()
End If

If e.Control = True AndAlso e.KeyCode = Keys.s Then
    Syscmd.Edit.SerialFill()
End If
--  作者：狐狸爸爸
--  发布时间：2012/6/28 15:00:00
--  
可能繁体下，人家的列名也是繁体的，你代码中使用的是简体的列名，所以失效了
--  作者：yankunhao
--  发布时间：2012/6/28 15:08:00
--  
列名是简体的,在繁体下我们用AppLocale运行软件的,其他与这些字段相关的代码都没问题.