为了建立操作日志，在全局表的DataRowAdded事件中添加代码：
Dim strPrj As String
Dim dr As DataRow
Dim strInfo As String
Dim blValible As Boolean = False
Select Case e.DataTable.Name
Case "项目表"
strInfo = "增加了一个工程:" & e.DataRow("项目简称")
blValible = True
Case "合同表"
strInfo = "增加了一个合同:" & e.DataRow("合同编号")
blValible = True
Case "价格表"
strInfo = "增加了一个合同明细:" & e.DataRow("合同编号") & e.DataRow("名称")
blValible = True
Case "设备材料表"
strInfo = e.DataRow("项目编号") & "的" & "设备材料表" & "增加了一件材料"
blValible = True
End Select
If blValible Then
Dim r As Row = Tables("日志表").AddNew()
r("时间") = Date.Now()
r("操作者") = _UserName
r("操作类别") = "增加记录"
r("操作对象") = e.DataTable.Name
r("操作描述") = strInfo
End If
结果在日志表中发现e.DataRow（"项目简称"）总为空值，但运行结果，该列已被正确赋值
加好友 
发短信
Post By：2022/11/9 22:46:00 [只看该作者]
