| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录树提示操作符丢失？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32356) |
| -- 作者：wqb1102 -- 发布时间：2013/4/30 15:33:00 -- 目录树提示操作符丢失？ Dim Value()As String Dim Filter As String Value = e.Node.FullPath.Split("\\") 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) & "\'" Case 3 Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = \'" & Value(2) & " And 市 = \'" & Value(3) & "\'" Case 4 Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = \'" & Value(2) & " And 市 = \'" & Value(3) & " And 县 = \'" & Value(4) & "\'" Case 5 Filter ="Year(发货日期) = " & Value(0) & " And Month(发货日期) = " & Value(1) & " And 省 = \'" & Value(2) & " And 市 = \'" & Value(3) & " And 县 = \'" & Value(4) & " And 客户 = \'" & Value(5) & "\'" End Select DataTables("出库").LoadFilter = Filter DataTables("出库").Load() 执行中提示： 在Case 3后操作符丢失，不知出错在那？
|
| -- 作者：Bin -- 发布时间：2013/5/2 8:47:00 -- 弹出一个Filter看看.它的值. |
| -- 作者：wqb1102 -- 发布时间：2013/5/2 9:10:00 -- 怎么弹出？ |
| -- 作者：wqb1102 -- 发布时间：2013/5/2 9:27:00 -- 在命令窗口中调试，提示：Public shared sub clear（）参数太多 ，错误代码： Value = e.Node.FullPath.Split("\\")，是否只能有三层节点？ |
| -- 作者：Bin -- 发布时间：2013/5/2 9:29:00 -- 没有3层节点这个限制. MEssageBox.SHow(Filter)
|
| -- 作者：wqb1102 -- 发布时间：2013/5/2 15:27:00 -- 加在二、三句中间吗？ |
| -- 作者：Bin -- 发布时间：2013/5/2 15:31:00 -- 怀疑哪里出错就加在哪里后面.或者所有都加都可以.一一排除. |
| -- 作者：wqb1102 -- 发布时间：2013/5/2 15:39:00 -- 加在二、三句中还是提示操作符丢失？ |
| -- 作者：Bin -- 发布时间：2013/5/2 15:43:00 -- 例子发出来吧.你连调试都不会- - |
| -- 作者：程兴刚 -- 发布时间：2013/5/2 15:47:00 -- …… ……And 省 = \'" & Value(2) & "\' And 市 = \'" & Value(3) & "\'" …… |