- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135791)
-- 发布时间：2019/6/3 12:39:00
-- [求助]目录树筛选
在目录树筛选显示数据是遇到一个bug，就是，名称为汉字组合可以正常筛选加载，数字型就会报错
此主题相关图片如下：360截图20190530101743699.jpg
代码如下：
Dim f As String = ""
If e.Node.Name <> "显示所有数据" Then
Dim sn As String = e.Node.DataRow("商品简称")
Dim sg As String = e.node.DataRow("规格名")
Select Case e.node.Level
Case 0
f = "商品简称 = \'" & sn & "\'"
Case 1
f = "商品简称 = \'" & sn & "\' and 规格名 = \'" & sg & "\' "
End Select
End If
Tables("录入资料_tb.cominfo").Filter = f
-- 发布时间：2019/6/3 13:03:00
--
Dim sn As String = e.Node.DataRow("商品简称")
改成
Dim sn As String = e.Node.DataRow("商品简称").replace("\'", "\'\'")
-- 发布时间：2019/6/3 14:18:00
--
还是不行啊
此主题相关图片如下：360截图20190603141556201.jpg
-- 发布时间：2019/6/3 14:52:00
--
Dim f As String = ""
If e.Node.Name <> "显示所有数据" Then
Dim sn As String = e.Node.DataRow("商品简称").replace("\'", "\'\'")
Dim sg As String = e.node.DataRow("规格名").replace("\'", "\'\'")
Select Case e.node.Level
Case 0
f = "商品简称 = \'" & sn & "\'"
Case 1
f = "商品简称 = \'" & sn & "\' and 规格名 = \'" & sg & "\' "
End Select
End If
Tables("录入资料_tb.cominfo").Filter = f
-- 发布时间：2019/6/3 16:18:00
--
感谢，已经完成了