主题：求筛选ShowCheckBox为TRUE的代码

For Each r As Row In Tables("添加入库购品代码_物料代码表").GetCheckedRows
   if s > ""

     s = "," + CStr(r("_Identify"))

   else

     s = "_Identify in " + "(" + CStr(r("_Identify"))

   end if  
Next

if s > ""

   s =  s + ")"

   Tables("添加入库购品代码_物料代码表").Filter = s

end if

没有很多时间去优化以上，但是应该可以实现你的要求