主题：（求助）如何设置代码 使在某一事件发生前出现一个确认框（确认或取消）

If e.DataCol.Name = "是否还原到学生情况表" Then With Tables("历史学生学生情况表") For i As Integer = .BottomRow To .TopRow Step -1 Dim r1 As Row = .Rows(i) Dim r2 As Row = Tables("学生情况表").AddNew For Each c As Col In .Cols r2("学号") = r1("学号") r2("姓名") = r1("姓名") r2("性别") = r1("性别") r2("籍贯") = r1("籍贯") r2("民族") = r1("民族") r2("出生日期") = r1("出生日期") r2("专业班级") = r1("专业班级") r2("大学期间参与活动情况_第一学期参与活动") = r1("大学期间参与活动情况_第一学期参与活动") r2("大学期间参与活动情况_第二学期参与活动") = r1("大学期间参与活动情况_第二学期参与活动") r2("大学期间参与活动情况_第三学期参与活动") = r1("大学期间参与活动情况_第三学期参与活动") r2("大学期间参与活动情况_第四学期参与活动") = r1("大学期间参与活动情况_第四学期参与活动") r2("大学期间参与活动情况_第五学期参与活动") = r1("大学期间参与活动情况_第五学期参与活动") r2("大学期间参与活动情况_第六学期参与活动") = r1("大学期间参与活动情况_第六学期参与活动") r2("大学期间参与活动情况_第七学期参与活动") = r1("大学期间参与活动情况_第七学期参与活动") r2("大学期间参与活动情况_第八学期参与活动") = r1("大学期间参与活动情况_第八学期参与活动") r2("电话号码") = r1("电话号码") r2("备注") = r1("备注") r2("现居住地址") = r1("现居住地址") r2("职务") = r1("职务") Next r1.Delete() Next End With End If

If e.DataCol.Name = "是否还原到学生情况表" Then
    If MessageBox.Show("?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = 6 Then

原来的代码

 

我的之设计在表属性 事件 B栏的第二项中，所以“？”和“提示”有错误，谢谢！！！！