改成
If e.Table.Cols(e.Table.Colsel).name = "货物名称" AndAlso e.keycode = keys.enter AndAlso e.Table.rowsel < e.Table.Rows.count-1 Then
e.cancel = True
e.Table.Select(e.Table.rowsel,e.Table.Cols("重量").Index)
ElseIf e.Table.Cols(e.Table.Colsel).name = "重量" AndAlso e.keycode = keys.enter AndAlso e.Table.rowsel < e.Table.Rows.count-1 Then
e.cancel = True
e.Table.Select(e.Table.rowsel,e.Table.Cols("车号").Index)
ElseIf e.Table.Cols(e.Table.Colsel).name = "车号" AndAlso e.keycode = keys.enter AndAlso e.Table.rowsel < e.Table.Rows.count-1 Then
e.cancel = True
e.Table.Select(e.Table.rowsel+1,e.Table.Cols("公司名称").Index)
End If
加好友 
发短信
Post By：2018/6/10 22:35:00 [显示全部帖子]
