标题：代码求助

1楼

zhangxl1964 发表于：2011/11/22 9:04:00

我想通过代码在工资表中从后台取合同记录表中：辞退日期为空时或辞退日期大于工资表中日期的最后一条记录，请问下面的代码应该如何修改？

'DataTables("合同记录").LoadFilter = "[辞退日期] =Nothing or [辞退日期] > Tables(工资表).[日期] And max(DataTables("合同记录").[登记月份])"
'DataTables("合同记录").Load

2楼

狐狸爸爸 发表于：2011/11/22 9:08:00

Dim dt As Date

With DataTables(”工资表")

dt = .Datarows(.DataRows.Count -1)("辞退日期")

End With

DataTables("合同记录").LoadFilter = "[辞退日期] Is Null or [辞退日期] > #" & dt & "#"

DataTables("合同记录").LoadTop = 1

DataTables("合同记录").Load

3楼

mr725 发表于：2011/11/22 9:21:00

帮助中很多类似的代码,你可以照葫芦画瓢的。试试这个看：

"[辞退日期] is not null or [辞退日期] > #"Tables(工资表).current("日期") "# and [登记月份] = " &DataTables("合同记录").Compute("max(登记月份)") "

共3 条记录, 每页显示 10 条, 页签: [1]