以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]有个加载条件不知如何写，请老师看下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115714)

--  作者：huangfanzi --  发布时间：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

--  作者：有点甜 --  发布时间：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