主题：加载代码

Dim Filter As String

If user.IsRole("A公司") = True   Then

        Filter = "银行编号 Like '1%'"

End If

msgbox(Filter)

If Filter > ""  Then

    DataTables("银行余额表").LoadFilter = Filter

    DataTables("银行余额表").Load()

msgbox(1)

End If