主题：子表数量超过父表的数量时，如何给出错误提示

AB表关联，当关联子表的数量总和超过父表的总数量时，给出错误提示，该怎么写代码?

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

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

在父子表DataColChanged中都做判断，如果数量列有变动则分别计算父表和子表的数量进行比较

http://www.foxtable.com/help/topics/0625.htm

http://www.foxtable.com/help/topics/0393.htm

表B DataColChanged

Select Case e.DataCol.Name
    Case "数量"
        Dim pdr As DataRow = e.DataRow.GetParentRow("表A")
        If pdr IsNot Nothing
            Dim yl As Double = pdr("总数量") - pdr("已出数量") '计算剩余可以开piao的数量
            If yl < 0 Then
                msgbox("超出")
            Else
                pdr("余量") = yl
            End If
        End If
End Select