Dim Filter As String
With e.Form.Controls("小区地址")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "小区地址 in ('" & .Value.Replace(",", "','") & "')"
End If
End With
With e.Form.Controls("项目经理")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "项目经理 in ('" & .Value.Replace(",", "','") & "')"
End If
End With
With e.Form.Controls("设计师")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "设计师 in ('" & .Value.Replace(",", "','") & "')"
End If
End With
With e.Form.Controls("工地进度")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "工地进度 in ('" & .Value.Replace(",", "','") & "')"
End If
End With
With e.Form.Controls("开工起始")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("开工结束")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("设计师工地进度汇总_Table1").Filter = Filter
End If
这段代码和下面的这个代码能不能合并,应该如何合并,求助?
Tables("设计师工地进度汇总_Table1").Filter = "Not (操作性 = '预签'or 操作性 = '等待中'or 操作性 = '放一下'or 操作性 = '可操作'or 操作性 = '跑单' or 操作性 = '预收设计'or 操作性 = '未知'or 操作性 = '问题单')"
下面的这段代码是当窗口打开后afterload中执行的,上面的代码是在窗口中执行的筛选代码,但没有加入afterload中的代码结果,所以想要合并两个代码一起执行,求助?
求大侠指点?