老师你好,加载出错,麻烦看一下是什么原因
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("客户名称")
Dim Product1 As String = dr("入库单号")
Dim st As String = dr("审核人")
Select Case e.Node.Level
Case 0
Filter ="Year(录入日期) = " & Year And st=""
Case 1
Filter ="Year(录入日期) = " & Year & " And Month(录入日期) = " & Month And st=""
End Select
DataTables("来料加工入库主表").LoadFilter = Filter
DataTables("来料加工入库主表").Load()
此主题相关图片如下:出错.png