以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  systemready对beforeSaveDatarow不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151387)
--  作者：vimin
--  发布时间：2020/6/22 14:53:00
--  systemready对beforeSaveDatarow不起作用
我在beforeSaveDatarow中的代码很简单：
Dim zd As String() = {"A","B","AA","BB"}
For Each z As String In zd
    If e.DataRow.IsNull(z) Then
        MessageBox.Show(z & " 必须选择")
        e.Cancel = True
       Return
    End If
Next

做了一个按钮，click事件：
SystemReady = False
DataTables("窗口1_table1").Save()
SystemReady = True

照样会弹出上面的提示。这个怎么回事？如果要让beforeSaveDatarow中的代码不起作用应该怎么写，用暂停单个事件的方法应该也是一样不会起作用的吧
--  作者：有点蓝
--  发布时间：2020/6/22 15:00:00
--  
我反馈一下。

可以这样

if vars("save") = True
Dim zd As String() = {"A","B","AA","BB"}
For Each z As String In zd
    If e.DataRow.IsNull(z) Then
        MessageBox.Show(z & " 必须选择")
        e.Cancel = True
       Return
    End If
Next
endif

按钮，click事件：
vars("save")  = False
DataTables("窗口1_table1").Save()
vars("save")  = True
--  作者：vimin
--  发布时间：2020/6/22 15:32:00
--  
好的，我还是用单个事件控制的方法