主题：逐行计算问题

有两个表

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


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

 循环 RK表找到KC表的物料编码  找到后 KC表的库存减去RK表的数量 输出剩余数量 逐行计算  直到剩余数量0为止

 

 

For Each dr As DataRow In DataTables("kc").DATARowS

    Dim dr1 As DataRow

    DR1=DataTables("rk").Find("[物料编码] = '" & DR("物料编码") & "'")

    If dr1 IsNot Nothing

        dr("剩余数量")=DR("库存")-dr1("数量")

       

               

       

             End If

        End If

       

       

       

       

       

       

       

    Next

不想求和  就是逐行计算 如果计算到0或者小于0 就把RK表当前行的日期填写到KC表里