主题：窗口查询

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

试一下

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").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()

这样

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()

 回复11楼，可以筛选的。任意一个条件都能筛选的，任意组合的条件都能筛选的。

 现在哪里不满足？