主题：[求助] 自动计算库存公式

传个文件看看，应该很简单

你可以试试for  next,思路就是遍历汇总表的每一行，同时二级遍历登记表，，最后写入

 要不你试试？

Dim hs As Integer =Tables("材料库存汇总表").Rows.Count - 1
Dim hs2 As Integer =Tables("材料出入库登记表").Rows.Count - 1
If hs > -1 Then
    Dim m As Integer
    Dim m2 As Integer
    For m = 0 To hs
        Dim dr As DataRow = DataTables("材料库存汇总表").DataRows(m)
        Dim su As Integer
        For m2 = 0 To hs2
            Dim dr2 As DataRow = DataTables("材料出入库登记表").DataRows(m2)
            If dr2("设备厂家") = dr("设备厂家") And dr2("设备类型") = dr("设备类型") And dr2("设备型号") = dr("设备型号") And dr2("板件名称") = dr("板件名称") And dr2("板件型号") = dr("板件型号")  And dr2("交直流电") = dr("交直流电") Then
                Dim i As Integer
                If dr2("出入库") = "出库" Or dr2("出入库") = "返修" Or dr2("出入库") = "报废" Then
                    i = -1 * dr2("收支数量")
                Else
                    i = dr2("收支数量")
                End If
                su = su + i
            Else
                Continue For
            End If
        Next
        dr("库存数量") = su
    Next
End If

又细看了你的代码，代码应该没有错误，错误应该是你登记表中含有汇总表中没有的类型，你可以在代码前加一段代码判断汇总表中是否有没有的数据，要是有的话新添加行并设置相应数据，这样的话应该就可以了