以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  判断出生月份出错？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99381)

--  作者：xjlmz --  发布时间：2017/4/18 14:42:00 --  判断出生月份出错？ 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

--  作者：有点蓝 --  发布时间：2017/4/18 15:04:00 --   没有办法直接筛选月份。增加一个月份列辅助。

--  作者：xjlmz --  发布时间：2017/4/18 16:42:00 --   可以从身份证号中提取月份吗？

--  作者：有点蓝 --  发布时间：2017/4/18 17:14:00 --   可以的，先提取出生日，就知道月份了