主题：目录树节点双击错误

 

 

Dim dr As DataRow = e.Node.DataRow  '获取生成此节点的行
Dim Filter As String
Dim Month As Integer =  dr("月")
If e.Node.Text = "加载所有行"  Then
    filter = ""
Else
    Select Case e.Node.Level
        Case 0
            Filter =" Month(账期) = "  &  Month
    End Select
End If
DataTables("固定资产台账").loadFilter = Filter
DataTables("固定资产台账").load

此主题相关图片如下：加载树.png