主题：[求助]主表的数值如何合理分配给子表

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里显示出来

此主题相关图片如下：qq截图20130503154746.jpg