| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]删除按钮 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91508) |
| -- 作者：77611471 -- 发布时间：2016/10/12 13:51:00 -- [求助]删除按钮 要建一个按钮，作用是删除光标所在的行，删除前出现一个提示页，显示当前所在的序号，有两个“确定”和“取消”按钮，点下“确定”后删除所在行，“取消”后取消当前操作！ |
| -- 作者：有点蓝 -- 发布时间：2016/10/12 14:50:00 -- 参考： |
| -- 作者：有点蓝 -- 发布时间：2016/10/12 14:54:00 -- If Tables("表A").Current IsNot Nothing Then Dim Result As DialogResult Result = MessageBox.Show("删除第" & Tables("表A").Position + 1 & "行?", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) If Result = DialogResult.OK Then Tables("表A").Current.Delete End If End If
|