Foxtable(狐表)用户栏目专家坐堂 → 窗口表筛选


  共有484人关注过本帖树形打印复制链接

主题:窗口表筛选

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112360 积分:572056 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/12 20:26:00 [显示全部帖子]

1、改为加载

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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112360 积分:572056 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/12 20:57:00 [显示全部帖子]

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

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112360 积分:572056 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/12 21:03:00 [显示全部帖子]

列是无法做筛选的,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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112360 积分:572056 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/12 21:44:00 [显示全部帖子]

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

datatables(“订单表”)

 回到顶部