Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
我在BeforeSaveDataRow这样写合适吗?
Dim dra As DataRow = DataTables("审计事件").AddNew
dra("GUID") = Vars("_Guid")
dra("用户") = Vars("_Username")
dra("用户名") = Vars("_Chname")
dra.Save
Dim name As New List (Of String) From {"姓名", "用户名", "密码", "用户类型", "创建日期", "禁用", "禁用日期"}
For i = 0 To 6
Dim dr As DataRow = DataTables("审计_变更明细").AddNew
dr("GUID") = Vars("_Guid")
dr("属性名称") = e.DataTable.DataCols(name(i)).Name
If e.DataRow(name(i)) = e.DataRow.OriginalValue(name(i)) Then
Else
dr("变更前") = e.DataRow.OriginalValue(name(i))
dr("变更后") = e.DataRow(name(i))
End If
dr.Save
Next
DataColChanged 是一只要一修改了就会记录 不知道怎么处理保存后才记录。
Dim name As New List (Of String) From {"姓名", "用户名", "密码", "用户类型", "创建日期", "禁用", "禁用日期"}
For i = 0 To name.count- 1
If e.DataRow(name(i)) = e.DataRow.OriginalValue(name(i)) ThenElse
Dim dr As DataRow = DataTables("审计_变更明细").AddNew
dr("GUID") = Vars("_Guid")
dr("属性名称") = e.DataTable.DataCols(name(i)).Name
dr("变更前") = e.DataRow.OriginalValue(name(i))
dr("变更后") = e.DataRow(name(i))
dr.save
End If
Next