主题：刚才网页乱码，重新发帖。。

恩恩。谢谢Bin老师、有点甜老师，

如果不做索引，下面这段代码能不能有别的思路或者怎么优化。

目的是想要实现：

两个情况下的加载，

条件1，如果登陆账号是门店账号，则 归属门店 的值就是 登陆账号。

条件2，如果登陆账号是办公室管理干部的账号，则 归属门店  的值 从   {VIP管理人员对应门店} 这个表里，找出 此管理人员登陆账号对应的门店。

Dim Filter As String = “ ( 归属门店 = '" & user.name & "'   or  归属门店 In (Select fchrStoreCode from {VIP管理人员对应门店} where fchrLandName= '" & user.name & "' ) "
If Filter > "" Then
DataTables("VIP行为信息_VIP行为信息").LoadFilter = filter 
messagebox.show(filter)
DataTables("VIP行为信息_VIP行为信息").Load
End If

 回复11楼， 把门店账号添加到{VIP管理人员对应门店} 表里去，加一行内容。

甜老师 你太厉害了，我之前咋也没想过。

Dim Filter As String = " (归属门店 In (Select fchrStoreCode from {VIP管理人员对应门店} where fchrLandName= '" & user.name & "' or   fchrStoreCode = '" & user.name & "'))"

可以实现！！