Foxtable(狐表)用户栏目专家坐堂 → 关闭项目是选择是否都关闭项目 代码如下


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

主题:关闭项目是选择是否都关闭项目 代码如下

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


加好友 发短信
等级:幼狐 帖子:198 积分:1533 威望:0 精华:0 注册:2015/1/12 10:59:00
关闭项目是选择是否都关闭项目 代码如下  发帖心情 Post By:2015/4/28 15:17:00 [只看该作者]

Dim Result As DialogResult
Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result=DialogResult.No
e.Cancel=True
Else 
e.Cancel= False

End If

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:18:00 [只看该作者]

Dim Result As DialogResult
Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result=DialogResult.No then
e.Cancel=True
End If

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


加好友 发短信
等级:幼狐 帖子:198 积分:1533 威望:0 精华:0 注册:2015/1/12 10:59:00
还是选择是否,都关闭系统呢  发帖心情 Post By:2015/4/28 15:23:00 [只看该作者]

……

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:24:00 [只看该作者]

你写错事件了吧
写在BeforeCloseProject

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


加好友 发短信
等级:幼狐 帖子:198 积分:1533 威望:0 精华:0 注册:2015/1/12 10:59:00
没有就是写在beforecloseproject  发帖心情 Post By:2015/4/28 15:49:00 [只看该作者]

……

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:50:00 [只看该作者]

不可能,上例子.

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


加好友 发短信
等级:幼狐 帖子:198 积分:1533 威望:0 精华:0 注册:2015/1/12 10:59:00
例子  发帖心情 Post By:2015/4/28 15:53:00 [只看该作者]

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


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:56:00 [只看该作者]

Dim Result As DialogResult
Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result=DialogResult.Yes  Then
Else
e.Cancel=True
End If

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


加好友 发短信
等级:幼狐 帖子:198 积分:1533 威望:0 精华:0 注册:2015/1/12 10:59:00
这样不管是否都不离开项目了  发帖心情 Post By:2015/4/28 15:58:00 [只看该作者]

……


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/28 15:58:00 [只看该作者]

不是,搞错了
你问题的真正原因是未赋值

Result=Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

 回到顶部
总数 11 1 2 下一页