BIN老师 这个删除操作我这样写 但是没有效果
Dim dr As DataRow = DataTables("数据操作日志").AddNew()
dr("ID") = e.DataRow("_Identify")
dr("用户") = User.Name
dr("操作") = "删除档案(" & Tables("表A").Current("ID") & ")" 【如果将Tables("表A")换成动态获取表名怎么操作呢】
dr("时间") = Date.Now()
dr("涉及表") = e.DataTable.Name
dr("涉及列") = e.DataCol.Name
dr("涉及行") = e.DataRow("_Identify")
Tables("表A").Current.Delete
DataTables("表A").Save()
新增操作我这样写 也是没有效果
Tables("表A").AddNew()
Dim dr As DataRow = DataTables("数据操作日志").AddNew()
dr("ID") = e.DataRow("_Identify")
dr("用户") = User.Name
dr("操作") = "新增客户档案"
dr("时间") = Date.Now()
dr("涉及表") = e.DataTable.Name
[此贴子已经被作者于2014-7-2 22:57:26编辑过]