请教修改代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataRow("商家名称") = "商家名称" Then

e.DataRow("金额") = DataTables("船运明细").Compute("sum(金额)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

e.DataRow("成本") = DataTables("船运明细").Compute("sum(成本)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

e.DataRow("业务量") = DataTables("船运明细").Compute("count(箱型)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

Else

e.DataRow("金额") = DataTables("入库").Compute("sum(合计)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

e.DataRow("成本") = DataTables("入库").Compute("sum(装卸成本)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

e.DataRow("业务量") = DataTables("入库").Compute("count(箱型)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

Else

e.DataRow("金额") = DataTables("出库").Compute("sum(合计)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

e.DataRow("成本") = DataTables("出库").Compute("sum(运输成本)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

e.DataRow("业务量") = DataTables("出库").Compute("count(箱型)","[商家名称]= '" & e.DataRow("商家名称") & "' And [月份]= '" & e.DataRow("月份") & "'And [业务类型]= '" & e.DataRow("业务类型") & "'" )

End If

老师好，Else如何修改？

放一个else可以执行，放了2个代码需要变化吗？

If e.DataRow("业务类型") = "业务类型" Then

ElseIf e.DataRow("业务类型") = "业务类型" Then

Else

End If

第三段代码执行了，前面的不执行。

此主题相关图片如下：1.png

从三个表格导入数据，前面的两个表格的数据没有导入。

主题：请教修改代码