以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  Q:这个树怎么会出错。帮看看  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27674)

--  作者：HP002 --  发布时间：2013/1/7 16:06:00 --  Q:这个树怎么会出错。帮看看 见窗口  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:测试.zip

--  作者：lin_hailun --  发布时间：2013/1/7 16:15:00 --    你代码的数字写错了 Dim Value() As String Value = e.Node.FullPath.Split("\\") Select Case e.Node.Level     Case 0         Tables("表A.表B").Filter = "[订单号] = \'" & Value(0) & "\'"     Case 1         Tables("表A.表B").Filter = "[订单号] = \'" & Value(0) & "\' And [物料类别] = \'" & Value(1) & "\'"     Case 2         Tables("表A.表B").Filter = "[订单号] = \'" & Value(0) & "\' And [物料类别] = \'" & Value(1) & "\'And [物料代号] = \'" & Value(2) & "\'"     Case 3         Tables("表A.表B").Filter = "[订单号] = \'" & Value(0) & "\' And [物料类别] = \'" & Value(1) & "\'And [物料代号] = \'" & Value(3) & "\'And [序号] = \'" & Value(2) & "\'"         End Select