Dim Filter As String = "1=1"With e.Form.Controls("姓名") If .Value IsNot Nothing Then Filter = Filter &" And 姓名= '" & .Value & "'" End IfEnd With
Filter = Filter & " and 已付款 = " & e.Form.Controls("已付款").Checked
Tables("明细").Filter = Filter
加好友 
发短信
Post By：2016/6/22 16:28:00 [显示全部帖子]
