Dim Filter As StringTables("服务对象").Filter = filterWith e.Form.Controls("xx2") If .Value IsNot Nothing Then Filter = "学校名称= '" & .Value & "'" End IfEnd WithIf Filter > "" Then Tables("服务对象").Filter = FilterEnd If
此主题相关图片如下:qq截图20140921100130.png