请教老师一个问题~ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师一个问题~

共有1638人关注过本帖树形打印复制链接主题：请教老师一个问题~

fangdejin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：411 积分：4303 威望：0 精华：0 注册：2018/7/18 21:08:00

请教老师一个问题~ 发帖心情

Post By：2019/6/30 21:36:00 [只看该作者]

定义了一个全局变量 filter

然后在loadusersetting里这样设置

If User.Group <>"" Then '如果用户分组不为空

filter ="产品ID='" & User.Group & "'" '如果有对应的分组数据,加载数据

Else

filter="" '如果没有分组,不在家数据

End If

With DataTables("产品")

.loadfilter = filter

.load()

End With

在查询界面的文本框 enter 里输入如下代码加一个 filter 条件不行

If e.keycode = keys.enter Then

Dim s As String = e.Sender.Text

Dim f As String

Dim ss As String()=s.split(",")

For Each t As String In ss

f=f & " Or 产品名称 Like '%" & t & "%'"

f=f.Remove(0,4)

With DataTables("查询")

.LoadFilter= f & filter

.Load()

End With

End If

fangdejin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：411 积分：4303 威望：0 精华：0 注册：2018/7/18 21:08:00

Post By：2019/6/30 21:38:00 [只看该作者]

文件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:订单系统.foxdb

fangdejin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：411 积分：4303 威望：0 精华：0 注册：2018/7/18 21:08:00

Post By：2019/6/30 21:39:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多表统计.rar

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/7/1 10:13:00 [只看该作者]

If e.keycode = keys.enter Then
    Dim s As String = e.Sender.Text
    Dim f As String
    Dim ss As String()=s.split(",")
    For Each t As String In ss
        f=f & " Or 产品名称 Like '%" & t & "%'"
    Next
    f=f.Remove(0,4)
    With DataTables("查询")
        .LoadFilter= iif(filter>"", filter & " and (" & f & ")", f)

msgbox(.LoadFilter)
.Load()
End With
End If

下一主题 >> << 上一主题

主题：请教老师一个问题~