Dim Filter As String
With e.Form.Controls("DateTimePicker3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
vars("起始日期") = .Value
End If
End With
With e.Form.Controls("DateTimePicker4")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
vars("终止日期") = .Value
End If
End With
If Filter > "" Then
DataTables("表A").loadfilter = "日期 > # " & Date.Today.adddays(-360) & " #" ' 加载一年内的数据，只在这一年的数据里面进行查询.
DataTables("表A").load
Tables("表A").Filter = "[姓名] = '小王' and " & filter ' 这里筛选出的日期超出我期望的范围了，怎么回事呢？
Else
MessageBox.Show("Sorry! 没有查询到在此期间任何记录!")
End If
加好友 
发短信
Post By：2018/10/16 10:34:00 [只看该作者]
