主题：关于目录树问题

修改代码

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.name <> "全部" Then
    Select Case e.node.name
        Case "已返款"
            Filter = "[是否已返款] = TRUE"
        Case "未返款"
           
            Filter = "[是否已返款] = FALSE"
           
    End Select
End If
e.form.controls("返款").Table.Filter = Filter