是设计在表属性 事件 B栏的第二项中。使得当我选择“是否”的选项时，弹出一个确认框（确定或取消）
|
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("职务")
Next
r1.Delete()
Next
End With
End If |
如何填写编码 使这个事件发生前弹出一个确认框 ？
MessageBox.Show("您需要的是这样？", "提示", MessageBoxButtons.OKCancel)
上面这个不行
If e.DataCol.Name = "是否还原到学生情况表" Then
Dim Result As DialogResult
Result = MessageBox.Show("確定嗎?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes 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("职务")
Next
r1.Delete()
Next
End With
End If
End If