主题：如何重置当前行，或选定的行？

代码：

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

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