以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  table 过滤错误 是什么原因 如何解决  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153702)

--  作者:ehbx_ysj
--  发布时间:2020/8/20 8:20:00
--  table 过滤错误 是什么原因 如何解决
图片点击可在新窗口打开查看
Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")    
    Select Case e.Node.Level
        Case 0
            Filter ="Year(签约日期) = " & Year
        Case 1
            Filter ="Year(签约日期) = " & Year & " And Month(签约日期) = " & Month
    End Select
End If
Tables("选择产品_销售合同表").Filter = Filter



--  作者:有点蓝
--  发布时间:2020/8/20 9:21:00
--  
筛选表达式没有Year的用法。参考这个:http://www.foxtable.com/webhelp/topics/2720.htm