Dim Filter As String
Filter = "[_Identify] is not null"
If hh.value <> Nothing AndAlso ii.value <> Nothing
vars("startdate") = hh.value
vars("enddate") = ii.value
Filter = Filter & " and " & "[交工日期] >= '" & hh.Value & "' and [交工日期] <= '" & ii.Value & "'"
End If
If ll.Checked = True AndAlso lk.Checked = False Then
Filter = Filter & " and " & "[已付] = true"
End If
If lk.Checked = True AndAlso ll.Checked = False Then
Filter = Filter & " and " & "([已付] is null or [已付] = false)"
End If
Tables("员工表.工资结算").Filter = Filter
加好友 
发短信
Post By：2020/4/14 22:31:00 [显示全部帖子]
