If Forms("监理合同台帐").Opened() Then Dim t As Table = Tables("监理合同台帐_Table2") With Tables("监理合同台帐_Table1") If .Current Is Nothing Then t.Filter = "False" Else Dim filter As String = "1=1" If .Current.Isnull("项目名称") = False Then filter &= " and 项目名称 = '" & .Current("项目名称") & "'" Else filter &= " and 项目名称 is null" End If If .Current.Isnull("标段名称") = False Then filter &= " And 标段名称 = '" & .Current("标段名称") & "'" Else filter &= " And 标段名称 is null" End If t.Filter = filter End If End With End If
|