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

时　间: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

结果图示：