以下是引用狐作非为在2017/5/18 17:42:00的发言：
色版，能否改成回车再筛选的？因为有的字段类型为日期或数字型的就会报错
筛选代码改一下就好了，你可以根据你的实际需求去修改筛选的代码（自定义函数 txt_TextChanged）
Dim sender = args(0)
Dim e = args(1)
Dim _flex = sender.parent
Dim _row = _flex.rows.fixed-1
Dim _col = _flex.Col
_flex(_row, _col) = sender.Text
Dim filter As String = "1=1"
For i As Integer = 0 To _flex.Cols.count-1
If _flex(_row, i) > "" Then
filter &= " and Convert(" & _flex.Cols(i).name & ",'System.String') Like '%" & _flex(_row, i) & "%'"
End If
Next
Dim t As Table = Tables(_flex.name)
t.filter = filter
加好友 
发短信
Post By：2017/5/18 15:16:00 [显示全部帖子]
