此主题相关图片如下：gaollg35.gif

请各位帮忙检查一下,是哪儿错误了以下是查询代码:

Dim tbl As DataTable =DataTables("操作日志")
If e.form.controls("起始日期").value = #01/01/0001# OrElse e.form.controls("终止日期").value = #01/01/0001#
    s=s
Else
    If s =Nothing
        s = "操作时间 >= \'" & rq1 & "\' And 操作时间 <= \'" & rq2 & "\'"
    Else
        s= s &  "and 操作时间 >= \'" & rq1 & "\' And 操作时间 <= \'" & rq2 & "\'"
    End If
End If
If DataTables("操作日志").HasChanges Then
    MessageBox.Show("数据有修改不能进行查询操作!","提示:",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    tbl.loadFilter =s
    tbl.Load
End If

问题是: 这代码在除了今天带时间的查询不到,以前带时间的日期能查询到,请看GIF动画.

#2012/12/31 09:30#  和 #2012/12/31# 是不同的。

所以这种：

s= s &  "and 操作时间 >= \'" & rq1 & "\' And 操作时间 <= \'" & rq2 & "\'"

通常应该是：

s= s &  "and 操作时间 >= \'" & rq1 & "\' And 操作时间 < \'" & rq2.AddDays(1) & "\'"