以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]从日期中提取年份为列表项目  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140882)
--  作者：bashanren
--  发布时间：2019/9/16 22:27:00
--  [求助]从日期中提取年份为列表项目

各位大师，晚上辛苦！！

下在这段代码，是想从日期型“Begin”列（yyyy.mm.dd）格式，想从“Begin”列中提取年份“yyyy”格式作为列表项目，请大师指导，谢谢各位！

 

e.Sender.ComboList=DataTables("DailySW").GetComboListString("Begin","","_Identify")
--  作者：有点蓝
--  发布时间：2019/9/16 22:36:00
--  
e.Sender.ComboList=DataTables("DailySW").sqlGetComboListString("year(Begin)")
--  作者：bashanren
--  发布时间：2019/9/17 9:35:00
--  
非常感谢“甜”老师的指导！
接上面的问题，根据上面所提取出的年份，在筛选按钮中写筛选代码：
With e.Form.Controls("cmbNF")  ‘此处的“cmbNF”中的值系从“Enter”中提取的年份（2019），字符型。
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "Begin = \'" & .Value & "\'"    \'此处的“Begin”为日期形，格式为（yyyy,mm,dd）（如：2019-09-17）,请问这段该如何表述，谢谢！！
    End If
End With
--  作者：有点蓝
--  发布时间：2019/9/17 9:40:00
--  
With e.Form.Controls("cmbNF")  \'此处的"cmbNF"中的值系从"Enter"中提取的年份(2019),字符型.
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Dim d1 As Date = new Date(val(.Value),1,1)
        Filter = Filter & "Begin >= \'" & d1 & "\' and begin < \'" & d1.AddYears(1) & "\'"    \'此处的"Begin"为日期形,格式为(yyyy,mm,dd)(如:2019-09-17),请问这段该如何表述,谢谢!!
    End If
End With