VB窗体树控件选中节点显示筛选数据库数据问题

鄂龙蒙

请教：下面代码“合同签订日期”字段是日期--2016/7/23--，而要查询的是“年度”，想用--aa--取前4位转换成“年度”，不知如何写代码？
请大师指教。谢谢！
Private Sub TreeView3_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim treeFlag As String
    treeFlag = Left(Node.Key, 1)

    Dim aa
    aa = Left(rs3.Fields("合同签订日期"), 4) & "年度"

    Select Case treeFlag
        Case Is = "d"      '点击总节点时
            SQL = "select * from 基础档案表 ORDER BY 项目编号 ASC"
            Call addLIST

        Case Is = "F"      '点子节点时
            SQL = "select * from  基础档案表"
            SQL = SQL & " where 合同签订日期 ='" & Node.Text & "' ORDER BY 项目编号 ASC"

            SQL = SQL & " where " & aa & " ='" & Node.Text & "' ORDER BY 项目编号 ASC"


            Call addLIST       '调用填充数据程序
    End Select
End Sub

蓝桥玄霜

建议上传表格附件来说明问题。

鄂龙蒙

蓝桥玄霜 发表于 2016-7-23 14:16
建议上传表格附件来说明问题。

谢谢您！
由于用的ACCESS数据库，文件太大，无法上传。
能否请教版主：
发贴的问题实际上就是一个想提取“年度”数据，字段中日期怎么样与此字段前四位“年度”匹配查询。
谢谢版主关注！

zhangwg0604

蓝桥玄霜 发表于 2016-7-23 14:16
建议上传表格附件来说明问题。

https://club.excelhome.net/threa ... tml?_dsign=6025363b
帮忙看看代码提示错误，还请指教。感谢！