参考代码
Dim ck As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")Tables("表C").filter = "品类 in ('" & ck.text.replace(",", "','") & "')"
加好友 
发短信
Post By：2018/11/7 11:43:00 [显示全部帖子]
