- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 子表数量超过父表的数量时，如何给出错误提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75860)
-- 发布时间：2015/10/16 1:44:00
-- 子表数量超过父表的数量时，如何给出错误提示
AB表关联，当关联子表的数量总和超过父表的总数量时，给出错误提示，该怎么写代码?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2015/10/16 7:56:00
--
什么意思,如果是关联表主表只能有一条数据,子表可以无限制的呀?
-- 发布时间：2015/10/16 8:51:00
--
是里面的数据，不是行数
-- 发布时间：2015/10/16 9:06:00
--
在父子表DataColChanged中都做判断，如果数量列有变动则分别计算父表和子表的数量进行比较
http://www.foxtable.com/help/topics/0625.htm
http://www.foxtable.com/help/topics/0393.htm
-- 发布时间：2015/10/16 9:11:00
--
表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("已出数量") \'计算剩余可以开票的数量
If yl < 0 Then
msgbox("超出")
Else
pdr("余量") = yl
End If
End If
End Select