Dim d As Date = Date.Today

Dim str_m As String = "开票资料"

Dim str_d As String = Format(d,"yyyy年MM月") & str_m

Dim hjkpsl As Integer

Dim erro As Integer = 0   \'定义一个错误计数变量以便在核对"开票明细资料"时计数

If CurrentTable.Rows.Count > 0 Then

    \'首先判断开票明细资料的正确性!(方法:判断本次开票数量即"未开票数量"

    \' +原来开票的数量"累计开票数量"是否=订单数量"需求数量")

    For Each dr As Row In CurrentTable.Rows

        Dim ddh As String = dr("订单编号")

        Dim hh As Integer = dr("行号")

        Dim tbl As DataTable =DataTables("订单明细表")

        Dim dr_tbl As DataRow

        dr_tbl = tbl.Find("订单编号 = \'" & ddh & "\' and 行号 = \'" & hh & "\'")

        If dr_tbl IsNot Nothing Then

            Dim ljkpsl As Integer = dr_tbl("累计开票数量")

            Dim wkpsl As Integer = dr("未开票数量")

            Dim xqsl As Integer = dr_tbl("需求数量")

            hjkpsl = ljkpsl +wkpsl

            If hjkpsl >  xqsl Then

                erro = erro +1

            End If

        End If

    Next

Else

    messagebox.Show("请先导入需要核对的开票资料明细!")

End If

If erro > 0 Then

    messagebox.Show("开票明细资料或其它错误,请检查后重新导入计算!")

    Dim i As Integer = CurrentTable.Rows.Count   ‘ 改为此代码后提示索引超出范围？？？？

    CurrentTable.DataTable.Save

ElseIf erro = 0 And CurrentTable.Rows.Count > 0

    Dim a As Double = DataTables("开票明细表").Compute("sum(开票金额)","开票明细名称 = \'" & str_d & "\'")

    Vars("kpzje") = a      \'把当月开票总金额的值赋给公共变量

    \'以下自动进行核对代码

    For Each dr As Row In CurrentTable.Rows

        Dim ddh As String = dr("订单编号")

        Dim hh As String = dr("行号")

        Dim tbl As DataTable =DataTables("订单明细表")

        Dim dr_tbl As DataRow

        dr_tbl = tbl.Find("订单编号 = \'" & ddh & "\' and 行号 = \'" & hh & "\'")

        If dr_tbl IsNot Nothing Then

            Dim ljkpsl As Integer = dr_tbl("累计开票数量")

            Dim wkpsl As Integer = dr("未开票数量")

            dr_tbl("累计开票数量") = dr_tbl("累计开票数量")+dr("未开票数量")

        End If

        tbl.Save

    Next

    CurrentTable.Filter = "[_identify] Is null"

    Forms("核对结果窗口").open

End If
先谢谢各位高手！