- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 删除按钮提示怎么做? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123314)
-- 发布时间：2018/8/11 22:27:00
-- 删除按钮提示怎么做?
请问:
表上删除行有提示,窗口中删除直接就删了,没提示,怎么加上去?Tables("基本信息").Current.Delete
-- 发布时间：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
-- 发布时间：2018/8/12 0:02:00
--
谢谢!
-- 发布时间：2018/8/12 9:57:00
--
其实直接用系统命令Syscmd.Row.Delete()就可以了