主题：主表新增多条记录与子表同步保存问题

Dim i_cgdh As Integer = r("采购单号")

If DataTables("采购明细表").Find("采购单号 = " & i_cgdh ) Is Nothing Then

        MessageBox.Show( i_cgdh & "采购单号请添加采购明细!")

return 

Else

    If DataTables("采购明细表").Find("采购单号 = " & i_cgdh & " And (isnull(数量,0) = 0 or isnull(单价,0) = 0) ") Is Nothing Then

    Else

        MessageBox.Show("明细表数量或单价不可为0!")

return

    End If

End If

        Tables("采购主表").Save()

        Tables("采购明细表").Save()