以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按钮弹出确认信息  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26627)

--  作者:ramen
--  发布时间:2012/12/10 16:42:00
--  按钮弹出确认信息
我想点击删除按钮的时候,然后它会弹出一个窗口,确认是否删除信息,如果是点确定,不是就点否,这样怎么弄呢?请教一下高手!谢谢!
--  作者:aubber
--  发布时间:2012/12/10 16:50:00
--  
If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Tables("表名称").Current.Delete
End If

--  作者:lin_hailun
--  发布时间:2012/12/10 16:52:00
--  
 楼上正解。

http://www.foxtable.com/help/topics/0326.htm

--  作者:ramen
--  发布时间:2012/12/10 16:53:00
--  
第一次不会搞,谢谢你!
--  作者:ramen
--  发布时间:2012/12/10 17:25:00
--  
我试了一下,我点击清除按钮的时候,它就先清除了,那个确认窗口才弹出来。麻烦看一下,我上传附件,我想点【清除】【删除】【透支】【剩余】按钮的时候,都弹出确认的窗口。
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:考勤管理 - 副本 (3).table


--  作者:lin_hailun
--  发布时间:2012/12/10 17:31:00
--  
 密码是多少。
--  作者:ramen
--  发布时间:2012/12/10 17:37:00
--  
111222
--  作者:lin_hailun
--  发布时间:2012/12/10 17:45:00
--  
 不是直接加入代码就可以了么?

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

--  作者:ramen
--  发布时间:2012/12/10 17:50:00
--  
修改过的文件看看


--  作者:飞
--  发布时间:2012/12/10 17:52:00
--  

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

currenttable.current.delete

 

我比较习惯这种写法

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