Foxtable(狐表)用户栏目专家坐堂 → 按钮弹出确认信息


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

主题:按钮弹出确认信息

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
按钮弹出确认信息  发帖心情 Post By:2012/12/10 16:42:00 [只看该作者]

我想点击删除按钮的时候,然后它会弹出一个窗口,确认是否删除信息,如果是点确定,不是就点否,这样怎么弄呢?请教一下高手!谢谢!

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


加好友 发短信
等级:幼狐 帖子:137 积分:947 威望:0 精华:0 注册:2012/10/18 7:20:00
  发帖心情 Post By:2012/12/10 16:50:00 [只看该作者]

If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Tables("表名称").Current.Delete
End If

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/10 16:52:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/12/10 16:53:00 [只看该作者]

第一次不会搞,谢谢你!

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/12/10 17:25:00 [只看该作者]

我试了一下,我点击清除按钮的时候,它就先清除了,那个确认窗口才弹出来。麻烦看一下,我上传附件,我想点【清除】【删除】【透支】【剩余】按钮的时候,都弹出确认的窗口。
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:考勤管理 - 副本 (3).table


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/10 17:31:00 [只看该作者]

 密码是多少。

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/12/10 17:37:00 [只看该作者]

111222

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/10 17:45:00 [只看该作者]

 不是直接加入代码就可以了么?

If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
    Tables("考勤数据表").Current.Delete
End If

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/12/10 17:50:00 [只看该作者]

修改过的文件看看


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


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By:2012/12/10 17:52:00 [只看该作者]

if Msgbox("确定要删除当前行吗?",vbYesNo+vbQuestion,"提示") = vbNo then return

currenttable.current.delete

 

我比较习惯这种写法

[此贴子已经被作者于2012-12-10 17:52:02编辑过]

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