主题：[求助]查询命令错误

Dim flt As String

For Each c As Col In Tables("地线测试登记表").Cols

    For Each ctl As WinForm.Control In e.Form.Controls

        If c.Name = ctl.Name Then

            If e.Form.Controls(ctl.Name).Text > "" Then

                If c.IsDate Then

                    flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"

                ElseIf c.IsString Then

                    flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"

                End If

            End If

        End If

    Next

Next

If flt > "" Then

    flt = flt.SubString(5)

Else

    MessageBox.Show("请输入查询条件")

End If

Tables("地线测试登记表").Filter = flt