主题：[求助]

MainTableChanged中：
If MainTable.Name = "销售货物条码明细"
DataTables("销售货物条码明细").DataRows.Clear() 
    For Each r0 As Row In Tables("销售单").Rows
        For i As Integer = 1 To r0("数量") 

            Dim t As Table = Tables("销售货物条码明细")
            Dim r As Row = t.addnew()
            r("销售单号") = r0("销售单号")
            r("货物名称") = r0("货物名称")
            r("提货机型") = r0("提货机型")
            r("数量") = 1
        Next
    Next
End If