以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  解除事件限制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140628)
--  作者：yifan3429
--  发布时间：2019/9/10 10:52:00
--  解除事件限制
Dim r As Row = Tables("凭证").Current
If r IsNot Nothing Then
    If e.DataTable.Compute("Count(凭证ID)","凭证ID = \'" & r("凭证ID") & "\'") >= 10 Then
        msgbox("明细行数已满,请新增一张凭证")
        e.Cancel = True
    End If
End If


正常用于限制数量
窗口想增加一个按钮临时这个限制

BeforeAddDataRow
--  作者：有点蓝
--  发布时间：2019/9/10 11:06:00
--  
if vars("无限制") = false
Dim r As Row = Tables("凭证").Current
If r IsNot Nothing Then
    If e.DataTable.Compute("Count(凭证ID)","凭证ID = \'" & r("凭证ID") & "\'") >= 10 Then
        msgbox("明细行数已满,请新增一张凭证")
        e.Cancel = True
    End If
End If
end if

按钮

vars("无限制") = true