主题：[求助]加载出错

老师你好,加载出错,麻烦看一下是什么原因

 

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

此主题相关图片如下：出错1.png

老师你好,还是出错