With DataTables("采购报价明细_采购报价订单")
If user.name = "管理员"
.LoadFilter = ""
Else
Dim filter = "'"
Dim str = ""
For Each s As String In _UserGroup.split(",")
If str = "" Then
strl = "[部门] = '" & s & "'"
Else
str = str & " or [部门] = '" & s & "'"
End If
Next
filter &= " (" & str.Substring(3) & ")"
.LoadFilter = filter
End If
.LoadTop = 1000
.LoadPage = 0
.Load()
End With