此主题相关图片如下：cg.png

保存按钮：

Dim i_cgdh As Integer = Tables("采购主表").Current("采购单号")

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

        MessageBox.Show("请添加采购明细!")

Else

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

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

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

    Else

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

    End If

End If

这样只能判断与当前主表行相同单号的子表，当主表一次新增多笔同时保存，怎样判断?

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()