Dim filter As StringIf user.group = "其他" Then filter = "负责人 = '"& user.name &"'" Else filter = "" End IfDataTables("维修单").loadfilter = filterDataTables("维修单").load