-- 作者:新航程小何
-- 发布时间:2014/9/21 10:02:00
-- 条件筛选不能实现(代码如下)
Dim Filter As String Tables("服务对象").Filter = filter With e.Form.Controls("xx2") If .Value IsNot Nothing Then Filter = "学校名称= \'" & .Value & "\'" End If End With If Filter > "" Then Tables("服务对象").Filter = Filter End If
此主题相关图片如下:qq截图20140921100130.png

|