KeyDownEdit事件
If e.Col.Name = "条形码" AndAlso e.KeyCode = 13 Then e.cancel = True Dim nr As Row = e.Table.AddNew e.Table.Select(nr.Index, e.Col.Index) e.Table.StartEditingEnd If