以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何重置当前行，或选定的行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11753)
--  作者：yanzhen2010
--  发布时间：2011/8/10 14:31:00
--  如何重置当前行，或选定的行？
重置列用RaiseDataColChanged，那么重置行呢？当前行如何重置？也就是当当前行某列的内容改变后重算当前行。
--  作者：狐狸爸爸
--  发布时间：2011/8/10 14:35:00
--  
重置员工表的当前行：
 
Dim dr As DataRow = Tables("员工").Current.DataRow
DataTables("员工").DataCols("出生日期").RaiseDataColChanged(dr)
--  作者：yanzhen2010
--  发布时间：2011/8/10 16:52:00
--  
以下是引用狐狸爸爸在2011-8-10 14:35:00的发言：
重置员工表的当前行：
 
Dim dr As DataRow = Tables("员工").Current.DataRow
DataTables("员工").DataCols("出生日期").RaiseDataColChanged(dr)

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

此代码放在表事件中后自动关闭项目。
--  作者：狐狸爸爸
--  发布时间：2011/8/10 17:07:00
--  

在你想重置行的地方：

 

Dim dr As DataRow = 你要重置的行

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

 

建议看看：

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

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

 
--  作者：pc005637
--  发布时间：2012/2/8 17:35:00
--  回复：（yanzhen2010）如何重置当前行，或选定的行？

代码：

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

 

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