批量对锁定后的行添加标记并保存的代码
批量对锁定的行添加标记
For Each r As Row In Tables("预算填写").GetCheckedRows
If r.Locked=True
r("财务审核")="财锁"
End If
Next
这一步效率还行，但一保存就很慢，数据量一次大约在几千行。
保存代码
DataTables("预算填写").save
BeforeSaveDataRow事件代码
Dim dr As DataRow = e.DataRow
If dr.Isnull("部门ID") Or dr.Isnull("期间") Or dr.Isnull("费用金额") Then
e.Cancel=True
MessageBox.show("至少要填入部门ID,期间和费用金额!","提示")
Else
Dim dr1 As DataRow = DataTables("修改日志").AddNew
dr1("预算填写ID") = dr("ID")
dr1("用户ID") = _UserName
dr1("用户名称") = _UserXm
dr1("修改时间") = Date.Now
dr1("表名")= "预算填写"
dr1("列名") = "费用金额"
dr1("原数值")= dr.OriginalValue("费用金额")
dr1("现数值") =dr("费用金额")
dr1.save
End If
请教老师，如何能更高效率
加好友 
发短信
Post By：2016/8/16 16:51:00 [只看该作者]
