- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- SQLQuery语句 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178782)
-- 发布时间：2022/7/20 17:01:00
-- SQLQuery语句
老师这里面语句怎么写，在帮助里面没找到方法，
-- 发布时间：2022/7/20 17:07:00
--
http://www.foxtable.com/webhelp/topics/0692.htm
-- 发布时间：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 & "%\'"
-- 发布时间：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
End With
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 IfEnd 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
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
-- 发布时间：2022/7/21 10:14:00
--
今天链接外部资源多台电脑共享就突然打不开此软件，是不是我那没设置好，第一次用外部资源
-- 发布时间：2022/7/21 10:39:00
--
打不开提示什么错误？
-- 发布时间：2022/7/21 10:54:00
--
-- 发布时间：2022/7/21 11:26:00
--
客户端电脑没有权限访问服务器
数据源链接发上来看看