Dim dt As Date
With DataTables(”工资表")
dt = .Datarows(.DataRows.Count -1)("辞退日期")
End With
DataTables("合同记录").LoadFilter = "[辞退日期] Is Null or [辞退日期] > #" & dt & "#"
DataTables("合同记录").LoadTop = 1
DataTables("合同记录").Load
加好友 
发短信
Post By：2011/11/22 9:08:00 [显示全部帖子]
