- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96464)
-- 发布时间：2017/2/21 15:43:00
-- 筛选
能帮忙看那看这个吗？为什么列类容有了符号就筛选不出来呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选.table |
此主题相关图片如下：捕获.png
-- 发布时间：2017/2/21 16:07:00
--
参考
Tables("窗口1_Table1").Filter = "第一列 Like \'%" & e.Form.Controls("Label1").Text.replace("\'", "\'\'") & "%\'" \' 筛选出行
-- 发布时间：2017/3/25 22:58:00
--
Forms("听考结果窗口").Controls("Label5").Text = DataTables("单词").Compute("count(目录_状态)","目录_状态 = \'已完成\'")
如果Label5 要得到 单词 表 已经筛选显示的 目录_状态为已完成 的数量 应该怎么改啊，不是这个表的，是已经筛选后 目录_状态为已完成 的行数 感谢 感谢
-- 发布时间：2017/3/26 11:01:00
--
Forms("听考结果窗口").Controls("Label5").Text = Tables("窗口1_Table1").Compute("count(目录_状态)","目录_状态 = \'已完成\'")
-- 发布时间：2017/3/27 16:49:00
--
谢谢 感谢 ，可以是只统计表A 的已经筛选的内容吗？不是窗口表，是听考结果窗口 的label5 等于 表a 已经筛选出来的表后目录_状态 有多少行显示的已完成 感谢了 谢谢
-- 发布时间：2017/3/27 16:56:00
--
Forms("听考结果窗口").Controls("Label5").Text = Tables("表A").Compute("count(目录_状态)","目录_状态 = \'已完成\'")
-- 发布时间：2017/3/27 17:08:00
--
不对呢，我还是没有得到正确的结果，显示的0呢 感谢 感谢 麻烦了
-- 发布时间：2017/3/27 18:14:00
--
没看懂你什么意思。6楼代码执行后有什么问题？
做具体例子说明你要做什么。
-- 发布时间：2017/3/27 19:35:00
--
谢谢了 刚才重新建了个案例又能实现效果，代码都完全一样，在之前的表就用不起，不知道为什么 谢谢了 我在多测试一下。
我估计是筛选的方式不对，能帮忙看看这段和那段代码有什么对冲吗？ 感谢 感谢
Dim d1 As Date = e.Form.Controls("DateTimePicker4").Value
If d1 = Nothing Then d1 = Date.Today
Dim filter1 As String = ""
If e.Form.Controls("RadioButton19").Checked Then
filter1 = "听写_日期 = #" & d1 & "#"
ElseIf e.Form.Controls("RadioButton20").Checked Then
Dim w As Integer = d1.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = d1.AddDays(0 - w) \'获取本周的第一天 ,星期一到星期天
Dim dt2 As Date = d1.AddDays(6 - w) \'获取本周的最后一天
filter1 = "听写_日期 >= #" & dt1 & "# and 听写_日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton21").Checked Then
Dim y As Integer = d1.Year
Dim m As Integer = d1.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
filter1 = "听写_日期 >= #" & dt1 & "# and 听写_日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton22").Checked Then
Dim y As Integer = d1.Year
Dim q As Integer = (d1.Month - 1) \\ 3 + 1 \'计算现在是第几个季度
Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) \'获取本季度的第一天
Dim dt2 As New Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) \'获取本季度的最后一天
filter1 = "听写_日期 >= #" & dt1 & "# and 听写_日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton23").Checked Then
Dim y As Integer = d1.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
filter1 = "听写_日期 >= #" & dt1 & "# and 听写_日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton24").Checked Then
filter1 = "1=1"
\'Else If e.Form.Controls("RadioButton7").Checked Then
\'filter1 = "练习_日期 < #" & d1 & "#" \' 某天以前的
End If
filter1 = filter1 & " And 听写_状态=\'待复习\'"
Tables("单词").Filter = filter1
BaseMainForm.Visible = True
Forms("主窗口").visible = False
Forms("听写复习窗口").show \'显示窗口
[此贴子已经被作者于2017/3/27 19:41:56编辑过]
-- 发布时间：2017/3/27 21:14:00
--
测试有什么问题？没有上下文，没有办法看代码有什么逻辑问题