[求助]有个加载条件不知如何写，请老师看下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有个加载条件不知如何写，请老师看下

共有1997人关注过本帖树形打印复制链接主题：[求助]有个加载条件不知如何写，请老师看下

huangfanzi

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

等级：五尾狐帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00

[求助]有个加载条件不知如何写，请老师看下 发帖心情

Post By：2018/3/13 10:22:00 [只看该作者]

这是“我的日历”例子中的一段代码，我想改下，事务类型为2代表私人事务，我要实现的加载要求是不显示非本人的私人事务

Dim Filter1 As String

Filter1 = Forms("win_日历窗口").controls("cmb_记录人").Text

Filter1 ="记录人 In ('" & Filter1.replace(",", "','") & "') And " & filter & " And ( 事务类型 <> 2 And 记录人 <> '" & User.Name & "')"

事务主表_dt.LoadFilter = Filter1

有点甜

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

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

Post By：2018/3/13 10:32:00 [只看该作者]

Dim Filter1 As String

Filter1 = Forms("win_日历窗口").controls("cmb_记录人").Text

Filter1 ="记录人 In ('" & Filter1.replace(",", "','") & "') and 事务类型 <> 2 And " & filter & " or (事务类型 = 2 And 记录人 = '" & User.Name & "')"

事务主表_dt.LoadFilter = Filter1

主题：[求助]有个加载条件不知如何写，请老师看下