If e.DataCol.Name = "技术_状态" Then
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
End If
If e.DataCol.Name = "订单编号" Then
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
End If
If e.DataCol.Name = "产品编号" Then
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
End If
如上可以合并一起写 需要怎样写呢 老师们！ 请教了
加好友 
发短信
Post By：2015/6/5 16:48:00 [只看该作者]
