⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 moduleempreport.bas

📁 本公司开发得大请油田人事管理系统c/s结构
💻 BAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
        ors4temp.CursorLocation = adUseClient
        ors4temp.Open strSQL, g_oConnection4This
        ReDim AryNum(ors4temp.RecordCount - 1, 0)
        i = 1
        ifor = 1
        Do While ors4temp.EOF = False
            If Len(ors4temp.Fields("organ_no").Value) = C_COMPANY_LENGTH Then
                AryNum(ifor - 1, 0) = i
                i = i + 1
                ifor = ifor + 1
            Else
                ifor = ifor + 1
            End If
            ors4temp.MoveNext
        Loop
        g_oSheet4Export.Cells(12, 1).Resize(int4RecordCount, 1).Value = AryNum
        g_oSheet4Export.Cells(12, 2).Resize(int4RecordCount, int4FieldCount).Value = TransposeDim(Array4RecordCount)
    End If
    g_oSheet4Export.Range("c" & CStr(3)) = CheckVariant(g_str4ReportOrgan)
    g_oSheet4Export.Range("t" & CStr(3)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Range("d" & CStr(44)) = CheckVariant(g_str4OrganEmp)
    g_oSheet4Export.Range("o" & CStr(44)) = CheckVariant(g_str4CompanyEmp)
    g_oSheet4Export.Range("x" & CStr(44)) = CheckVariant(g_str4TableEmp)
    g_oSheet4Export.Range("am" & CStr(44)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Cells(16, 2).Select
    Set m_Command4Report = Nothing
    Set m_Params4Report = Nothing
    Set m_oRs4Report = Nothing
    Getsp_basic_organ_and_emp = True
Err:
    Exit Function
End Function
            
'职工文化、年龄结构情况
Public Function Getemp_culture_and_age() As Boolean
    Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
'On Error GoTo Err:
    Getemp_culture_and_age = False
    With m_Command4Report
        Set .ActiveConnection = g_oConnection4This
        .CommandType = adCmdStoredProc
        Set m_Params4Report = .Parameters
        m_Params4Report.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
        m_Params4Report.Append .CreateParameter("@Organ_no", adVarChar, adParamInput, 50)
    End With
    
    m_Params4Report("@Organ_no") = frmReport.SSComboBoxEx4Organ.ItemData(frmReport.SSComboBoxEx4Organ.ListIndex)
    
    m_Command4Report.CommandText = "sp_emp_culture_and_age"
    Set m_oRs4Report = m_Command4Report.Execute()
    
    If ExportExcel(, , C_EMP_AGE_EDUCATION, frmReport.Dir4This.Path) = False Then
        Set m_Command4Report = Nothing
        Set m_Params4Report = Nothing
        Set m_oRs4Report = Nothing
        Getemp_culture_and_age = False
        Exit Function
    End If
    If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("d12:u14").CopyFromRecordset m_oRs4Report
    g_oSheet4Export.Range("b" & CStr(4)) = CheckVariant(g_str4ReportOrgan)
    g_oSheet4Export.Range("i" & CStr(4)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Range("b" & CStr(15)) = CheckVariant(g_str4OrganEmp)
    g_oSheet4Export.Range("h" & CStr(15)) = CheckVariant(g_str4CompanyEmp)
    g_oSheet4Export.Range("o" & CStr(15)) = CheckVariant(g_str4TableEmp)
    g_oSheet4Export.Range("s" & CStr(15)) = CheckVariant(g_str4ReportTime)
'    If m_oRs4Report.EOF = False Then
'        i = 13
'        g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'        g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'        g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'        g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'        g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'        g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'        g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'        g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'        g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'        g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'        g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'        g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'        g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'        g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'        g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'        g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'        g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'        g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'        i = i + 1
'        m_oRs4Report.MoveNext
'
'        If i = 14 Then
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 15 Then i = i + 4
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 20 Then i = i - 3
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 18 Then i = i - 3
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 16 Then i = i + 5
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i > 21 Then i = 18
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'
'            If i = 19 Then i = i - 3
'            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'            g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'            m_oRs4Report.MoveNext
'            If i = 16 Then
'                If m_oRs4Report.EOF Then
''                    g_oSheet4Export.Cells(16, 2).Select
''                    Set m_Command4Report = Nothing
''                    Set m_Params4Report = Nothing
''                    Set m_oRs4Report = Nothing
''                    Getemp_culture_and_age = True
'                Else
'                    g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
'                    g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'                    g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'                    g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'                    g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'                    g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'                    g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'                    g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'                    g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'                    g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
'                    g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
'                    g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
'                    g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
'                    g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
'                    g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
'                    g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
'                    g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(17).Value)
'                    g_oSheet4Export.Range("u" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(18).Value)
'                    m_oRs4Report.MoveNext
'                End If
'            End If
'            Set m_oRs4Report = m_oRs4Report.NextRecordset
'
'            'g_oSheet4Export.Range("u" & CStr(12)) = (g_oSheet4Export.Range("u" & CStr(21)) + g_oSheet4Export.Range("u" & CStr(20)) + g_oSheet4Export.Range("u" & CStr(19)) + g_oSheet4Export.Range("u" & CStr(18)) + g_oSheet4Export.Range("u" & CStr(17)) + g_oSheet4Export.Range("u" & CStr(16)) + g_oSheet4Export.Range("u" & CStr(15))) / 7
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -