主题：[求助] 条件查询

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

点击浏览该文件:管理项目001.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

谢谢。

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

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

版主，双击某条记录后窗口打开了，可是没有指定到双击的那条记录上，这是为什么？

老师有没有实例，这个我做不好，谢谢。

老师，能帮忙再这个实例操作一下，这个我实在是做不到，万分感谢。

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

点击浏览该文件:11.table

谢谢老师