主题：求助代码

求助各位大侠：

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

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

 

此主题相关图片如下：1.jpg

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

点击浏览该文件:管理项目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("年级", "大学", "年级 = '高三'")

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

 从大学开始升，最后到小小班