[求助]库存消耗自动计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each dr As DataRow In DataTables("库存消耗").DataRows
    Dim fdr As DataRow = DataTables("排程").DataRows(0)
    Dim flag As Boolean = False
    Dim sum As Double = 0
    For Each dc As DataCol In fdr.DataTable.DataCols
        If flag Then
            For i As Integer = 1 To fdr.DataTable.DataRows.Count-1
                Dim cdr As DataRow = fdr.DataTable.DataRows(i)
                sum += val(dr(cdr("第一列"))) * val(cdr(dc.name))
            Next
            If sum >= dr("库存")
                dr("预计消耗日期") = fdr(dc.name)
                Exit For
            End If
        Else
            If fdr(dc) = dr("库存统计日期") Then
                flag = True
            End If
        End If
    Next

Next

主题：[求助]库存消耗自动计算