以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  错在那？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99424)
--  作者：xjlmz
--  发布时间：2017/4/19 10:12:00
--  错在那？
Dim m As Integer = CurrentTable.Current("出生日期").Month
        Filter = Filter & m= " & .Value & "



提取出生月 并显示符合条件记录  该语句执行后为空记录
--  作者：有点色
--  发布时间：2017/4/19 10:15:00
--  

 参考

 

http://www.foxtable.com/webhelp/scr/1058.htm

 

 如果不会写，截图说明问题，或者上传具体例子说明问题。
--  作者：xjlmz
--  发布时间：2017/4/19 10:28: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/19 10:57:00
--  

 参考这个例子

 

http://www.foxtable.com/webhelp/scr/2476.htm

 
--  作者：有点色
--  发布时间：2017/4/19 11:00:00
--  

 如果是按月筛选，参考

 

Dim idxs As String = DataTables("表a").SQLGetComboListString("_Identify", "month(第三列) = 4")
If idxs > "" Then
    Tables("表a").filter = "_Identify in (" & idxs.replace("|", ",") & ")"
Else
    Tables("表a").filter = "1=2"
End If