以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表属性  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121163)

--  作者:blsu33
--  发布时间:2018/6/30 11:09:00
--  [求助]表属性
老师,
自定义函数,返回值

Return "cancel"

窗口中如何接收这个值?

自定义一个全局变量?

--  作者:blsu33
--  发布时间:2018/6/30 11:19:00
--  
是这样 想要 窗口关闭前 根据表事件 不允许关闭  怎么设计 

例如 当前行不为空 不允许当前窗口关闭

--  作者:有点蓝
--  发布时间:2018/6/30 11:29:00
--  
窗口beforclose事件

if tables().current isnot nothing then
    e.cancel = true
endif

如果使用函数,函数返回:return true

if Functions.Execute("abc") = true
    e.cancel = true
endif

--  作者:blsu33
--  发布时间:2018/6/30 11:32:00
--  
是这样  表事件 已经写过了,关于表操作的拦截动作 

但是窗口 关闭时 表事件是不能拦截窗口关闭的

那是不是意味着 表事件需要写  窗口的关闭事件 我还要重新 在设计一遍拦截的代码?

[此贴子已经被作者于2018/6/30 11:33:14编辑过]

--  作者:有点蓝
--  发布时间:2018/6/30 11:37:00
--  
没看懂你是怎么用的。截图或者列出代码说明
--  作者:blsu33
--  发布时间:2018/6/30 11:45:00
--  
例如 窗口的关闭事件 ,已经在表中写了 拦截表的事件但是,窗口未写,那还要在窗口在写一遍,我在上传一个视频


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:lp_20180630114835.rar


[此贴子已经被作者于2018/6/30 11:51:50编辑过]

--  作者:blsu33
--  发布时间:2018/6/30 11:53:00
--  
例如 
窗口关闭前事件,下面标注颜色的已经在表事件里写过一遍了是,还在窗口中在写一遍?
If Tables("fa0101").Current.DataRow.RowState<>DataRowState.Unchanged Then
    If MessageBox.Show("是否保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)=DialogResult.Yes Then
        If Functions.Execute("DataColChanging",e)="Cancel" Then
            e.Cancel=True
        ElseIf Functions.Execute("DataColChanged",e)="Cancel" Then
            e.Cancel=True
        ElseIf Functions.Execute("BeforeSaveDataRow",e)="Cancel" Then
            e.Cancel=True
        ElseIf Functions.Execute("BeforeAddDataRow",e)="Cancel" Then
            e.Cancel=True
        ElseIf Functions.Execute("BeforeDeleteDataRow",e)="Cancel" Then
            e.Cancel=True
        End If
        Tables("fa0101").Current.Save
    Else
        e.Cancel=True
    End If
End If
Tables("fa0101").AllowEdit=False
newformenable=True
sh

--  作者:有点蓝
--  发布时间:2018/6/30 12:07:00
--  
右上角的关闭按钮只能通过窗口beforclose事件控制。其它事件无法控制的