DataTables("项目信息").LoadFilter ="(',' + 查阅人员 + ',') like '%" & Vars("xm") &"%' "
msgbox(DataTables("项目信息").LoadFilter )DataTables("项目信息").Load