Foxtable(狐表)用户栏目专家坐堂 → [求助]关于窗口关闭按钮


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

主题:[求助]关于窗口关闭按钮

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


加好友 发短信
等级:婴狐 帖子:29 积分:278 威望:0 精华:0 注册:2017/5/14 18:41:00
[求助]关于窗口关闭按钮  发帖心情 Post By:2017/6/12 23:13:00 [只看该作者]

怎么用代码实现利用狐表本身关闭窗口的按钮?也就是窗口右上角的叉叉图片点击可在新窗口打开查看求大神指教!谢谢

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 9:53:00 [只看该作者]

 e.form.Close

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


加好友 发短信
等级:婴狐 帖子:29 积分:278 威望:0 精华:0 注册:2017/5/14 18:41:00
  发帖心情 Post By:2017/6/13 11:37:00 [只看该作者]

If DataTables("商品信息表").HasChanges
    If MessageBox.Show("商品信息表表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("商品信息").Save()
    End If
End If
e.Form.Close


这代码要怎么改?我想实现点击关闭窗口按钮执行,执行前先提示再关闭

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 11:42:00 [只看该作者]

这个意思?

 

 

If DataTables("商品信息表").HasChanges
    If MessageBox.Show("商品信息表表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("商品信息").Save()
        e.Form.Close
    End If
Else
    e.Form.Close
End If


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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2017/10/22 19:11:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/22 19:28:00 [只看该作者]

1、timertick写统计代码

 

http://www.foxtable.com/webhelp/scr/1301.htm

 

http://www.foxtable.com/webhelp/scr/0548.htm

 

2、关闭代码 e.Form.Close


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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2017/10/22 21:10:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/22 21:35:00 [只看该作者]

 

timertick事件,写代码。

 

e.Form.Controls("TextBox1").Text = Tables("表A").Compute("sum(第一列)")

 


 回到顶部