这样试试:
If e.Table.Cols(e.Table.Colsel).Name = "产品ID" Then If e.KeyCode = Keys.Enter Then Sendkeys.Send("{tab}") Forms("窗口_选择产品").Show() End IfEnd If