| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 导航栏的目录树？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32349) |
| -- 作者：wqb1102 -- 发布时间：2013/4/30 9:38:00 -- 导航栏的目录树？ Dim Value() As String Dim Filter As String Value = e.Node.FullPath.Split("\\") Dim tr As WinForm.TreeView tr = e.Form.Controls("TreeView1") Select Case e.Node.Level Case 0 Filter = "Year(进货日期) = " & Value(0) Case 1 Filter ="Year(进货日期) = " & Value(0) & " And Month(进货日期) = " & Value(1) Case 2 Filter ="Year(进货日期) = " & Value(0) & " And Month(进货日期) = " & Value(1) & " And 厂家 = \'" & Value(2) & "\'" End Select DataTables("进货").LoadFilter = Filter DataTables("进货").Load() 在导航栏中加入上述代码，打开导航时没有显示目录树
|
| -- 作者：Bin -- 发布时间：2013/5/2 8:59:00 -- http://www.foxtable.com/help/topics/0893.htm 你要执行BuildTree方法来生产目录树 否则不会产生任何东西.
|