以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLQuery语句  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178782)

--  作者:denghui69986
--  发布时间:2022/7/20 17:01:00
--  SQLQuery语句
图片点击可在新窗口打开查看
老师这里面语句怎么写,在帮助里面没找到方法,

--  作者:有点蓝
--  发布时间:2022/7/20 17:07:00
--  
http://www.foxtable.com/webhelp/topics/0692.htm


--  作者:denghui69986
--  发布时间:2022/7/20 18:11:00
--  
我在窗口 SQLQuery添加搜索,下面代码不起作用呢

Dim Filter As String = ""
If e.form.controls("精确搜索").checked Then
    FIlter = "品名规格 = \'" & e.form.controls("ComboBOx1").text & "\'"
Else If e.form.controls("模糊搜索").checked Then
    Filter = "品名规格 like \'%" & e.form.controls("ComboBOx1").text & "%\'"
End If
Tables("ckgl_table1").Filter = "低耗料号清单 like \'%" & .text & "%\'"

--  作者:denghui69986
--  发布时间:2022/7/21 8:35:00
--  
在窗口 SQLQuery添加模糊和精确搜索,下面代码不起作用呢,老师帮我看看代码哪里不对

Dim Filter As String = ""
If e.form.controls("精确搜索").checked Then
    FIlter = "品名规格 = \'" & e.form.controls("ComboBOx1").text & "\'"
Else If e.form.controls("模糊搜索").checked Then
    Filter = "品名规格 like \'%" & e.form.controls("ComboBOx1").text & "%\'"
End If
Tables("ckgl_table1").Filter = "低耗料号清单 like \'%" & .text & "%\'"

--  作者:有点蓝
--  发布时间:2022/7/21 9:16:00
--  
参考:http://www.foxtable.com/webhelp/topics/1058.htm
--  作者:有点蓝
--  发布时间:2022/7/21 9:18:00
--  
Dim Filter As String = ""
With e.Form.Controls("ComboBOx1")
    
If .Value IsNot Nothing Then
If e.form.controls("精确搜索").checked Then
    FIlter = "品名规格 = \'" & .text & "\'"
Else If e.form.controls("模糊搜索").checked Then
    Filter = "品名规格 like \'%" & .text & "%\'"
End If
    
End If
End
 With
With e.Form.Controls("xx控件")
    
If .Value IsNot Nothing Then
        
If Filter > "" Then
            Filter = Filter & 
" And "
        
End If
        Filter = Filter & 
"低耗料号清单 like \'%" & .text & "%\'"
    
End If
End
 With
Tables("ckgl_table1").Filter =Filter 

--  作者:denghui69986
--  发布时间:2022/7/21 10:14:00
--  
今天链接外部资源多台电脑共享就突然打不开此软件,是不是我那没设置好,第一次用外部资源
--  作者:有点蓝
--  发布时间:2022/7/21 10:39:00
--  
打不开提示什么错误?
--  作者:denghui69986
--  发布时间:2022/7/21 10:54:00
--  
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2022/7/21 11:26:00
--  
客户端电脑没有权限访问服务器

数据源链接发上来看看