- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码异常求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147888)
-- 发布时间：2020/3/26 15:43:00
-- 代码异常求助
老师您好，我有一段代码总是出现问题，请老师帮我看看代码哪里有问题？谢谢！
附件已上传。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码异常求助.zip |
-- 发布时间：2020/3/26 15:56:00
--
第三个表同样的方式自己添加
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
-- 发布时间：2020/3/26 16:04:00
--
收到老师谢谢，我按照您的代码再试试！谢谢！
