[浏览完整版]
标题：数值筛选，如何实现？谢谢
1楼
雨中的泪 发表于：2011/12/30 14:34:00Dim 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
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
2楼
雨中的泪 发表于：2011/12/30 14:34:00Tables("表A").Filter = "[序号] >= A1 And [序号] <= B1"
中的A1和B2为变量，是整数
中的A1和B2为变量，是整数
3楼
雨中的泪 发表于：2011/12/30 14:36:00这段代码不对呀
4楼
狐狸爸爸 发表于：2011/12/30 14:38:00参考：
http://www.foxtable.com/help/topics/1284.htm
将这一节的内容，细致地从头看到尾。
5楼
雨中的泪 发表于：2011/12/30 15:17:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选.table |
6楼
雨中的泪 发表于：2011/12/30 15:18:00没有搞得定呀
7楼
狐狸爸爸 发表于：2011/12/30 15:20:00Tables("表A").Filter = "[序号] >= " & A1 & " And [序号] <= " & B1
8楼
雨中的泪 发表于：2011/12/30 15:33:00就是这种表达式，有点头晕
9楼
雨中的泪 发表于：2011/12/30 15:33:00老大能不能在帮助内详细介绍
10楼
狐狸爸爸 发表于：2011/12/30 15:35:00