这几天刚接触这个foxtable，请大侠们来帮忙，

我要做个条件查询，如表。

当只输入第一列内容时，就可查询表中的相关记录，先模糊查，直到输入精确，输完结查就出来，不用按键

当输入第二列时，在第一列的基础上找，也是先模糊查，直到输入精确，输完结查就出来，不用按键

当输入第十列时，在第一，二列的基础上找，也是先模糊查，直到输入精确，输完结查就出来，不用按键

当某列中的内容为空时，默认全部记录。

请各位提供一下，看看有没有好的可用。附上表。感谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目001.table

参考

http://www.foxtable.com/webhelp/scr/1058.htm

http://www.foxtable.com/webhelp/scr/1647.htm

初识这个，大侠可不可以帮忙加到实例中，对我来说还是第一次用这个。

非常棒，谢谢。再咨询一下，如果我要将第十列改成日期型，输入下拉日期框型的。能帮忙调整一下吗 ？

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim filter As String = "1=1"
If t1.text > "" Then
    filter &= " and 第一列 like \'%" & t1.text & "%\'"
End If
If t2.text > "" Then
    filter &= " and 第四列 like \'%" & t2.text & "%\'"
End If
If t3.text > "" Then
    filter &= " and 第十列 like \'%" & t3.text & "%\'"
End If
e.Form.controls("table1").Table.filter = filter

大侠， 我把texbox1改成combobox1，出现类型不对，能帮忙修改一下吗？ 谢谢。

Dim t1 As WinForm.TextBox = e.Form.Controls("Combobox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim t3 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim filter As String = "1=1"
If t1.text > "" Then
    filter &= " and Endcustomer like \'%" & t1.text & "%\'"
End If
If t2.text > "" Then
    filter &= " and GSSpart like \'%" & t2.text & "%\'"
End If

If t3.text > "" Then

     filter &= " and ETD = #" & t3.Value & "#"
\'    filter &= " and ETD like \'%" & t3.text & "%\'"
End If
e.Form.controls("table1").Table.filter = filter