主题：小问题！！！

 编写表的keydow事件

 

static prevtime As Date
If e.KeyCode = keys.Enter Then
    Dim sp As TimeSpan = Date.Now - prevtime
    prevtime = Date.Now
    If sp.Milliseconds < 300 Then
        msgbox(1)
    End If
End If

 呃，表属性->事件->keydown

 1、代码写在表事件keydown；

 

 2、代码写在窗口全局事件keydown。

中冠市场部客户表，表事件，keydown

 

static prevtime As Date
If e.KeyCode = keys.Enter Then
    Dim sp As TimeSpan = Date.Now - prevtime
    prevtime = Date.Now
    If sp.Milliseconds < 300 Then
        forms("客户情况调查表").show()
    End If
End If

测试可以。请认真测试。

  呃，我说的是表事件啊，表事件啊，表事件啊，在表属性那里，不在窗口里弄。