Dim Result As DialogResult Result = MessageBox.Show("确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then \'你原来的代码 End If
用这个代码怎么修改呢?
-- 作者:有点甜
-- 发布时间:2017/8/4 16:09:00
--
DataColChanging事件
If e.DataCol.name = "第一列" Then Dim Result As DialogResult Result = MessageBox.Show("确定吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.no Then e.cancel = True End If End If