以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14499)
--  作者：zhangxl1964
--  发布时间：2011/11/22 9:04:00
--  代码求助

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

\'DataTables("合同记录").LoadFilter = "[辞退日期] =Nothing or [辞退日期] > Tables(工资表).[日期] And max(DataTables("合同记录").[登记月份])"
\'DataTables("合同记录").Load
--  作者：狐狸爸爸
--  发布时间：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
--  作者：mr725
--  发布时间：2011/11/22 9:21:00
--  

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

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