| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- （求助）如何设置代码 使在某一事件发生前出现一个确认框（确认或取消） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10307) |
| -- 作者：faelan -- 发布时间：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 |
| -- 作者：czy -- 发布时间：2011/5/29 20:53:00 -- If e.DataCol.Name = "是否还原到学生情况表" Then 原来的代码
|
| -- 作者：faelan -- 发布时间：2011/5/29 21:08:00 -- 我的之设计在表属性 事件 B栏的第二项中，所以“？”和“提示”有错误，谢谢！！！！ |