以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  执行前确认  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99858)

--  作者:yangwenghd
--  发布时间:2017/4/28 0:54:00
--  执行前确认
CurrentTable.Current.Delete()
msgbox("已删除选择行")

这样在执行这点代码前弹出一个选择是否的窗口吗? 感谢 感谢 

--  作者:有点色
--  发布时间:2017/4/28 8:42:00
--  
Dim Result As DialogResult
Result = MessageBox.Show("你确定要删除当前行吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    CurrentTable.Current.Delete
    MessageBox.Show("已经删除.","提示")
End If