恩恩。谢谢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