- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 表达式的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49024)
-- 发布时间：2014/4/10 19:06:00
-- 表达式的问题
1）用以下代码加载时可以加载到数据（见附图）
If User.Group = "项目部"
With DataTables("项目费用表")
.LoadFilter = "项目经理 = \'" & User.Name & "\'" & " And 类目 = \'银行帐\'" \'一定要清除加载条件
.LoadTop = 30
.LoadPage = 0
.Load()
End With
End If
2）改成以下代码就不行：
If User.Group = "项目部"
With DataTables("项目费用表")
.LoadFilter = "项目经理 Like " & """*" & User.Name & "*""" & " And 类目 = \'银行帐\'" \'一定要清除加载条件
.LoadTop = 30
.LoadPage = 0
.Load()
End With
End If
3）改成以下代码也不行：
If User.Group = "项目部"
With DataTables("项目费用表")
.LoadFilter = "项目经理 Like ‘*" & User.Name & "*’" & " And 类目 = \'银行帐\'" \'一定要清除加载条件
.LoadTop = 30
.LoadPage = 0
.Load()
End With
End If
请教问题在哪里？
此主题相关图片如下：加载1.png
-- 发布时间：2014/4/10 19:44:00
--
？？？
-- 发布时间：2014/4/10 20:04:00
--
要改成这样
If User.Group = "项目部"
With DataTables("项目费用表")
.LoadFilter = "项目经理 Like \'%" & User.Name & "%\'" & " And 类目 = \'银行帐\'" \'一定要清除加载条件
.LoadTop = 30
.LoadPage = 0
.Load()
End With
End If