Foxtable(狐表)用户栏目专家坐堂 → systemready对beforeSaveDatarow不起作用


  共有1944人关注过本帖树形打印复制链接

主题:systemready对beforeSaveDatarow不起作用

帅哥哟,离线,有人找我吗?
vimin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:1536 威望:0 精华:0 注册:2018/4/11 21:01:00
systemready对beforeSaveDatarow不起作用  发帖心情 Post By:2020/6/22 14:53:00 [只看该作者]

我在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中的代码不起作用应该怎么写,用暂停单个事件的方法应该也是一样不会起作用的吧

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:1536 威望:0 精华:0 注册:2018/4/11 21:01:00
  发帖心情 Post By:2020/6/22 15:32:00 [只看该作者]

好的,我还是用单个事件控制的方法

 回到顶部