Dim s As String = e.form.controls("CheckedComboBox1").Text
Tables("表A").Filter = "第一列 in ('" & s.replace(",", "','") & "')"
加好友 
发短信
Post By：2017/11/2 14:50:00 [显示全部帖子]
