窗口表筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、窗口表绑定的是normal型订单表正本，订单表中有个“是否完成”逻辑列，如何把订单表整表中未完成的行筛选出来并显示在窗口表，目前是用

table(“订单表”).filter="是否完成=false"只能筛选出当前页面的数据，窗口表是分面加载的

2、根据交叉统计表中的垂直分组（如：日期）形成筛选树，怎么弄

[此贴子已经被作者于2025/1/12 18:53:54编辑过]

1、改为加载

datatable(“订单表”).loadfilter="是否完成=false"

datatable(“订单表”).loadtop = nothing

datatable(“订单表”).load

2、http://www.foxtable.com/webhelp/topics/0917.htm

麻烦大师看一下代码错在哪

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

1、改为加载

datatable(“订单表”).loadfilter="是否完成=false"

datatable(“订单表”).loadtop = nothing

datatable(“订单表”).load

这段代码写在哪里

[此贴子已经被作者于2025/1/12 21:02:14编辑过]

替换1楼的table(“订单表”).filter="是否完成=false"

列是无法做筛选的，3楼这种只能是把条件合并到sql里，然后按日期重新统计一次

节点代码：

Dim Filter As String = ""

If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性

Dim d1 As Date

Dim d2 As Date

Dim Year As Integer = e.Node.DataRow("年")

Dim Month As Integer = e.Node.DataRow("月")

Select Case e.Node.Level

Case 0

d1 = New Date(Year, 1, 1) '取得该年的第一天

d2 = New Date(Year, 12, 31) '取得该年的最后一天

Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"

Case 1

d1 = New Date(Year, Month, 1) '取得该月的第一天

d2 = New Date(Year, Month, Date.DaysInMonth(Year, Month)) '取得该月的最后一天

Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"

End Select

End If

Dim sql As String = "select * from (select 入库日期 As 日期,类别,库存编码,产品名称,规格,单位,商标,备注,入库数量,0 as 出库数量 from 入库明细 union select 出库日期 As 日期,类别,库存编码,产品名称,规格,单位,商标,备注,0 as 入库数量,出库数量 from 出库明细 ) as a where " & Filter

Dim bd1 As New CrossTableBuilder("统计表1", sql, "Sale")

Dim dt1 As fxDataSource

bd1.HGroups.AddDef("类别")

bd1.HGroups.AddDef("库存编码")

……后面补齐所有统计的代码按指定的日期重新统计

谢谢大师，我试试

麻烦老师再帮我看下4楼的问题

很简单的问题，你的手误导致我照抄的代码出错

datatables(“订单表”)

不好意思，谢谢老师，这么晚还支持

主题：窗口表筛选