主题：按顺序操作问题

1、上传具体实例测试；

2、循环为正数的单元格，然后依次从后面递减。

Dim dic_kc As new Dictionary(Of String ,String)  '可用库存
Dim dic_aqkc As new Dictionary(Of String ,String)          '安全库存
Dim dic_bhxq As new Dictionary(Of String ,String)   '补货需求

Dim t As Table = Tables("调拨操作表")
For Each c2 As Col In t.Cols
    If c2.Caption.Contains("可用库存_") And c2.Caption.Contains("店仓名称") = False Then
        Dim v  = c2.Caption.Replace("可用库存_","")
        dic_kc.add(v, c2.name)
    End If
   
    If c2.Caption.Contains("安全库存_") And c2.Caption.Contains("店仓名称") = False Then
        Dim v  = c2.Caption.Replace("安全库存_","")
        dic_aqkc.add(v, c2.name)
    End If
   
    If c2.caption.Contains("补货需求_")  Then
        Dim v  = c2.caption.Replace("补货需求_","")
        dic_bhxq.add(v, c2.name)
    End If
Next
For Each r2 As Row In t.Rows
    For Each key As String In dic_aqkc.Keys
        If r2(dic_aqkc(key)) > 0 Then '
            r2(dic_bhxq(key)) = r2(dic_aqkc(key)) - r2(dic_kc(key))  '算出的补货需求
        End If
    Next
Next

Dim r1 As Row = t.Rows(0)
For i As Integer = 1 To t.Rows.count-1
    For Each key As String In dic_bhxq.Keys
        Dim kcname As String = dic_kc(key)
        Dim bhname As String = dic_bhxq(key)
        If val(t.rows(i)(bhname)) > 0 Then
            Dim count = val(t.Rows(i)(bhname))
            If val(r1(kcname)) > 0 Then
                If val(r1(kcname)) >= val(t.Rows(i)(bhname)) Then
                    Dim ndr As DataRow = DataTables("调拨单据").AddNew
                    ndr("创建时间") = Date.now
                    ndr("调出门店") = r1("店仓ID")
                    ndr("商品款号") = r1("商品款号")
                    ndr("颜色") = r1("颜色")
                    ndr("调入门店") = t.Rows(i)("店仓id")
                    ndr(key) = count
                    'r1(kcname) -= count
                    count = 0
                Else
                    Dim ndr As DataRow = DataTables("调拨单据").AddNew
                    ndr("创建时间") = Date.now
                    ndr("调出门店") = r1("店仓ID")
                    ndr("商品款号") = r1("商品款号")
                    ndr("颜色") = r1("颜色")
                    ndr("调入门店") = t.Rows(i)("店仓id")
                    ndr(key) = r1(kcname)
                    'r1(kcname) = 0
                    count -= r1(kcname)
                End If
                Return i  '调试代码
            End If
           
            If count > 0 Then
                For j As Integer = t.Rows.count-1 To i Step -1
                    Dim r As Row = t.Rows(j)
                    If r(kcname) > 0 Then
                        If r(kcname) >= count Then
                            Dim ndr As DataRow = DataTables("调拨单据").AddNew
                            ndr("创建时间") = Date.now
                            ndr("调出门店") = r("店仓ID")
                            ndr("商品款号") = r("商品款号")
                            ndr("颜色") = r("颜色")
                            ndr("调入门店") = t.Rows(i)("店仓id")
                            ndr(key) = count
                            'r(kcname) -= count
                            count = 0
                        Else
                            Dim ndr As DataRow = DataTables("调拨单据").AddNew
                            ndr("创建时间") = Date.now
                            ndr("调出门店") = r("店仓ID")
                            ndr("商品款号") = r("商品款号")
                            ndr("颜色") = r("颜色")
                            ndr("调入门店") = t.Rows(i)("店仓id")
                            ndr(key) = r(kcname)
                            count -= r(kcname)
                            'r(kcname) = 0
                        End If
                    End If
                    If count = 0 Then Exit For
                Next
            End If
        End If
    Next
Next