主题：日期比较

改成

If e.Table.Cols(e.Table.Colsel).name = "二次时间" AndAlso e.keycode <> keys.Space AndAlso e.keycode <> keys.Delete AndAlso e.keycode <> keys.Escape AndAlso e.keycode <> keys.Down AndAlso e.keycode <> keys.up AndAlso e.keycode <> keys.left AndAlso e.keycode <> keys.right Then
    e.Cancel = True
End If