求助各位大侠：

1.当父表（开设班级中）的列“结束日期”大于当前日期时，子表（报名数据库）中的列“本次学习结束核销”逻辑型就自动打勾？代码写到哪儿?如何写？

2.学生家庭信息中的列“班级”如果是一年级的，到明年9月1号自动升一级，即二年级到“目前班级”中，代码如何写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

1、加一列表达式引用父表的核销列，然后在afterOpenProject加入代码 DataTables("开设的班级").ReplaceFor("课程结束核销", True, "结束日期 < #" & Date.Today & "#")

2、同样，可以加入一个按钮，点击按钮升级。 DataTables("学生家庭信息库").ReplaceFor("目前班级", "二年级", "目前班级 < \'一年级\'")

甜老师，实际上我们在升班级这个操作时，不仅仅是针对一年级的学生，比如今年小小班，明年9月1与自动升小班；再如今年是二年级的，明年9月1号自动升三年级，一至要到大学，这个代码能弄出来么？

 同样这样写，写多几行就行

DataTables("学生家庭信息库").ReplaceFor("目前班级", "二年级", "目前班级 = \'一年级\'")

老师我写了：

\'DataTables("学生家庭信息库").ReplaceFor("年级", "小班", "年级 = \'小小班\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "中班", "年级 = \'小班\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "大班", "年级 = \'中班\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "一年级", "年级 = \'大班\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "二年级", "年级 = \'一年级\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "三年级", "年级 = \'二年级\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "四年级", "年级 = \'三年级\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "五年级", "年级 = \'四年级\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "六年级", "年级 = \'五年级\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "初一", "年级 = \'六年级\'")
\'
\'DataTables("学生家庭信息库").ReplaceFor("年级", "初二", "年级 = \'初一\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "初三", "年级 = \'初二\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "高一", "年级 = \'初三\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "高二", "年级 = \'高一\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "高三", "年级 = \'高二\'")
\'DataTables("学生家庭信息库").ReplaceFor("年级", "大学", "年级 = \'高三\'")

可结果全部返回值是“大学”