主题：多列合并编写代码

Select Case e.DataCol.name
    Case  "订单编号", "技术_状态", "产品编号"
        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 Select