Select Case e.DataCol.Name
Case "审批人"
If e.newvalue > "" Then
Dim dr As DataRow = DataTables("商业摄影管理系统").Find("合同编号 = '" & e.DataRow("合同编号") & "'")
Dim nms() As String = {"签约日期","合同编号","客户信息_客户名称","客户信息_详细地址","客户信息_联系人","客户信息_联系电话","服务包超市_服务包分类","服务包超市_服务包名称","服务包超市_服务类型","装修素材来源_图片","装修素材来源_视频","店铺计划开通日期","备注栏"}
Dim nms2() As String = {"签约日期","合同编号","客户信息_客户名称","客户信息_详细地址","客户信息_联系人","客户信息_联系电话","服务包超市_服务包分类","服务包超市_服务包名称","服务包超市_服务类型","装修素材来源_图片","装修素材来源_视频","店铺计划开通日期","备注栏"}
If dr Is Nothing Then
dr = DataTables("商业摄影管理系统").AddNew
End If
For i As Integer = 0 To nms.Length - 1
dr(nms2(i)) = e.DataRow(nms(i))
Next
dr.save
dr = DataTables("视觉营销管理系统").Find("合同编号 = '" & e.DataRow("合同编号") & "'")
nms2 = {"签约日期","合同编号","客户信息_客户名称","客户信息_详细地址","客户信息_联系人","客户信息_联系电话","服务包超市_服务包分类","服务包超市_服务包名称","服务包超市_服务类型","装修素材来源_图片","装修素材来源_视频","店铺装修_店铺计划开通日期","备注栏"}
If dr Is Nothing Then
dr = DataTables("视觉营销管理系统").AddNew
End If
For i As Integer = 0 To nms.Length - 1
dr(nms2(i)) = e.DataRow(nms(i))
Next
dr.save
Else
Dim dr As DataRow = DataTables("商业摄影管理系统").Find("合同编号 = '" & e.DataRow("合同编号") & "'")
If dr IsNot Nothing Then
dr.delete
dr.save
End If
dr = DataTables("视觉营销管理系统").Find("合同编号 = '" & e.DataRow("合同编号") & "'")
If dr IsNot Nothing Then
dr.delete
dr.save
End If
End If
End Select
加好友 
发短信
Post By：2020/3/26 15:56:00 [显示全部帖子]
