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 IfEnd If