If e.DataRow("三审") = "同意" Then
e.DataRow("三审时间") = Date.Today
e.DataRow("三审人") = User.Name
e.DataRow("三审结论") = "同意"
Dim nma() As String = {"项目编号","项目全称","立项人姓名","所属公司","立项日期","预计启动时间","预计完工时间","预计签订合同日期","执行人姓名","立项合同标的额","预计支付虚开fa piao额","预计支付客户返佣额","预计虚开及返佣税点","预计其他收入","立项收入合计","预计项目成本","其中无piao成本","无piao成本税点","预计食宿行费","立项成本合计","立项单毛利","立项单毛利率","审批流"} 'A表数据来源列
Dim nmb() As String = {"项目编号","项目全称","立项人姓名","所属公司","立项日期","预计启动时间","预计完工时间","预计签订合同日期","执行人姓名","立项合同标的额","预计支付虚开fa piao额","预计支付客户返佣额","预计虚开及返佣税点","预计其他收入","立项收入合计","项目立项成本","其中无piao成本","无piao成本税点","预计食宿行费","立项成本合计","立项单毛利","立项单毛利率","立项审批流"} 'B表数据接收列
Dim dr As DataRow = DataTables("项目结项基础表1").AddNew
For i As Integer = 1 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Tables("项目立项基础表2").Current.Delete
ElseIf e.DataRow("三审") = "驳回" Then
e.DataRow("三审时间") = Date.Today
e.DataRow("三审人") = User.Name
e.DataRow("三审结论") = "驳回"
e.DataRow("二审") = ""
e.DataRow("三审") = ""
ElseIf e.DataRow("二审") = "同意" Then
e.DataRow("二审时间") = Date.Today
e.DataRow("二审人") = User.Name
e.DataRow("二审结论") = "同意"
ElseIf e.DataRow("二审") = "驳回" Then
e.DataRow("二审时间") = Date.Today
e.DataRow("二审人") = User.Name
e.DataRow("二审结论") = "同意"
e.DataRow("一审") = ""
e.DataRow("二审") = ""
ElseIf e.DataRow("一审") = "同意" Then
e.DataRow("一审时间") = Date.Today
e.DataRow("一审人") = User.Name
e.DataRow("一审结论") = "同意"
ElseIf e.DataRow("一审") = "驳回" Then
e.DataRow("一审时间") = Date.Today
e.DataRow("一审人") = User.Name
e.DataRow("一审结论") = "驳回"
Dim nma() As String = {"项目编号","项目名称_客户所属区域","项目名称_汽车品牌","项目名称_项目核心内容","立项人姓名","立项日期","预计启动时间","预计完工时间","预计签订合同日期","执行人姓名"} 'A表数据来源列
Dim nmb() As String = {"项目编号","项目名称_客户所属区域","项目名称_汽车品牌","项目名称_项目核心内容","立项人姓名","立项日期","预计启动时间","预计完工时间","预计签订合同日期","执行人姓名"} 'B表数据接收列
Dim dr As DataRow = DataTables("项目立项基础表1").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Tables("项目立项基础表2").Current.Delete
Else
End If
加好友 
发短信
Post By：2018/2/22 10:12:00 [只看该作者]
