Foxtable(狐表)用户栏目专家坐堂 → 删除按钮提示怎么做?


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

主题:删除按钮提示怎么做?

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


加好友 发短信
等级:幼狐 帖子:97 积分:1113 威望:0 精华:0 注册:2017/6/14 10:15:00
删除按钮提示怎么做?  发帖心情 Post By:2018/8/11 22:27:00 [只看该作者]

请问:
表上删除行有提示,窗口中删除直接就删了,没提示,怎么加上去?
Tables("基本信息").Current.Delete

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


加好友 发短信
等级:小狐 帖子:373 积分:3107 威望:0 精华:0 注册:2015/1/30 9:47:00
  发帖心情 Post By:2018/8/11 22:50:00 [只看该作者]

加个对话框就可以了

Dim Result As DialogResult
Result = MessageBox.Show(
"是否删除本行?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
Result = DialogResult.Yes Then

       Tables("基本信息").Current.Delete
    MessageBox.Show(
"数据已删除","提示")
End if


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


加好友 发短信
等级:幼狐 帖子:97 积分:1113 威望:0 精华:0 注册:2017/6/14 10:15:00
  发帖心情 Post By:2018/8/12 0:02:00 [只看该作者]

谢谢!图片点击可在新窗口打开查看

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


加好友 发短信
等级:狐神 帖子:4724 积分:34374 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/8/12 9:57:00 [只看该作者]

其实直接用系统命令Syscmd.Row.Delete()就可以了


 回到顶部