以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数值框筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97631)
--  作者：jick0526
--  发布时间：2017/3/15 21:23:00
--  [求助]数值框筛选问题
狐爸，请问下，我想做个用来筛选的数值框，数值框输入的数字，点下按钮，就从A列筛选出来，如果没有所要的数值，就提示，”不存在“这代码该怎么写，谢谢!
--  作者：wyz20130512
--  发布时间：2017/3/15 21:38:00
--  
Dim v As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
With Tables("表A")
    Dim dr As DataRow = .DataTable.Find("[A列] = " & v.Value)
    If dr IsNot Nothing Then
        .Filter = "[A列] = " & v.Value
    Else
        MessageBox.Show("没有满足条件的数据!")
    End If
End With
--  作者：jick0526
--  发布时间：2017/3/15 22:18:00
--  
老师，上面的代码如果改为不按按钮，而是直接按下回车键就筛选出来，代码要怎么改，谢谢！
--  作者：wyz20130512
--  发布时间：2017/3/15 22:31:00
--  
数值输入框的ValueChanged事件代码：

Dim v As WinForm.NumericComboBox = e.Sender
With Tables("表A")
    Dim dr As DataRow = .DataTable.Find("[A列] = " & v.Value)
    If dr IsNot Nothing Then
        .Filter = "[A列] = " & v.Value
    Else
        MessageBox.Show("没有满足条件的数据!")
    End If
End With
--  作者：jick0526
--  发布时间：2017/3/15 23:06:00
--  
老师，上面的代码，我按回车后，直接跳出“没有满足条件的数据!”不能筛选，但我的列有数据在
--  作者：有点色
--  发布时间：2017/3/16 0:30:00
--  

直接筛选不是最好的？TextChanged事件

 

Dim v As WinForm.NumericComboBox = e.Sender
Tables("表A").Filter = "[A列] = " & val(v.Text)
 
--  作者：jick0526
--  发布时间：2017/3/16 14:55:00
--  
可以了，谢谢老师！