以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数值筛选，如何实现？谢谢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15538)
--  作者：雨中的泪
--  发布时间：2011/12/30 14:34:00
--  数值筛选，如何实现？谢谢
Dim A As String = e.Form.Controls("ComboBox1").Value
Dim B As String = e.Form.Controls("ComboBox2").Value
Dim A1 As Long = CInt(A)
Dim B1 As Long = CInt(B)
If  A Is Nothing OrElse B Is Nothing Then
    MessageBox.Show("请选择起始值和截至值!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
Return
Else
If  B1<A1  Then
MessageBox.Show("截至值不能小于起始值", "提示")
Return
Else
Tables("表A").Filter = "[序号] >= A1  And [序号] <= B1"
End If
End If
--  作者：雨中的泪
--  发布时间：2011/12/30 14:34:00
--  
Tables("表A").Filter = "[序号] >= A1  And [序号] <= B1"
中的A1和B2为变量，是整数
--  作者：雨中的泪
--  发布时间：2011/12/30 14:36:00
--  
这段代码不对呀
--  作者：狐狸爸爸
--  发布时间：2011/12/30 14:38:00
--  

参考：

http://www.foxtable.com/help/topics/1284.htm



将这一节的内容，细致地从头看到尾。
--  作者：雨中的泪
--  发布时间：2011/12/30 15:17:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:筛选.table
--  作者：雨中的泪
--  发布时间：2011/12/30 15:18:00
--  
没有搞得定呀
--  作者：狐狸爸爸
--  发布时间：2011/12/30 15:20:00
--  

Tables("表A").Filter = "[序号] >= " &  A1 & " And [序号] <= " & B1
--  作者：雨中的泪
--  发布时间：2011/12/30 15:33:00
--  
就是这种表达式，有点头晕
--  作者：雨中的泪
--  发布时间：2011/12/30 15:33:00
--  
老大能不能在帮助内详细介绍
--  作者：狐狸爸爸
--  发布时间：2011/12/30 15:35:00
--  

帮助已经详细介绍：

 

http://www.foxtable.com/help/topics/1284.htm