以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  条件表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196033)

--  作者：lfz123 --  发布时间：2025/3/24 15:36:00 --  条件表达式 此主题相关图片如下：2.png   此主题相关图片如下：2.png    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行     Dim Year As Integer = dr("年")     Dim pd As String = dr("发票类型")     Select Case e.Node.Level         Case 0             Filter ="Year(开票日期) = " & Year         Case 1 此主题相关图片如下：1.png             Filter ="Year(发票日期) = " & Year & " And 发票类型 = \'" & pd & "\'"    MessageBox.Show(filter)              End Select [此贴子已经被作者于2025/3/24 15:36:20编辑过]

--  作者：有点蓝 --  发布时间：2025/3/24 15:38:00 --   如果是做筛选，没有Year(开piao日期) 这种用法，参考这里日期的处理：http://www.foxtable.com/webhelp/topics/0917.htm

--  作者：lfz123 --  发布时间：2025/3/24 15:42:00 --   做成这个效果，稍许改了下代码而已 Dim Filter As String If e.node.Text = "加载所有行" Then     Filter = "" Else     Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行     Dim Year As Integer = dr("年")     Dim Month As Integer = dr("月")     Dim pd As String = dr("开票单位简称")     Select Case e.Node.Level         Case 0             Filter ="Year(发票日期) = " & Year           Case 1             Filter ="Year(发票日期) = " & Year & " And Month(发票日期) = " & Month         Case 2             Filter ="Year(发票日期) = " & Year & " And Month(发票日期) = " & Month & " And 开票单位简称 = \'" & pd & "\'"     End Select End If DataTables("销项发票").LoadFilter = Filter DataTables("销项发票").Load()

--  作者：有点蓝 --  发布时间：2025/3/24 15:58:00 --   看不出哪里有问题。方便做个例子测试一下