主题：求 重置光标当前所在单元格的代码

代码：

If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then
    Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol
    Dim dr As DataRow = CurrentTable.Current.DataRow
    dc.RaiseDataColchanged(dr)
End If

这是参考系统菜单模板和狐爸的回复写的。经过实践证明可用。