Foxtable(狐表)用户栏目专家坐堂 → 多字段查询


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

主题:多字段查询

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
多字段查询  发帖心情 Post By:2018/5/29 10:22:00 [显示全部帖子]

老师上午好。
如图所示做了一个查询窗口,现在单字段的查询没有问题。就是查询不了多字段。比如,要查询第一行多字段中的无故障项。看了帮助文档里的多字段查询内容,但看不明白。老师能帮忙解决一下吗?谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:q.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/29 11:45:00 [显示全部帖子]

老师,还是解决不了?
With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=2"        ' 这段是什么意思?
       For Each s As String In .Value.split(",")
            str &= " or 故障原因 = '" & .Value & "'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With

[此贴子已经被作者于2018/5/29 11:47:13编辑过]

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/29 15:45:00 [显示全部帖子]

老师,根据您的解释红色区域的编码是不是要改成“5=2”(故障原因是第五列)。整体代码运行后多字段还是不能查询。请老师帮忙解决一下,我现在一头雾水!
With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "5=2"        ' 修改编码
       For Each s As String In .Value.split(",")
            str &= " or 故障原因 = '" & .Value & "'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/29 16:17:00 [显示全部帖子]

老师,显示情况是这样的。
With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "5=2"
        For Each s As String In .Value.split(",")
            str &= " or 故障原因 = '" & .Value & "'"     
        Next
        Filter = Filter & " (" & str & ") "
msgbox(str)
    End If
End With

图片点击可在新窗口打开查看此主题相关图片如下:a.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/5/29 16:18:37编辑过]

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/30 9:09:00 [显示全部帖子]

老师,问题解决了。不管是单字段还是多字段都能查询了。非常感谢!


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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/30 9:56:00 [显示全部帖子]

有点甜老师,再向您请教一个问题。
我在建一个生产管理系统,虽然我在编程方面几乎是一张白纸,但有有点甜老师的无私帮助,系统一步一步再完善。但对系统不熟悉有些顾虑是难免的。比如当初我的设想是:最终建成的一个生产管理系统有6个以上的用户(包括生产线、维修、库房、管理人员等)共用一个系统协同工作,联网方式是局域网或无线网均可。但问题是这种情况下,系统的数据库有特别的有特别的要求吗?目前我所使用的是foxtable自带的数据库。或者说foxtable自带的数据库能实现联网工作吗?
谢谢!

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/5/30 11:16:00 [显示全部帖子]

好的,谢谢老师


 回到顶部