Dim str As String = "044A6124B4CB420E9359D63D5AD74078,20A285972D68488FAE30D97933D95B79,0AF0096262A344E8A93A124CE4C31CC4"str = str.replace(",", "','")
Tables("企业规模sql").Filter="enterprise_id in ('" & str & "')"