Foxtable(狐表)用户栏目专家坐堂 → SQLQuery语句


  共有7450人关注过本帖树形打印复制链接

主题:SQLQuery语句

帅哥哟,离线,有人找我吗?
denghui69986
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
SQLQuery语句  发帖心情 Post By:2022/7/20 17:01:00 [只看该作者]

图片点击可在新窗口打开查看
老师这里面语句怎么写,在帮助里面没找到方法,

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/20 17:07:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
denghui69986
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By: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 & "%'"

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/21 9:16:00 [只看该作者]


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/7/21 10:14:00 [只看该作者]

今天链接外部资源多台电脑共享就突然打不开此软件,是不是我那没设置好,第一次用外部资源

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/21 10:39:00 [只看该作者]

打不开提示什么错误?

 回到顶部
帅哥哟,离线,有人找我吗?
denghui69986
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3303 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/7/21 10:54:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/21 11:26:00 [只看该作者]

客户端电脑没有权限访问服务器

数据源链接发上来看看

 回到顶部
总数 14 1 2 下一页