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()
以上面问题如何解决?谢谢