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

重置列用RaiseDataColChanged，那么重置行呢？当前行如何重置？也就是当当前行某列的内容改变后重算当前行。

重置员工表的当前行：
 
Dim dr As DataRow = Tables("员工").Current.DataRow
DataTables("员工").DataCols("出生日期").RaiseDataColChanged(dr)

老总的代码应该放在哪里啊？我需要放在表DataColChanged事件中。不是按钮。

此代码放在表事件中后自动关闭项目。

在你想重置行的地方：

 

Dim dr As DataRow = 你要重置的行

DataTables("员工").DataCols("出生日期").RaiseDataColChanged(dr)

 

建议看看：

http://www.foxtable.com/help/topics/1468.htm

http://www.foxtable.com/help/topics/1453.htm

 

代码：

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

 

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