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栏的第二项中，所以“？”和“提示”有错误，谢谢！！！！