在查询窗口中，有一个textbox1，table1，table1是绑定gdzc表的，我想实现当文本框中输入资产编号或类型等等之类的，能够查询出来结果，下面是代码，可以运行代码的时候出现错误，求大侠们帮我修改一下。

Dim tbl As Table = Tables("gdzc")
If e.Form.Controls("TextBox1")="" Then
    tbl.Filter = ""
Else
    tbl.Filter = "资产编号  like \'%"& e.form.controls("TextBox1").text & "%\'or 类型 like\'%"&  e.Form.Controls("TextBox1").text & "%\'or 名称 like\'%"&  e.Form.Controls("TextBox1").text & "%\'or 部门1 like\'%"&  e.Form.Controls("TextBox1").text & "%\' or 部门2 like\'%"&  e.Form.Controls("TextBox1").text & "%\' or 使用部门 like\'%"&  e.Form.Controls("TextBox1").text & "%\' or 使用人员 like\'%"&  e.Form.Controls("TextBox1").text & "%\' or 目前状态 like\'%"&  e.Form.Controls("TextBox1").text & "%\' or 经办人员 like\'%"&  e.Form.Controls("TextBox1").text & "%\' or 资产来源 like\'%"&  e.Form.Controls("TextBox1").text & "%\'"
End If
 DataTables("gdzc").LoadFilter = tbl.Filter
DataTables("gdzc").Load()

目测代码没有错，提示什么错误？

试一下

Dim tbl As Table = Tables("gdzc")
If e.Form.Controls("TextBox1")="" Then
    tbl.Filter = ""
Else
    tbl.Filter = "资产编号 like \'%" & e.form.controls("TextBox1").text & "%\' or 类型 like \'%" & e.Form.Controls("TextBox1").text & "%\' or 名称 like \'%" & e.Form.Controls("TextBox1").text & "%\' or 部门1 like \'%" & e.Form.Controls("TextBox1").text & "%\' or 部门2 like \'%" &  e.Form.Controls("TextBox1").text & "%\' or 使用部门 like \'%" &  e.Form.Controls("TextBox1").text & "%\' or 使用人员 like \'%" &  e.Form.Controls("TextBox1").text & "%\'  or 目前状态 like \'%" &  e.Form.Controls("TextBox1").text & "%\' or 经办人员 like \'%" &  e.Form.Controls("TextBox1").text & "%\' or 资产来源 like \'%" &  e.Form.Controls("TextBox1").text & "%\'"
End If
DataTables("gdzc").LoadFilter = tbl.Filter
DataTables("gdzc").Load()

我将原先的代码改了一下，改为：

Dim txt As String = e.Form.Controls("TextBox1")
Dim tbl As Table = Tables("gdzc")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = " 类型 like " & txt & "or 名称 like " & txt & " or 部门1 like " & txt & " Or 部门2 like " & txt & " or 使用部门 like " & txt & " or 使用人员 like " & txt & " or 目前状态 like " & txt & " or 经办人员 like " & txt & " or 资产来源 like " & txt & ""
End If
 DataTables("gdzc").LoadFilter = tbl.Filter
DataTables("gdzc").Load()

出现的错误是就发的图片。

这样改

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("gdzc")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = " 类型 like " & txt & "or 名称 like " & txt & " or 部门1 like " & txt & " Or 部门2 like " & txt & " or 使用部门 like " & txt & " or 使用人员 like " & txt & " or 目前状态 like " & txt & " or 经办人员 like " & txt & " or 资产来源 like " & txt & ""
End If
 DataTables("gdzc").LoadFilter = tbl.Filter
DataTables("gdzc").Load()

谢谢lsy老师

老师，还有一个查询问题，如图所示：
此主题相关图片如下：qq图片20140506212420.jpg

我想实现，当开始日期和结束日期都未输入时，类型一列的值我都已经取到了，选择一种类型就会从gdzc表中加载出来，若是开始日期和结束日期都输入，就加载该

时间段的数据，若是三个都输入了，那就满足这三个条件的加载过来，下面的代码不能满足我的要求，不知改如何修改。请老师帮忙改改。

Dim Filter As String
Tables("固定资产").Filter = ""
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        \'Filter = Filter & "zt = \'" & .Value & "\'"
        Filter = Filter & " 购置日期 >= \'" & .Value & "\' "
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        \'Filter = Filter & "zt = \'" & .Value & "\'"
        Filter = Filter & " 购置日期 <= \'" & .Value & "\' "
    End If
With e.Form.Controls("ComboBox1")
 
    If .Value IsNot Nothing Then
        Filter = "类型 = \'" & .Value & "\'"
    End If
End With
DataTables("固定资产").LoadFilter = Filter
DataTables("固定资产").Load()

这样

Dim Filter As String = "1=1 "

With e.Form.Controls("DateTimePicker1")
    If .Value <> Nothing Then
        Filter = Filter & " and 购置日期 >= #" & .Value & "# "
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value <> Nothing Then
        Filter = Filter & " and 购置日期 <= #" & .Value & "# "
    End If
With e.Form.Controls("ComboBox1")
    If .Value > "" Then
        Filter = " and 类型 = \'" & .Value & "\'"
    End If
End With
Tables("固定资产").Filter = ""
DataTables("固定资产").LoadFilter = Filter
DataTables("固定资产").Load()