方法一:
http://www.foxtable.com/webhelp/scr/0134.htm
方法二:
If e.Col.Name = "条形码" AndAlso e.KeyCode = 13 Then Sendkeys.Send("{down}") e.cancel = TrueEnd If