此主题相关图片如下:9999.jpg
如何实现:比如点击河北,需要显示河北省的所有行,点击保定,需要显示保定的所有行。
代码:
Dim Value()As StringValue = e.Node.FullPath.Split("\")Select Case e.Node.Level Case 0 Tables("全国物流园").Filter = "" Case 1 Tables("全国物流园").Filter ="[省份] = '" & Value(0) & "'" Case 2 Tables("驾驶员登记").Filter ="[省份] = '" & Value(1) & "' And [市级] = '" & Value(2) & "'" End Select
以上代码,只能,比如点击河北,显示了所有行,当点击保定时确显示了河北的所有行。请问问题出在哪,如何改代码?
我是菜鸟,求教了,谢谢!