主题：光标怎样才能移动到指定单元格？【继续】

光标怎样才能移动到指定单元格？如题

CurrentTable.Select(0,0) 其中行、列能用名称表达吗？
CurrentTable.Select(当前行,指定列名) 怎么表达

老爹呀，你2楼说的与‘移动光标到指定单元格’有关系吗？看不懂啊。 原来易表中的move(row,"某列")多么简单啊（怀念～），能简单点，直接点说吗？

谢谢了。
但是，把
            With CurrentTable
            CurrentTable.Select(.RowSel, .Cols("金额").Index)

      End With

放在AfterEdit事件中怎么不起作用？～ 放在命令窗口中就起作用。郁闷～

afteredit:
        Dim kdm As string = Tables("表A").Current("型号")
        Dim km As DataRow = DataTables("表B").Find("[型号]  = '" & kdm & "'")
          if km IsNot Nothing Then
            Messagebox.Show("表B中已经有此型号!", "提示",MessageBoxButtons.OK) 
            Tables("表A").Current("型号") = Nothing 
            With CurrentTable
            CurrentTable.Select(.RowSel, .Cols("型号").Index)   ‘绿色部分不起作用？？？

         End With
          End if
编辑型号列后，按回车，发现表B有这个型号，提示后删除刚刚编辑的型号内容，使得光标再回到本行型号列这格单元格，以便继续编辑。

其实用Sendkeys.Send("{left}")就能在按enter后回到原来的位置，当然用老爹您的7楼的代码也可以；但是有个问题：如果不是按enter键，而是用鼠标另选同一行其他单元格时，就无法回到代码指定的单元格了！！！～～

您可以试一试！～  怎样做到不论是按enter键，还是鼠标另选单元格都要回到指定的单元格？

在AfterSelChange事件：
Dim kdm As string = Tables("表A").Current("第二列")
          if kdm Is Nothing Then          
               e.Table.Select(e.Table.RowSel, e.Table.Cols("第二列").Index)
          end If
则光标无法移出第二列！除非第二列有字符或数字。这样也就不能编辑其他列了。
诺放在BeforeSelChange事件中，则会自动退出程序！！！
没有人回答？ 或是我6楼和9楼的想法有不妥？

怎样做到不论是按enter键，还是鼠标另选单元格都要回到指定的单元格？(看6、9楼）
这个问题最后再问一下：这是否无法实现？有狐师们能解决吗？

哈哈～ 这个只对enter有效，对鼠标的点击动作无效！  做不到的话这样将就也可以～

程版啊～ 如果要输入的单元格是用项目列选择的一个项目，多半是鼠标完成选项的，这时鼠标再点那个（需自动移到的）单元格时，并不知道条件是否满足呀～，如果不满足条件，就点到下一个单元格即可，如果满足的话一定要跳到指定的某单元格才行啊.