主题：选择不同行后实行

......

 

    Else
        Dim count As Integer = 0
        Dim drs As List(Of DataRow) = DataTables("商品库存明细").Select("货品编号 = '" & r("商品编号") & "' AND 可用库存 > 0", "生产日期, _Identify")
        Dim s As String = ""
        Dim cnt As Integer
        For i As Integer = 0 To drs.count - 1
            Dim dr1 As DataRow = drs(i)
            count += dr1("可用库存")
            Dim sy As Integer = count - r("数量")
            s &= dr1("货格") & ","
            If sy >= 0 Then

                cnt = i
                Exit For
            End If
        Next
        For j As Integer = 0 To cnt
            Dim d2 As Row = Tables("商品库存").AddNew()
            '其它后续代码
        Next
    End If

Dim coun As Integer = 0
上面代码放到For循环之外