- 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=144207)
-- 发布时间：2019/12/13 13:45:00
-- [求助]全局代码
老师好，求在操作表A时如果没有保存提示不能增加删除、上下移动等......。
-- 发布时间：2019/12/13 15:52:00
--
到对应的添加BeforeAddDataRow，删除事件处理BeforeDeleteDataRow，移动BeforeMoveRow
-- 发布时间：2019/12/15 21:49:00
--
老师，对话框反了。
Dim Result As DialogResult
Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("通讯录").Current.Delete
End If
Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("通讯录").Current.Delete
End If
此主题相关图片如下：image 2.png
-- 发布时间：2019/12/15 21:54:00
--
老师，好了。
-- 发布时间：2019/12/15 21:55:00
--
代码没有问题