'保存记录时,写入修改用户,修改日期,新建用户,新建日期,操作记录字段值
'MessageBox.Show(e.DataTable.Name, "当前表",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim dr As DataRow = e.DataRow
Dim EL_User_Acc As String = _User_Acc.Trim() '当前登录帐号
Dim EL_User_PN As String = _User_PN.Trim() '当前登录帐号使用名称
Dim EL_DateTime As Date = Date.Now() '当前登录日期时间
Dim EL_Rec_Remark_Chr As String ="" '本次操作记录
Dim EL_Rec_Remark As String = "" '操作记录写入值
EL_Rec_Remark_Chr = EL_User_Acc & ":" & EL_User_PN '当前登录帐号 & 使用名称
If dr.RowState = DataRowState.Added Then '新增加的行
EL_Rec_Remark = "<" & EL_Rec_Remark_Chr & ",于" & Date.Now() & " 新建记录>;" & Chr(10) & Chr(13)
dr("New_Date") = EL_DateTime '新建日期
dr("New_User") = EL_User_Acc '新建用户
dr("Rec_Remark") = EL_Rec_Remark '操作记录
End If
If dr.RowState = DataRowState.Modified Then '已经修改过的行
EL_Rec_Remark = dr("Rec_Remark").Trim()
EL_Rec_Remark = EL_Rec_Remark &"<" & EL_Rec_Remark_Chr & ",于" & Date.Now() & " 修改记录>;" & Chr(10) & Chr(13)
dr("Amend_Date") = EL_DateTime '修改日期
dr("Amend_User") = EL_User_Acc '修改用户
dr("Rec_Remark") = EL_Rec_Remark '操作记录
End If
加好友 
发短信
Post By：2014/1/12 13:59:00 [显示全部帖子]
