专家坐堂-代码执行过程报错，请老师给看看Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If 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 = 1 To nma.Length - 1

dr(nmb(i)) = e.DataRow(nma(i))

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))

Tables("项目立项基础表2").Current.Delete

Else

End If