求助代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

漂亮美眉vszh

求助各位大侠：

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

漂亮美眉vszh

以下是引用有点甜在2014-10-23 9:32:00的发言：

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

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

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

漂亮美眉vszh

以下是引用有点甜在2014-10-23 14:03:00的发言：

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

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

[此贴子已经被作者于2014-10-23 14:03:25编辑过]

老师我写了：

'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("年级", "大学", "年级 = '高三'")

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

[此贴子已经被作者于2014-10-23 15:38:53编辑过]

主题：求助代码