| 以文本方式查看主题 - 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=109987) |
| -- 作者：实话实说 -- 发布时间：2017/11/24 9:02:00 -- 目录树单击事件 下面是目录树单击事件，当型号规格是123456 0.5*10是有效，当型号规格是123456 VV 0.5*10时无效，下面代码如何修正？ If e.Node.text <> "全部" Dim Value()As String Value = e.Node.FullPath.Split("\\") Select Case e.Node.Level Case 0 Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\'" Case 1 Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'" Case 2 Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'And [型号规格] = \'" & Value(2).split(" ")(1) & "\'" End Select Else Tables("材料").ApplyFilter = False \'关闭筛选 End If |
| -- 作者：实话实说 -- 发布时间：2017/11/24 9:52:00 -- 型号规格123456 0.5*10和123456 VV 0.5*10都可能存在 |
| -- 作者：实话实说 -- 发布时间：2017/11/24 10:12:00 -- 请老师指点 |
| -- 作者：blsu33 -- 发布时间：2017/11/24 10:21:00 -- Value(0).split(" ")(1)换成 Value(0).Trim(" ") 或许可以 |
| -- 作者：有点甜 -- 发布时间：2017/11/24 10:26:00 -- If e.Node.text <> "全部" Dim Value()As String Value = e.Node.FullPath.Split("\\") Select Case e.Node.Level Case 0 Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\'" Case 1 Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'" Case 2 Dim xhgg As String = Value(2) Dim idx As Integer = xhgg.LastIndexOf(" ") xhgg = xhgg.SubString(idx+1) Tables("材料").Filter ="[材料分类] = \'" & Value(0).split(" ")(1) & "\' And [材料名称] = \'" & Value(1).split(" ")(1) & "\'And [型号规格] = \'" & xhgg & "\'" End Select Else Tables("材料").ApplyFilter = False \'关闭筛选 End If [此贴子已经被作者于2017/11/24 10:27:19编辑过]
|
| -- 作者：实话实说 -- 发布时间：2017/11/24 10:36:00 -- 5楼代码没通过 |
| -- 作者：有点甜 -- 发布时间：2017/11/24 10:56:00 -- 提示什么错？加入msgbox弹出值看有没有错。
如果还有问题实例发上来看看。 |
| -- 作者：实话实说 -- 发布时间：2017/11/24 10:57:00 -- xhgg.LastIndexOf应该是xhgg.IndexOf 谢谢老师
[此贴子已经被作者于2017/11/24 10:57:52编辑过]
|