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


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

主题:多字段查询

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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/30 10:26:00 [只看该作者]

1、自带的数据库,可以在局域网里用(设置共享文件夹,把项目放在里面,大家都打开这个项目);

 

2、建立弄成access或者sqlserver数据库;其中,sqlserver可以在互联网中使用;

 

3、建议把【网络与数据源】一章,看完 http://www.foxtable.com/webhelp/scr/1420.htm

 


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


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

好的,谢谢老师


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/6 9:45:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("型号")
    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 型号 like '%" & s & "%'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
With e.Form.Controls("规格1")
    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 规格 like '%" & s & "%'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

With e.Form.Controls("规格1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Dim str As String = "1=1"
        For Each s As String In .Value.split(",")
            str &= " and 规格 like '%" & s & "%'"
        Next
        Filter = Filter & " (" & str & ") "
    End If
End With


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