主题：科目导入

如何将  账务.table 其中一窗口复制到 汇总.table 中？

导出，然后导入

 

http://www.foxtable.com/help/topics/2413.htm

 

数据表呢？

 

导出成excel，再导入。

                Dim dr As List(Of DataRow) = DataTables("实缴数").Select("单位 = '" &  ws.cells(n+9,2).value & "' and [年月] = '" & y1.Text + m1.text &"'")
                For n1 As Integer = 2 To 11
                    ws.cells(9+n,n1+2).Value = dr(n1)
                Next
dr(n1)应如何改？

Dim dr As List(Of DataRow) = DataTables("实缴数").Select("单位 = '" &  ws.cells(n+9,2).value & "' and [年月] = '" & y1.Text + m1.text &"'")
Dim ary() As String = {"第一列", "第二列", "", "", "", ""}
For n1 As Integer = 2 To 11
    ws.cells(9+n,n1+2).Value = dr(ary(n1-2))
Next

出现错误：Conversion from string "费用抵减" to type 'Integer' is not valid.

加入msgbox弹出对应的值看看，别人不知道你哪句代码错啊。

             Dim ary() As String = "上缴任务,费用抵减,统筹抵减,其他,生猪发展费,费用抵减张数,业务费抵减张数".Split(",")
                For n1 As Integer = 0 To 6
                    ws.cells(9+n,n1+4).Value = dr(ary(n1))
                Next

ary(0) 是 上缴任务 ，应该是"上缴任务" 才对的吧？