Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

根据查询结果不同修改子窗体列名称与列数据同步改变\多数据源查询同一子窗体数据

时 间:2014-04-18 13:40:44
作 者:colin   ID:14395  城市:成都
摘 要:根据查询结果不同修改子窗体中列名称与列数据同步改变
正 文:

     应一个网友的要求,实现在一个多条件查询中,查询不同的数据源,得到不同的数据结果,在同一个子窗体中显示出来。

功   :根据查询结果不同修改子窗体中列名称与列数据同步改变

代   :

Function 执行查询()
    Dim strWhere As String
    Dim strField As String
    Dim strFormat As String
    Dim strCaption As String
    
    '取得查询条件,日期用Format函数进行格式化是为了更好的兼容性,在任何地方都不会出错
    
    If Nz(Me.工作公司) <> "" Then strWhere = strWhere & " AND ([工作公司] Like '*" & Me.工作公司 & "*')"
    
    Select Case Me.Frame1
    Case 1    '入职
         If Nz(Me.起始日期) <> "" Then strWhere = strWhere & " AND 入职日期 >= #" & Format$(Me.起始日期, "yyyy-mm-dd") & "#"
        If Nz(Me.截止日期) <> "" Then strWhere = strWhere & " AND 入职日期 <= #" & Format$(Me.截止日期, "yyyy-mm-dd") & "#"
    Case 2    '离职
        If Nz(Me.起始日期) <> "" Then strWhere = strWhere & " AND 离职日期 >= #" & Format$(Me.起始日期, "yyyy-mm-dd") & "#"
        If Nz(Me.截止日期) <> "" Then strWhere = strWhere & " AND 离职日期 <= #" & Format$(Me.截止日期, "yyyy-mm-dd") & "#"
    Case 3    '转正
        If Nz(Me.起始日期) <> "" Then strWhere = strWhere & " AND 实际转正日期 >= #" & Format$(Me.起始日期, "yyyy-mm-dd") & "#"
        If Nz(Me.截止日期) <> "" Then strWhere = strWhere & " AND 实际转正日期 <= #" & Format$(Me.截止日期, "yyyy-mm-dd") & "#"
    Case 4    '调动
        If Nz(Me.起始日期) <> "" Then strWhere = strWhere & " AND 起始日期 >= #" & Format$(Me.起始日期, "yyyy-mm-dd") & "#"
        If Nz(Me.截止日期) <> "" Then strWhere = strWhere & " AND 起始日期 <= #" & Format$(Me.截止日期, "yyyy-mm-dd") & "#"
    End Select
    '由于最后生成的条件最前面始终会多出一个“ AND ”,所以这里要将其去掉,并且如果条件不为空在前面加上 Where 关键字
    If strWhere <> "" Then
        strWhere = " Where " & Mid(strWhere, 6)
        Select Case Me.Frame1
        Case 1    '入职
           Me.员工调动查询_child.Form.RecordSource = "select * from 入离职查询" & strWhere & "order by 姓名 desc"
            '修改子窗体中指定列的列名称
            Me.员工调动查询_child.Controls("入职日期").Controls(0).Caption = "入职日期"
            '修改子窗体中指定列的数据源绑定
            Me.员工调动查询_child.Controls("入职日期").ControlSource = "入职日期"
            '------------------
            Me.员工调动查询_child.Controls("离职日期").Controls(0).Caption = "离职日期"
            Me.员工调动查询_child.Controls("离职日期").ControlSource = "离职日期"
         Case 2    '离职
           Me.员工调动查询_child.Form.RecordSource = "select * from 入离职查询" & strWhere & "order by 姓名 desc"
            '修改子窗体中指定列的列名称
            Me.员工调动查询_child.Controls("入职日期").Controls(0).Caption = "入职日期"
            '修改子窗体中指定列的数据源绑定
            Me.员工调动查询_child.Controls("入职日期").ControlSource = "入职日期"
            '------------------
            Me.员工调动查询_child.Controls("离职日期").Controls(0).Caption = "离职日期"
            Me.员工调动查询_child.Controls("离职日期").ControlSource = "离职日期"
        Case 3    '转正
           Me.员工调动查询_child.Form.RecordSource = "select * from 转正查询" & strWhere & "order by 姓名 desc"
            '修改子窗体中指定列的列名称
            Me.员工调动查询_child.Controls("入职日期").Controls(0).Caption = "实际转正日期"
            '修改子窗体中指定列的数据源绑定
            Me.员工调动查询_child.Controls("入职日期").ControlSource = "实际转正日期"
            '------------------
            Me.员工调动查询_child.Controls("离职日期").Controls(0).Caption = "试用期考核结果"
            Me.员工调动查询_child.Controls("离职日期").ControlSource = "试用期考核结果"
        Case 4    '调动
           Me.员工调动查询_child.Form.RecordSource = "select * from 调动查询" & strWhere & "order by 姓名 desc"
            '修改子窗体中指定列的列名称
            Me.员工调动查询_child.Controls("入职日期").Controls(0).Caption = "调动时间"
            '修改子窗体中指定列的数据源绑定
            Me.员工调动查询_child.Controls("入职日期").ControlSource = "调动时间"
            '------------------
            Me.员工调动查询_child.Controls("离职日期").Controls(0).Caption = "职位变动原因"
            Me.员工调动查询_child.Controls("离职日期").ControlSource = "职位变动原因"
         End Select
    Else
        Me.员工调动查询_child.Form.RecordSource = "select top 1000 * from 入离职查询 order by 姓名 desc"
    End If
    On Error Resume Next
End Function


结果图示:



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助