为什么这么简的一段代码执行不了???设计了如图所示的目录树,在AfterSelectNode事件中有如下代码,无论在目录树里如何点选,就是显示不了变量filt的值????
目录树:
此主题相关图片如下:22.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-6/20156810101056475.png)
代码:
Dim sts() As String = e.Node.FullPath.Split("\")
Dim filt As String = "select * f rom {员工资料} "
Select Case e.Node.Level
Case e.Node.Level = 0
If e.Node.Text <> "显示所有员工" Then
filt = filt & " where 部门 = '" & sts(0) & "'"
MessageBox.Show(filt)
End If
End Select