以文本方式查看主题

-  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=157563)

--  作者:江南小镇
--  发布时间:2020/10/21 6:12:00
--  [求助]模糊查询
老师,下面代码怎样修改。

\'生成可见的列名称  窗口模糊查询
Dim Cols,Vals As New List(of String)
Dim flt As String = "1=1"
For Each c As Col In Args(0).Cols
    If c.Visible = True
        cols.add(c.name)
    End If
Next
\'生成查询条件
Vals.AddRange(Args(1).Replace("\'","\'\'").Replace("*","[*]").Split(","))  \'查询值列表并保证其有效
Dim i As Integer = 0
For Each Val As String In Vals
    
    Dim temp As String = ""
    For Each c As String In Cols
        temp = temp & " Convert(" & c & ",\'System.String\') like \'%" & Val & "%\' Or"
    Next
    flt = flt & " and ("& temp.SubString(0, temp.length-3) & ")"
Next
Return flt




.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2017.4.22.1
错误所在事件:
详细错误信息:
表达式包含未定义的函数调用 金额()。



图片点击可在新窗口打开查看此主题相关图片如下:image 3.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/10/21 6:14:14编辑过]

--  作者:有点蓝
--  发布时间:2020/10/21 8:31:00
--  
调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm
……
    flt = flt & " and ("& temp.SubString(0, temp.length-3) & ")"
Next
msgbox(flt)
Return flt

--  作者:江南小镇
--  发布时间:2020/10/22 5:29:00
--  
老师,带括号的”金额()”列 怎样处理。



.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2017.4.22.1
错误所在事件:
详细错误信息:
表达式包含未定义的函数调用 金额()。


\'生成可见的列名称  窗口模糊查询
Dim Cols,Vals As New List(of String)
Dim flt As String = "1=1"
For Each c As Col In Args(0).Cols
    If c.Visible = True
        cols.add(c.name)
    End If
Next
\'生成查询条件
Vals.AddRange(Args(1).Replace("\'","\'\'").Replace("*","[*]").Split(","))  \'查询值列表并保证其有效
Dim i As Integer = 0
For Each Val As String In Vals
    
    Dim temp As String = ""
    For Each c As String In Cols
        temp = temp & " Convert(" & c & ",\'System.String\') like \'%" & Val & "%\' Or"
    Next
flt = flt & " and ("& temp.SubString(0, temp.length-3) & ")"
Next
\'msgbox(flt)
Return flt


--  作者:有点蓝
--  发布时间:2020/10/22 9:00:00
--  
列名不要使用特殊符号,建议放到列标题里
--  作者:江南小镇
--  发布时间:2020/10/22 10:52:00
--  
好的,谢谢老师。