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
