老师下面红色代码怎么写？

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 SKHS As String = dr("收款状态")
Select Case e.Node.Level
    Case 0
        Filter ="收款状态 = " & SKHS
    Case 1
        Filter ="收款状态 = " & SKHS & Filter ="Year(对帐日期) = " & Year
    Case 2
       Filter ="收款状态 = " & SKHS &  Filter ="Year(对帐日期) = " & Year & " And Month(对帐日期) = " & Month
    Case 3
     Filter ="收款状态 = " & SKHS &  Filter ="Year(对帐日期) = " & Year & " And Month(对帐日期) = " & Month & " And 客户 = \'" & Product & "\'"
End Select
DataTables("对帐主表").LoadFilter = Filter
DataTables("对帐主表").Load()

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

双击加载树一级报下图