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

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

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

通过Name属性和Index属性，我们可以获得指定名称列的位置，也可以获得指定位置列的名称：

例如：

Output.Show("金额列的位置是:" & Tables("订单").Cols("金额").Index)
Output.Show("第三列的名称是:" & Tables("订单").Cols(2).Name)

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

既然Index可以获得指定名称列的位置，那么实现你的要求很简单：

With CurrentTable
     CurrentTable.Select(.RowSel, .Cols("金额").Index)

End With

谢谢了。
但是，把
            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有这个型号，提示后删除刚刚编辑的型号内容，使得光标再回到本行型号列这格单元格，以便继续编辑。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

定位时候总是往右多了一列。
可能是因为结束编辑的时候，已经送入一个右移键，你可以自己减去1。

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

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

我也没有好的办法。

要不这样，在BeforeSelChange事件中设置代码，在不满足特定条件下，无法选择别的列。