主题：filter 日期和数值问题

 f.Filter = "" & xzl.Value & " = #" & nr.Value & "# And 审核状态 = False "

 

提示什么错误？

 请上传整个不行的项目，或者做一个不行的例子。

看 11 楼

密码

Dim nr As WinForm.TextBox = e.Form.Controls("查询内容")
Dim xzl As WinForm.ComboBox = e.Form.Controls("选择列")
Dim je As WinForm.TextBox = e.Form.Controls("金额")
Dim d As WinForm.Label = e.Form.Controls("Label1")
Dim f As Table = Tables("主窗口_子窗体")
Dim b As Table = Tables("主窗口_子窗口2")
Dim shcx As WinForm.ComboBox = e.Form.Controls("审核查询")
f.DataTable.Load
If e.Sender.Text > "" Then
    If xzl.Value = "全部" And shcx.Value = "全部" Then
        f.Filter =""
    Else If xzl.Value = "全部" And shcx.Value = "已审核" Then
        f.Filter = " 审核状态 = true "
    Else If xzl.Value = "全部" And shcx.Value = "未审核" Then
        f.Filter = " 审核状态 = false "
    Else If xzl.Value IsNot "全部" And xzl.Value IsNot "日期" And shcx.Value = "全部" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*'"
    Else If xzl.Value IsNot "全部" And xzl.Value IsNot "日期" And shcx.Value = "已审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = True "
    Else If xzl.Value IsNot "全部" And xzl.Value IsNot "日期" And shcx.Value = "未审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = false "
    Else If xzl.Value = "日期" And shcx.Value = "未审核" Then
        f.Filter = "" & xzl.Value & " like # & nr.Value & # And 审核状态 = False "
    Else If xzl.Value = "日期" And shcx.Value = "已审核" Then
        f.Filter = "" & xzl.Value & " like # & nr.Value & # and 审核状态 = true "
    Else If xzl.Value = "日期" And shcx.Value = "全部" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like # & nr.Value & # "
    End If
    Tables("主窗口_子窗体").AutoSizeCols()
End If

Dim nr As WinForm.TextBox = e.Form.Controls("查询内容")
Dim xzl As WinForm.ComboBox = e.Form.Controls("选择列")
Dim je As WinForm.TextBox = e.Form.Controls("金额")
Dim d As WinForm.Label = e.Form.Controls("Label1")
Dim f As Table = Tables("主窗口_子窗体")
Dim b As Table = Tables("主窗口_子窗口2")
Dim shcx As WinForm.ComboBox = e.Form.Controls("审核查询")
f.DataTable.Load
If e.Sender.Text > "" Then
    If xzl.Value = "全部" And shcx.Value = "全部" Then
        f.Filter =""
    Else If xzl.Value = "全部" And shcx.Value = "已审核" Then
        f.Filter = " 审核状态 = true "
    Else If xzl.Value = "全部" And shcx.Value = "未审核" Then
        f.Filter = " 审核状态 = false "
    Else If xzl.Value <> "全部" And xzl.Value <> "日期" And shcx.Value = "全部" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*'"
    Else If xzl.Value <> "全部" And xzl.Value <> "日期" And shcx.Value = "已审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = True "
    Else If xzl.Value <> "全部" And xzl.Value <> "日期" And shcx.Value = "未审核" Then
        f.Filter = "" & xzl.Value & " Like '*" & nr.Value & "*' and 审核状态 = false "
    Else If xzl.Value = "日期" And shcx.Value = "未审核" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like '%" & nr.Value & "%' And 审核状态 = False "
    Else If xzl.Value = "日期" And shcx.Value = "已审核" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like '%" & nr.Value & "%' And 审核状态 = True "
    Else If xzl.Value = "日期" And shcx.Value = "全部" Then
        f.Filter = "Convert(" & xzl.Value & ",'System.String') like '%" & nr.Value & "%'"
    End If
    Tables("主窗口_子窗体").AutoSizeCols()
End If

你有改吗？文本框和按钮的代码都要改啊

 

我测试正常

 查不到数据，是你那些 If 的判断逻辑有问题，一个一个的去尝试逻辑是否正确。

 日期要这样写 2013-9-8

 

 不要带有0