老师好,显示所有行报错。
此主题相关图片如下:显示所有行.png
If e.Node.Name = "显示所有行" Then Filter = ""
Else
With e.Form.Controls("Table1").Table End With
Else
Dim FilterCol() As String = e.Form.Controls("复选").Value.Split(",")
Dim TmpStr() As String = e.Node.FullPath.Split("\")
Dim FilterStr As String
For i As Integer = 0 To e.Node.Level
FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
Next
FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
e.Form.Controls("Table1").Table.Filter = FilterStr
End If