- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76536)
-- 发布时间：2015/10/31 13:02:00
-- [讨论]筛选
老师，表交易时间列属性是字符型的8个，我要通过组合框输入开始时间和结束时间进行筛选时间段。
-- 发布时间：2015/10/31 14:15:00
--
日期转换 http://www.foxtable.com/help/topics/1513.htm
http://www.foxtable.com/help/topics/0098.htm
筛选 http://www.foxtable.com/help/topics/1432.htm
-- 发布时间：2015/11/2 11:07:00
--
直接用大于等于也可以比较，如
Tables("表A").Filter = "交易时间 > \'20151031\' and 交易时间 < \'20151102\'"
-- 发布时间：2015/12/16 12:28:00
--
老师，我要对关联表子表筛选设置代码下面代码报错。
With Tables(e.Form.Name & "_Table1")
.EnterKeyActionDown = True
.AutoSizeCols
Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("电子信息1")
For Each C As Col In .Cols
dz_FilterCol.Items.Add(C.Name)
Next
dz_FilterCol.Value = "日期,名称"
End With
-- 发布时间：2015/12/16 12:52:00
--
报什么错，上传实例
-- 发布时间：2015/12/16 14:03:00
--
老师，错误在窗口1中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/12/16 14:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/12/16 19:53:00
--
老师，下面的代码帮我修改一下谢谢。
If e.Node.Name = "显示所有行" Then
Tables(e.Form.Name & "_Table1").Filter = ""
Else
Dim FilterCol() As String = e.Form.Controls("电子信息1").Value.Split(",")
Dim TmpStr() As String = e.Node.FullPath.Split("\\")
Dim FilterStr As String
For i As Integer = 0 To e.Node.Level
FilterStr = FilterStr & "[" & FilterCol(i) & "] = \'" & TmpStr(i) & "\' And "
Next
FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
Tables(e.Form.Name & "_Table1").Filter = FilterStr
End If
-------------------------------------------------------
With e.Form.controls("Table1").Table
.EnterKeyActionDown = True
.AutoSizeCols
Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("电子信息1")
For Each C As Col In .Cols
dz_FilterCol.Items.Add(C.Name)
Next
dz_FilterCol.Value = "日期,名称"
End With
-- 发布时间：2015/12/17 9:02:00
--
以下是引用大红袍在2015/12/16 14:43:00的发言：
老师，窗口还是报错
| 下载信息 [文件大小：316.0 KB 下载次数：4] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/12/17 9:59:00
--
全部直接写表名。
Tables("表A.表B")