VB开发的ERP系统

                    Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Mjjehj")
                    Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Mdjehj")
                    Dbl_Sljfhj = Dbl_Sljfhj + .Fields("Mjslhj")
                    Dbl_Sldfhj = Dbl_Sldfhj + .Fields("Mdslhj")
                    Dbl_Wbjfhj = Dbl_Wbjfhj + .Fields("Mjwbhj")
                    Dbl_Wbdfhj = Dbl_Wbdfhj + .Fields("Mdwbhj")
                    
                    Dbl_Jejflj = Dbl_Jejflj + .Fields("Mjjehj")
                    Dbl_Jedflj = Dbl_Jedflj + .Fields("Mdjehj")
                    Dbl_Sljflj = Dbl_Sljflj + .Fields("Mjslhj")
                    Dbl_Sldflj = Dbl_Sldflj + .Fields("Mdslhj")
                    Dbl_Wbjflj = Dbl_Wbjflj + .Fields("Mjwbhj")
                    Dbl_Wbdflj = Dbl_Wbdflj + .Fields("Mdwbhj")
                End If
            End If
        End With
        
        '判断是否包含未记帐凭证
        If Bln_IncluNotBook Then
            With RecTemp
                If .RecordCount <> 0 Then
                    .MoveFirst
                    .Find "Period =" & Int_DqPeriod
                    If Not .EOF Then
                        Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Jfjehj")
                        Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Dfjehj")
                        Dbl_Sljfhj = Dbl_Sljfhj + .Fields("Jfslhj")
                        Dbl_Sldfhj = Dbl_Sldfhj + .Fields("Dfslhj")
                        Dbl_Wbjfhj = Dbl_Wbjfhj + .Fields("Wbjfjehj")
                        Dbl_Wbdfhj = Dbl_Wbdfhj + .Fields("Wbdfjehj")
                        
                        Dbl_Jejflj = Dbl_Jejflj + .Fields("Jfjehj")
                        Dbl_Jedflj = Dbl_Jedflj + .Fields("Dfjehj")
                        Dbl_Sljflj = Dbl_Sljflj + .Fields("Jfslhj")
                        Dbl_Sldflj = Dbl_Sldflj + .Fields("Dfslhj")
                        Dbl_Wbjflj = Dbl_Wbjflj + .Fields("Wbjfjehj")
                        Dbl_Wbdflj = Dbl_Wbdflj + .Fields("Wbdfjehj")
                    End If
                End If
            End With
        End If
        
        '随时计算期末余额
        
        Dbl_Qcyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
        Dbl_Qcslte = Dbl_Qcslte + Dbl_Sljfhj - Dbl_Sldfhj
        Dbl_Qcwbte = Dbl_Qcwbte + Dbl_Wbjfhj - Dbl_Wbdfhj
        
        '如果本期合计数据不为零则输出本月合计,本年累计,期末余额
        If Dbl_Jejfhj <> 0 Or Dbl_Jedfhj <> 0 Or Dbl_Sljfhj <> 0 Or Dbl_Sldfhj <> 0 Or Dbl_Wbjfhj <> 0 Or Dbl_Wbdfhj <> 0 Then
            CxbbGrid.AddItem ""
            Jsqte = Jsqte + 1
            Call Sub_OutPeriodSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj)
            
            '输出余额
            Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
            
            CxbbGrid.AddItem ""
            Jsqte = Jsqte + 1
            Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
        End If
        
    Next Int_DqPeriod
    
    '重置网格行高
    For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
        CxbbGrid.RowHeight(Jsqte) = Sjhgd
    Next Jsqte
    
End Sub

Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
    Dim Int_Coljsq As Integer         '网格列临时计数器
    
    '为了加快显示速度
    CxbbGrid.Redraw = False
    
    For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
        CxbbGrid.ColHidden(Int_Coljsq) = True
    Next Int_Coljsq
    
    Select Case Combo_AccFormat
    Case "金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '借方.借方
        CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '贷方.贷方
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '余额.余额
        
    Case "外币金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.外币
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.外币
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.金额
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.外币
        CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.金额
        
    Case "数量金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.数量
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.金额
        CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.数量
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.金额
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
        CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.金额
        
    Case "数量外币式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.数量
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.外币
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.金额
        CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.数量
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.外币
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.金额
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.外币
        CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.金额
        
    End Select
    CxbbGrid.Redraw = True
End Sub

Private Sub Sub_OutBalance(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#)          '输出余额
    If Dbl_Qcyete = 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = "平"          '期初方向
        If Bln_EndFlag And Dbl_Qcslte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
        End If
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Dbl_Qcwbte
        End If
    Else
        If Dbl_Qcyete > 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = "借"
            CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Dbl_Qcyete
            CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcyete
            If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Dbl_Qcwbte
            End If
        Else
            CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = "贷"
            CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = -Dbl_Qcyete
            CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = -Dbl_Qcyete
            If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Dbl_Qcslte
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = -Dbl_Qcwbte
            End If
        End If
    End If
End Sub

Private Sub Sub_OutPeriodSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj#)  '输出本月合计
    CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
    CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "本月合计"
    If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
        CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jejfhj
        CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Jejfhj
    End If
    If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
        CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jedfhj
        CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Jedfhj
    End If
    
    '只有末级科目才显示数量和外币
    If Bln_EndFlag Then
        If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Sljfhj
        End If
        If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Sldfhj
        End If
    End If
    
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Wbjfhj
        End If
        If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Wbdfhj
        End If
    End If
End Sub

Private Sub Sub_OutYearSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj#)  '输出本年累计
    CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
    CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "本年累计"
    If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
        CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jejflj
        CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Jejflj
    End If
    If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
        CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jedflj
        CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Jedflj
    End If
    
    '只有末级科目才显示数量和外币
    If Bln_EndFlag Then
        If Dbl_Sljflj <> 0 Then                                                     '本年借方数量累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Sljflj
        End If
        If Dbl_Sldflj <> 0 Then                                                     '本年贷方数量累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Sldflj
        End If
    End If
    
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Wbjflj <> 0 Then                                                     '本年借方外币累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Wbjflj
        End If
        If Dbl_Wbdflj <> 0 Then                                                     '本年贷方外币累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Wbdflj
        End If
    End If
End Sub

Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Bbxbtgs = 1                                          '报 表 小 标 题 行 数
    Bbbwhgs = 0                                          '报 表 表 尾 行 数
    ReDim Bbxbt(1 To Bbxbtgs)
    ReDim bbxbtzzxs(1 To Bbxbtgs)
    If Bbbwhgs <> 0 Then
        ReDim Bbbwh(1 To Bbbwhgs)
        ReDim Bbbwhzzxs(1 To Bbbwhgs)
    End If
    Bbzbt = ReportTitle
    'Bbxbt(1) = Space(2) + "科目名称：" + Me.Imgebo_FzCcode.Text + Space(5) + "个人：" + Me.Imgebo_FzCode.Text
    Bbxbt(1) = Space(2) + "科目名称：" + Me.Imgebo_FzCcode.Text + Space(5) + "个人：" + Me.Imgebo_FzCode.Text
    bbxbtzzxs(1) = 0                                    '报表行组织形式(0-居左 1-居中 2-居右)
    Call Scyxsjb(CxbbGrid)                               '生成报表数据
    Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
    If Not bbylte Then
        Unload DY_Tybbyldy
    End If
End Sub