早前曾看过近似例子, 现又找不到, 请狐爸指点一下

按可用库存量分配到下列单据, 不够分配的只分配尾数. 谢 !

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

\'看样子是根据欠料数量来重新分配，用do loop代码循环吧。

发了个项目, 请狐爸帮忙解决一下,

不懂如何弄分配. 之前看过一个例子是输入总数, 自动分配到下列单据. 现找不到之例子.

狐表我是新丁啊, 这是第一个项目, 还有很多不明地方要学习.

选择仓库 是给用户指定分配那几个仓库之库存.

这窗刚重做, 有很多不足地方.

Select Case e.DataCol.Name
    Case "ASSIGN_QTY"
        Dim zwh As String = Forms("备料单分配").Controls("备料单分配ComboBox2").value
        Dim zitem As String = Forms("备料单分配").Controls("备料单分配Label5").text
        Dim zqty As Double = Val(Forms("备料单分配").Controls("备料单分配Label4").text)

        If e.DataRow("POSTED")= False And e.DataRow("Item_No")=zitem Then
            Dim Dt1 As DataTable = DataTables("PRWIRD")
            Dim ftr As String = "Item_no = \'"& zitem &"\'"
            For Each dr As DataRow In Dt1.Select(ftr)
\'      Messagebox.show("WH :" & zwh & " ITEM :" & zitem & " zQty :" &zqty & chr(13) &" -> Remain :" & dr("REMAIN_QTY") & "-> ASS:" & dr("ASSIGN_QTY"))
                If zqty >  dr("REMAIN_QTY") Then
                    dr("ASSIGN_QTY") = dr("REMAIN_QTY")
                    zqty = zqty - dr("ASSIGN_QTY")
      messagebox.show(">remain ASS="&dr("ASSIGN_QTY")& " zqty="&zqty)
                Else
                    If zqty < 0 Then
      messagebox.show("zqty < 0 (EXIT) :" &zqty)
                        Exit For
                    Else
      Messagebox.show("ASS=Zqty :" &zqty)
                    dr("ASSIGN_QTY") = zqty
                    zqty = zqty - zqty
                    End If
                End If
            Next
\'            e.DataRow("POSTED").VALUE = True
            messagebox.show(zitem & " 分配完成 ! 余:" &zqty)
            Return
        End If

End Select

请帮忙看看为何分配后不写入表里及不在 Table1里显示出来