(求助)如何设置代码 使在某一事件发生前出现一个确认框(确认或取消) Post By:2011/5/29 20:40:00 [只看该作者]
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