Dim Filter As String
With e.Form.Controls("生日月份")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Dim m As Integer = CurrentTable.Current("出生日期").Month
Filter = Filter & m= " & .Value & "
End If
End With
If Filter > "" Then
Tables("村民成员表").Filter = Filter
Output.Show(Tables("村民成员表").Rows.Count)
e.Form.Controls("合计").Text = Tables("村民成员表").Rows.Count
End If