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()
以上面问题如何解决？谢谢
加好友 
发短信
Post By：2020/1/18 0:24:00 [只看该作者]
