主题：[求助] 条件查询

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

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

参考

 

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

 

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

 

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

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

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

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

 

 

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

-------------

filter &= " and 第十列 like '%" & t3.text & "%'"

谢谢。

大侠， 我把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

Dim t1 As WinForm.Combobox= e.Form.Controls("Combobox1")

版主，再请问一下，记录查询出来了，可以查询表是不是进行编辑的，如何是查询结果中双点某个人员后出现带出该人员的基本资料进行修改。谢谢。