以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  目录树代码报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145385)
--  作者：lgz518
--  发布时间：2020/1/18 0:24:00
--  目录树代码报错
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Product 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 产品名称 = \'" & Product & "\'"
End Select

1.用这句Tables("订单登记查询_订单登记明细").Filter = Filter，报错，年没定义？
2.用下面代码，报错不是DataTables？
DataTables("订单登记查询_订单登记明细").LoadFilter = Filter
DataTables("订单登记查询_订单登记明细").Load()

以上面问题如何解决？谢谢
--  作者：有点蓝
--  发布时间：2020/1/18 9:10:00
--  
使用什么代码生成目录树的？

这个窗口表是副本？
Tables("订单登记查询_订单登记明细").datatable.LoadFilter = Filter
Tables("订单登记查询_订单登记明细").datatable.Load()
--  作者：lgz518
--  发布时间：2020/1/18 15:11:00
--  
Normal，是副本，