GF00-ERP-SYS-SIU/GF00-ERP-SYS/04.財務管理系統/財務_決算表.vb

Option Strict Off
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Imports System.IO
Public Class 財務_決算表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
    ReadOnly ds6 As New DataSet : ReadOnly ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet : ReadOnly ds10 As New DataSet : ReadOnly ds11 As New DataSet
    ReadOnly ds12 As New DataSet : ReadOnly ds13 As New DataSet
    Dim xlApp As Application
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Dim N2 As Integer



    Private Sub Set_DGV2開始()
        主表_dgv.DataSource = Nothing : ds2.Clear() : 主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表_dgv.ColumnHeadersHeight = 50 : 主表_dgv.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV2結束()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : 主表_dgv.DataSource = ds2.Tables(0) : conn.Close()
        主表_dgv.Columns(0).FillWeight = 28 : 主表_dgv.Columns(1).Visible = False : 主表_dgv.Columns(2).Visible = False : 主表_dgv.Columns(3).FillWeight = 80
        主表_dgv.Columns(4).FillWeight = 90 : 主表_dgv.Columns(5).FillWeight = 132 : 主表_dgv.Columns(6).FillWeight = 80 : 主表_dgv.Columns(7).FillWeight = 80
        主表_dgv.Columns(8).FillWeight = 80
        主表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 主表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 主表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
        主表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        主表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        主表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        主表_dgv.Columns(0).ReadOnly = True : 主表_dgv.Columns(1).ReadOnly = True : 主表_dgv.Columns(2).ReadOnly = True : 主表_dgv.Columns(3).ReadOnly = True
        主表_dgv.Columns(4).ReadOnly = True : 主表_dgv.Columns(5).ReadOnly = True : 主表_dgv.Columns(6).ReadOnly = True : 主表_dgv.Columns(7).ReadOnly = True
        主表_dgv.Columns(8).ReadOnly = True
        TextBox61.Text = "0" : TextBox62.Text = "0" : TextBox63.Text = "0" : TextBox64.Text = "0"
        For i As Integer = 0 To 主表_dgv.Rows.Count - 1
            If 主表_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 主表_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 主表_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 主表_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 主表_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 主表_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 主表_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 主表_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 主表_dgv.Rows(i).Cells("子項").Value = "" : End If
            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "3" Then : 主表_dgv.Rows(i).Cells("子細項").Value = "" : End If
            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then
                主表_dgv.Rows(i).Cells("主項金額").Value = 0 : 主表_dgv.Rows(i).Cells("子項金額").Value = 0 : 主表_dgv.Rows(i).Cells("細項金額").Value = 0
            End If
            If i = 0 Then : Else
                If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = 主表_dgv.Rows(i - 1).Cells("第一階").Value.ToString Then : 主表_dgv.Rows(i).Cells("主項").Value = "" : End If
                If 主表_dgv.Rows(i).Cells("第二階").Value.ToString = 主表_dgv.Rows(i - 1).Cells("第二階").Value.ToString Then : 主表_dgv.Rows(i).Cells("子項").Value = "" : End If
            End If
            If 主表_dgv("第一階", i).Value.ToString = "歲出合計" Then
                主表_dgv("主項金額", i).Value = Val(主表_dgv.Rows(i).Cells("主項金額").Value) * -1
                主表_dgv("子項金額", i).Value = Val(主表_dgv.Rows(i).Cells("子項金額").Value) * -1
                主表_dgv("細項金額", i).Value = Val(主表_dgv.Rows(i).Cells("細項金額").Value) * -1
            End If
            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox61.Text = Val(TextBox61.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value : End If
            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox62.Text = Val(TextBox62.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value : End If
            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox63.Text = Val(TextBox63.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value : End If
            If 主表_dgv("子項", i).Value.ToString.Length >= 4 AndAlso IsNumeric(主表_dgv("子項", i).Value.ToString.Substring(0, 4)) Then
                主表_dgv("子項", i).Value = 主表_dgv("子項", i).Value.ToString.Substring(7)
            End If
            If 主表_dgv("子細項", i).Value.ToString.Length >= 4 AndAlso IsNumeric(主表_dgv("子細項", i).Value.ToString.Substring(0, 4)) Then
                主表_dgv("子細項", i).Value = 主表_dgv("子細項", i).Value.ToString.Substring(7)
            End If

        Next
        TextBox64.Text = Val(TextBox62.Text) - Val(TextBox63.Text)
    End Sub
    Private Sub Set_清單()
        Set_DGV2開始()
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,4) " : PA32 = " (LEFT(公帳流水帳_2.日期,4) " : PA33 = " (LEFT(公帳流水帳_3.日期,4) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,4) " : PA32 = " (LEFT(公帳控制表_2.審核日期,4) " : PA33 = " (LEFT(公帳控制表_3.審核日期,4) "
        End If

        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢清單()
        Set_DGV2結束()
    End Sub

    Private Sub Set_清單1()
        月1_dgv.DataSource = Nothing : ds.Clear() : 月1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月1_dgv.ColumnHeadersHeight = 50 : 月1_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "01"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds) : 月1_dgv.DataSource = ds.Tables(0) : conn.Close()
        月1_dgv.Columns(0).FillWeight = 20 : 月1_dgv.Columns(1).Visible = False : 月1_dgv.Columns(2).Visible = False : 月1_dgv.Columns(3).Visible = False
        月1_dgv.Columns(4).Visible = False : 月1_dgv.Columns(5).Visible = False : 月1_dgv.Columns(6).Visible = False : 月1_dgv.Columns(7).Visible = False
        月1_dgv.Columns(8).Visible = False : 月1_dgv.Columns(9).FillWeight = 75
        月1_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月1_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月1_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月1_dgv.Columns(9).ReadOnly = True
        TextBox1.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox4.Text = "0" : TextBox30.Text = "0" : TextBox76.Text = "0" : TextBox100.Text = "0"
        For i As Integer = 0 To 月1_dgv.Rows.Count - 1
            If 月1_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月1_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月1_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月1_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月1_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月1_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月1_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月1_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月1_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月1_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月1_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月1_dgv.Rows(i).Cells("金額").Value = 月1_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月1_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月1_dgv.Rows(i).Cells("金額").Value = 月1_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月1_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月1_dgv.Rows(i).Cells("金額").Value = 月1_dgv.Rows(i).Cells("細項金額").Value
            Else : 月1_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月1_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月1_dgv("金額", i).Value = Val(月1_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox1.Text = Val(TextBox1.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox2.Text = Val(TextBox2.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox3.Text = Val(TextBox3.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox30.Text = Val(TextBox30.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox100.Text = Val(TextBox100.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        TextBox3.Text = Val(TextBox3.Text) * -1
        TextBox4.Text = Val(TextBox100.Text) + Val(TextBox30.Text) + Val(TextBox1.Text) + Val(TextBox2.Text) - Val(TextBox3.Text) : TextBox76.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
    End Sub
    Private Sub Set_清單2()
        月2_dgv.DataSource = Nothing : ds1.Clear() : 月2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月2_dgv.ColumnHeadersHeight = 50 : 月2_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "02"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds1) : 月2_dgv.DataSource = ds1.Tables(0) : conn.Close()
        月2_dgv.Columns(0).FillWeight = 20 : 月2_dgv.Columns(1).Visible = False : 月2_dgv.Columns(2).Visible = False : 月2_dgv.Columns(3).Visible = False
        月2_dgv.Columns(4).Visible = False : 月2_dgv.Columns(5).Visible = False : 月2_dgv.Columns(6).Visible = False : 月2_dgv.Columns(7).Visible = False
        月2_dgv.Columns(8).Visible = False : 月2_dgv.Columns(9).FillWeight = 75
        月2_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月2_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月2_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月2_dgv.Columns(9).ReadOnly = True
        TextBox5.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0" : TextBox29.Text = "0" : TextBox75.Text = "0" : TextBox99.Text = "0"
        For i As Integer = 0 To 月2_dgv.Rows.Count - 1
            If 月2_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月2_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月2_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月2_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月2_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月2_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月2_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月2_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月2_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月2_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月2_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月2_dgv.Rows(i).Cells("金額").Value = 月2_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月2_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月2_dgv.Rows(i).Cells("金額").Value = 月2_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月2_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月2_dgv.Rows(i).Cells("金額").Value = 月2_dgv.Rows(i).Cells("細項金額").Value
            Else : 月2_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月2_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月2_dgv("金額", i).Value = Val(月2_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox5.Text = Val(TextBox5.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox6.Text = Val(TextBox6.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox7.Text = Val(TextBox7.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox29.Text = Val(TextBox29.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox99.Text = Val(TextBox99.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox29.Text) > 0 And IsNothing(TextBox4.Text) = False Then
            TextBox87.Text = Val(TextBox29.Text) - Val(TextBox4.Text)
        Else
            TextBox87.Text = 0
        End If
        TextBox7.Text = Val(TextBox7.Text) * -1
        TextBox8.Text = Val(TextBox99.Text) + Val(TextBox29.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) - Val(TextBox7.Text)
        TextBox75.Text = Val(TextBox6.Text) - Val(TextBox7.Text)
    End Sub
    Private Sub Set_清單3()
        月3_dgv.DataSource = Nothing : ds3.Clear() : 月3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月3_dgv.ColumnHeadersHeight = 50 : 月3_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "03"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds3) : 月3_dgv.DataSource = ds3.Tables(0) : conn.Close()
        月3_dgv.Columns(0).FillWeight = 20 : 月3_dgv.Columns(1).Visible = False : 月3_dgv.Columns(2).Visible = False : 月3_dgv.Columns(3).Visible = False
        月3_dgv.Columns(4).Visible = False : 月3_dgv.Columns(5).Visible = False : 月3_dgv.Columns(6).Visible = False : 月3_dgv.Columns(7).Visible = False
        月3_dgv.Columns(8).Visible = False : 月3_dgv.Columns(9).FillWeight = 75
        月3_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月3_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月3_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月3_dgv.Columns(9).ReadOnly = True
        TextBox9.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0" : TextBox12.Text = "0" : TextBox28.Text = "0" : TextBox74.Text = "0" : TextBox98.Text = "0"
        For i As Integer = 0 To 月3_dgv.Rows.Count - 1
            If 月3_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月3_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月3_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月3_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月3_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月3_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月3_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月3_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月3_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月3_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月3_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月3_dgv.Rows(i).Cells("金額").Value = 月3_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月3_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月3_dgv.Rows(i).Cells("金額").Value = 月3_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月3_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月3_dgv.Rows(i).Cells("金額").Value = 月3_dgv.Rows(i).Cells("細項金額").Value
            Else : 月3_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月3_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月3_dgv("金額", i).Value = Val(月3_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox9.Text = Val(TextBox9.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox10.Text = Val(TextBox10.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox11.Text = Val(TextBox11.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox28.Text = Val(TextBox28.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox98.Text = Val(TextBox98.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox28.Text) > 0 Then
            TextBox86.Text = Val(TextBox28.Text) - Val(TextBox8.Text)
        Else
            TextBox86.Text = 0
        End If
        TextBox11.Text = Val(TextBox11.Text) * -1
        TextBox12.Text = Val(TextBox98.Text) + Val(TextBox28.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) - Val(TextBox11.Text)
        TextBox74.Text = Val(TextBox10.Text) - Val(TextBox11.Text)
    End Sub
    Private Sub Set_清單4()
        月4_dgv.DataSource = Nothing : ds4.Clear() : 月4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月4_dgv.ColumnHeadersHeight = 50 : 月4_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "04"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds4) : 月4_dgv.DataSource = ds4.Tables(0) : conn.Close()
        月4_dgv.Columns(0).FillWeight = 20 : 月4_dgv.Columns(1).Visible = False : 月4_dgv.Columns(2).Visible = False : 月4_dgv.Columns(3).Visible = False
        月4_dgv.Columns(4).Visible = False : 月4_dgv.Columns(5).Visible = False : 月4_dgv.Columns(6).Visible = False : 月4_dgv.Columns(7).Visible = False
        月4_dgv.Columns(8).Visible = False : 月4_dgv.Columns(9).FillWeight = 75
        月4_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月4_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月4_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月4_dgv.Columns(9).ReadOnly = True
        TextBox13.Text = "0" : TextBox14.Text = "0" : TextBox15.Text = "0" : TextBox16.Text = "0" : TextBox27.Text = "0" : TextBox73.Text = "0" : TextBox97.Text = "0"
        For i As Integer = 0 To 月4_dgv.Rows.Count - 1
            If 月4_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月4_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月4_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月4_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月4_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月4_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月4_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月4_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月4_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月4_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月4_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月4_dgv.Rows(i).Cells("金額").Value = 月4_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月4_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月4_dgv.Rows(i).Cells("金額").Value = 月4_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月4_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月4_dgv.Rows(i).Cells("金額").Value = 月4_dgv.Rows(i).Cells("細項金額").Value
            Else : 月4_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月4_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月4_dgv("金額", i).Value = Val(月4_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox13.Text = Val(TextBox13.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox14.Text = Val(TextBox14.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox15.Text = Val(TextBox15.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox27.Text = Val(TextBox27.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox97.Text = Val(TextBox97.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox27.Text) > 0 Then
            TextBox85.Text = Val(TextBox27.Text) - Val(TextBox12.Text)
        Else
            TextBox85.Text = 0
        End If
        TextBox15.Text = Val(TextBox15.Text) * -1
        TextBox16.Text = Val(TextBox97.Text) + Val(TextBox27.Text) + Val(TextBox13.Text) + Val(TextBox14.Text) - Val(TextBox15.Text)
        TextBox73.Text = Val(TextBox14.Text) - Val(TextBox15.Text)
    End Sub
    Private Sub Set_清單5()
        月5_dgv.DataSource = Nothing : ds5.Clear() : 月5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月5_dgv.ColumnHeadersHeight = 50 : 月5_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "05"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds5) : 月5_dgv.DataSource = ds5.Tables(0) : conn.Close()
        月5_dgv.Columns(0).FillWeight = 20 : 月5_dgv.Columns(1).Visible = False : 月5_dgv.Columns(2).Visible = False : 月5_dgv.Columns(3).Visible = False
        月5_dgv.Columns(4).Visible = False : 月5_dgv.Columns(5).Visible = False : 月5_dgv.Columns(6).Visible = False : 月5_dgv.Columns(7).Visible = False
        月5_dgv.Columns(8).Visible = False : 月5_dgv.Columns(9).FillWeight = 75
        月5_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月5_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月5_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月5_dgv.Columns(9).ReadOnly = True
        TextBox17.Text = "0" : TextBox18.Text = "0" : TextBox19.Text = "0" : TextBox20.Text = "0" : TextBox26.Text = "0" : TextBox72.Text = "0" : TextBox96.Text = "0"
        For i As Integer = 0 To 月5_dgv.Rows.Count - 1
            If 月5_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月5_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月5_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月5_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月5_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月5_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月5_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月5_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月5_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月5_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月5_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月5_dgv.Rows(i).Cells("金額").Value = 月5_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月5_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月5_dgv.Rows(i).Cells("金額").Value = 月5_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月5_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月5_dgv.Rows(i).Cells("金額").Value = 月5_dgv.Rows(i).Cells("細項金額").Value
            Else : 月5_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月5_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月5_dgv("金額", i).Value = Val(月5_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox17.Text = Val(TextBox17.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox18.Text = Val(TextBox18.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox19.Text = Val(TextBox19.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox26.Text = Val(TextBox26.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox96.Text = Val(TextBox96.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox26.Text) > 0 Then
            TextBox84.Text = Val(TextBox26.Text) - Val(TextBox16.Text)
        Else
            TextBox84.Text = 0
        End If
        TextBox19.Text = Val(TextBox19.Text) * -1
        TextBox20.Text = Val(TextBox96.Text) + Val(TextBox17.Text) + Val(TextBox18.Text) - Val(TextBox19.Text) + Val(TextBox26.Text)
        TextBox72.Text = Val(TextBox18.Text) - Val(TextBox19.Text)
    End Sub
    Private Sub Set_清單6()
        月6_dgv.DataSource = Nothing : ds6.Clear() : 月6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月6_dgv.ColumnHeadersHeight = 50 : 月6_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "06"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds6) : 月6_dgv.DataSource = ds6.Tables(0) : conn.Close()
        月6_dgv.Columns(0).FillWeight = 20 : 月6_dgv.Columns(1).Visible = False : 月6_dgv.Columns(2).Visible = False : 月6_dgv.Columns(3).Visible = False
        月6_dgv.Columns(4).Visible = False : 月6_dgv.Columns(5).Visible = False : 月6_dgv.Columns(6).Visible = False : 月6_dgv.Columns(7).Visible = False
        月6_dgv.Columns(8).Visible = False : 月6_dgv.Columns(9).FillWeight = 75
        月6_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月6_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月6_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月6_dgv.Columns(9).ReadOnly = True
        TextBox21.Text = "0" : TextBox22.Text = "0" : TextBox23.Text = "0" : TextBox24.Text = "0" : TextBox25.Text = "0" : TextBox71.Text = "0" : TextBox95.Text = "0"
        For i As Integer = 0 To 月6_dgv.Rows.Count - 1
            If 月6_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月6_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月6_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月6_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月6_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月6_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月6_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月6_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月6_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月6_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月6_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月6_dgv.Rows(i).Cells("金額").Value = 月6_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月6_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月6_dgv.Rows(i).Cells("金額").Value = 月6_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月6_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月6_dgv.Rows(i).Cells("金額").Value = 月6_dgv.Rows(i).Cells("細項金額").Value
            Else : 月6_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月6_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月6_dgv("金額", i).Value = Val(月6_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox21.Text = Val(TextBox21.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox22.Text = Val(TextBox22.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox23.Text = Val(TextBox23.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox25.Text = Val(TextBox25.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox95.Text = Val(TextBox95.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox25.Text) > 0 Then
            TextBox83.Text = Val(TextBox25.Text) - Val(TextBox20.Text)
        Else
            TextBox83.Text = 0
        End If
        TextBox23.Text = Val(TextBox23.Text) * -1
        TextBox24.Text = Val(TextBox95.Text) + Val(TextBox21.Text) + Val(TextBox22.Text) - Val(TextBox23.Text) + Val(TextBox25.Text)
        TextBox71.Text = Val(TextBox22.Text) - Val(TextBox23.Text)
    End Sub
    Private Sub Set_清單7()
        月7_dgv.DataSource = Nothing : ds7.Clear() : 月7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月7_dgv.ColumnHeadersHeight = 50 : 月7_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "07"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds7) : 月7_dgv.DataSource = ds7.Tables(0) : conn.Close()
        月7_dgv.Columns(0).FillWeight = 20 : 月7_dgv.Columns(1).Visible = False : 月7_dgv.Columns(2).Visible = False : 月7_dgv.Columns(3).Visible = False
        月7_dgv.Columns(4).Visible = False : 月7_dgv.Columns(5).Visible = False : 月7_dgv.Columns(6).Visible = False : 月7_dgv.Columns(7).Visible = False
        月7_dgv.Columns(8).Visible = False : 月7_dgv.Columns(9).FillWeight = 75
        月7_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月7_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月7_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月7_dgv.Columns(9).ReadOnly = True
        TextBox31.Text = "0" : TextBox32.Text = "0" : TextBox33.Text = "0" : TextBox34.Text = "0" : TextBox35.Text = "0" : TextBox70.Text = "0" : TextBox94.Text = "0"
        For i As Integer = 0 To 月7_dgv.Rows.Count - 1
            If 月7_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月7_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月7_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月7_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月7_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月7_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月7_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月7_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月7_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月7_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月7_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月7_dgv.Rows(i).Cells("金額").Value = 月7_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月7_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月7_dgv.Rows(i).Cells("金額").Value = 月7_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月7_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月7_dgv.Rows(i).Cells("金額").Value = 月7_dgv.Rows(i).Cells("細項金額").Value
            Else : 月7_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月7_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月7_dgv("金額", i).Value = Val(月7_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox35.Text = Val(TextBox35.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox34.Text = Val(TextBox34.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox33.Text = Val(TextBox33.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox31.Text = Val(TextBox31.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox94.Text = Val(TextBox94.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox31.Text) > 0 Then
            TextBox82.Text = Val(TextBox31.Text) - Val(TextBox24.Text)
        Else
            TextBox82.Text = 0
        End If
        TextBox33.Text = Val(TextBox33.Text) * -1
        TextBox32.Text = Val(TextBox94.Text) + Val(TextBox35.Text) + Val(TextBox34.Text) - Val(TextBox33.Text) + Val(TextBox31.Text)
        TextBox70.Text = Val(TextBox34.Text) - Val(TextBox33.Text)
    End Sub
    Private Sub Set_清單8()
        月8_dgv.DataSource = Nothing : ds8.Clear() : 月8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月8_dgv.ColumnHeadersHeight = 50 : 月8_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "08"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds8) : 月8_dgv.DataSource = ds8.Tables(0) : conn.Close()
        月8_dgv.Columns(0).FillWeight = 20 : 月8_dgv.Columns(1).Visible = False : 月8_dgv.Columns(2).Visible = False : 月8_dgv.Columns(3).Visible = False
        月8_dgv.Columns(4).Visible = False : 月8_dgv.Columns(5).Visible = False : 月8_dgv.Columns(6).Visible = False : 月8_dgv.Columns(7).Visible = False
        月8_dgv.Columns(8).Visible = False : 月8_dgv.Columns(9).FillWeight = 75
        月8_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月8_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月8_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月8_dgv.Columns(9).ReadOnly = True
        TextBox36.Text = "0" : TextBox37.Text = "0" : TextBox38.Text = "0" : TextBox39.Text = "0" : TextBox40.Text = "0" : TextBox69.Text = "0" : TextBox93.Text = "0"
        For i As Integer = 0 To 月8_dgv.Rows.Count - 1
            If 月8_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月8_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月8_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月8_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月8_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月8_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月8_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月8_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月8_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月8_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月8_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月8_dgv.Rows(i).Cells("金額").Value = 月8_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月8_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月8_dgv.Rows(i).Cells("金額").Value = 月8_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月8_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月8_dgv.Rows(i).Cells("金額").Value = 月8_dgv.Rows(i).Cells("細項金額").Value
            Else : 月8_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月8_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月8_dgv("金額", i).Value = Val(月8_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox40.Text = Val(TextBox40.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox39.Text = Val(TextBox39.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox38.Text = Val(TextBox38.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox36.Text = Val(TextBox36.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox93.Text = Val(TextBox93.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox36.Text) > 0 Then
            TextBox81.Text = Val(TextBox36.Text) - Val(TextBox32.Text)
        Else
            TextBox81.Text = 0
        End If
        TextBox38.Text = Val(TextBox38.Text) * -1
        TextBox37.Text = Val(TextBox93.Text) + Val(TextBox40.Text) + Val(TextBox39.Text) - Val(TextBox38.Text) + Val(TextBox36.Text)
        TextBox69.Text = Val(TextBox39.Text) - Val(TextBox38.Text)
    End Sub
    Private Sub Set_清單9()
        月9_dgv.DataSource = Nothing : ds9.Clear() : 月9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月9_dgv.ColumnHeadersHeight = 50 : 月9_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "09"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds9) : 月9_dgv.DataSource = ds9.Tables(0) : conn.Close()
        月9_dgv.Columns(0).FillWeight = 20 : 月9_dgv.Columns(1).Visible = False : 月9_dgv.Columns(2).Visible = False : 月9_dgv.Columns(3).Visible = False
        月9_dgv.Columns(4).Visible = False : 月9_dgv.Columns(5).Visible = False : 月9_dgv.Columns(6).Visible = False : 月9_dgv.Columns(7).Visible = False
        月9_dgv.Columns(8).Visible = False : 月9_dgv.Columns(9).FillWeight = 75
        月9_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月9_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月9_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月9_dgv.Columns(9).ReadOnly = True
        TextBox41.Text = "0" : TextBox42.Text = "0" : TextBox43.Text = "0" : TextBox44.Text = "0" : TextBox45.Text = "0" : TextBox68.Text = "0" : TextBox92.Text = "0"
        For i As Integer = 0 To 月9_dgv.Rows.Count - 1
            If 月9_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月9_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月9_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月9_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月9_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月9_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月9_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月9_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月9_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月9_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月9_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月9_dgv.Rows(i).Cells("金額").Value = 月9_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月9_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月9_dgv.Rows(i).Cells("金額").Value = 月9_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月9_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月9_dgv.Rows(i).Cells("金額").Value = 月9_dgv.Rows(i).Cells("細項金額").Value
            Else : 月9_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月9_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月9_dgv("金額", i).Value = Val(月9_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox45.Text = Val(TextBox45.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox44.Text = Val(TextBox44.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox43.Text = Val(TextBox43.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox41.Text = Val(TextBox41.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox92.Text = Val(TextBox92.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox41.Text) > 0 Then
            TextBox80.Text = Val(TextBox41.Text) - Val(TextBox37.Text)
        Else
            TextBox80.Text = 0
        End If
        TextBox43.Text = Val(TextBox43.Text) * -1
        TextBox42.Text = Val(TextBox92.Text) + Val(TextBox45.Text) + Val(TextBox44.Text) - Val(TextBox43.Text) + Val(TextBox41.Text)
        TextBox68.Text = Val(TextBox44.Text) - Val(TextBox43.Text)
    End Sub
    Private Sub Set_清單10()
        月10_dgv.DataSource = Nothing : ds10.Clear() : 月10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月10_dgv.ColumnHeadersHeight = 50 : 月10_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "10"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds10) : 月10_dgv.DataSource = ds10.Tables(0) : conn.Close()
        月10_dgv.Columns(0).FillWeight = 20 : 月10_dgv.Columns(1).Visible = False : 月10_dgv.Columns(2).Visible = False : 月10_dgv.Columns(3).Visible = False
        月10_dgv.Columns(4).Visible = False : 月10_dgv.Columns(5).Visible = False : 月10_dgv.Columns(6).Visible = False : 月10_dgv.Columns(7).Visible = False
        月10_dgv.Columns(8).Visible = False : 月10_dgv.Columns(9).FillWeight = 75
        月10_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月10_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月10_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月10_dgv.Columns(9).ReadOnly = True
        TextBox46.Text = "0" : TextBox47.Text = "0" : TextBox48.Text = "0" : TextBox49.Text = "0" : TextBox50.Text = "0" : TextBox67.Text = "0" : TextBox91.Text = "0"
        For i As Integer = 0 To 月10_dgv.Rows.Count - 1
            If 月10_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月10_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月10_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月10_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月10_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月10_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月10_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月10_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月10_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月10_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月10_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月10_dgv.Rows(i).Cells("金額").Value = 月10_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月10_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月10_dgv.Rows(i).Cells("金額").Value = 月10_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月10_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月10_dgv.Rows(i).Cells("金額").Value = 月10_dgv.Rows(i).Cells("細項金額").Value
            Else : 月10_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月10_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月10_dgv("金額", i).Value = Val(月10_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox50.Text = Val(TextBox50.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox49.Text = Val(TextBox49.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox48.Text = Val(TextBox48.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox46.Text = Val(TextBox46.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox91.Text = Val(TextBox91.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox46.Text) > 0 Then
            TextBox79.Text = Val(TextBox46.Text) - Val(TextBox42.Text)
        Else
            TextBox79.Text = 0
        End If
        TextBox48.Text = Val(TextBox48.Text) * -1
        TextBox47.Text = Val(TextBox91.Text) + Val(TextBox50.Text) + Val(TextBox49.Text) - Val(TextBox48.Text) + Val(TextBox46.Text)
        TextBox67.Text = Val(TextBox49.Text) - Val(TextBox48.Text)
    End Sub
    Private Sub Set_清單11()
        月11_dgv.DataSource = Nothing : ds11.Clear() : 月11_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月11_dgv.ColumnHeadersHeight = 50 : 月11_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "11"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds11) : 月11_dgv.DataSource = ds11.Tables(0) : conn.Close()
        月11_dgv.Columns(0).FillWeight = 20 : 月11_dgv.Columns(1).Visible = False : 月11_dgv.Columns(2).Visible = False : 月11_dgv.Columns(3).Visible = False
        月11_dgv.Columns(4).Visible = False : 月11_dgv.Columns(5).Visible = False : 月11_dgv.Columns(6).Visible = False : 月11_dgv.Columns(7).Visible = False
        月11_dgv.Columns(8).Visible = False : 月11_dgv.Columns(9).FillWeight = 75
        月11_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月11_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月11_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月11_dgv.Columns(9).ReadOnly = True
        TextBox51.Text = "0" : TextBox52.Text = "0" : TextBox53.Text = "0" : TextBox54.Text = "0" : TextBox55.Text = "0" : TextBox66.Text = "0" : TextBox90.Text = "0"
        For i As Integer = 0 To 月11_dgv.Rows.Count - 1
            If 月11_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月11_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月11_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月11_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月11_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月11_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月11_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月11_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月11_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月11_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月11_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月11_dgv.Rows(i).Cells("金額").Value = 月11_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月11_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月11_dgv.Rows(i).Cells("金額").Value = 月11_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月11_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月11_dgv.Rows(i).Cells("金額").Value = 月11_dgv.Rows(i).Cells("細項金額").Value
            Else : 月11_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月11_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月11_dgv("金額", i).Value = Val(月11_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox55.Text = Val(TextBox55.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox54.Text = Val(TextBox54.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox53.Text = Val(TextBox53.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox51.Text = Val(TextBox51.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox90.Text = Val(TextBox90.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox51.Text) > 0 Then
            TextBox78.Text = Val(TextBox51.Text) - Val(TextBox47.Text)
        Else
            TextBox78.Text = 0
        End If
        TextBox53.Text = Val(TextBox53.Text) * -1
        TextBox52.Text = Val(TextBox90.Text) + Val(TextBox55.Text) + Val(TextBox54.Text) - Val(TextBox53.Text) + Val(TextBox51.Text)
        TextBox66.Text = Val(TextBox54.Text) - Val(TextBox53.Text)
    End Sub
    Private Sub Set_清單12()
        月12_dgv.DataSource = Nothing : ds12.Clear() : 月12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        月12_dgv.ColumnHeadersHeight = 50 : 月12_dgv.AllowUserToAddRows = False
        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
            SQL2 = "" : SQL3 = "" : SQL4 = ""
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 1)" : SQL3 = " AND (公帳流水帳_2.含稅 = 1)" : SQL4 = " AND (公帳流水帳_3.含稅 = 1)"
        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
            SQL2 = " AND (公帳流水帳_1.含稅 = 0 OR 公帳流水帳_1.含稅 IS NULL)"
            SQL3 = " AND (公帳流水帳_2.含稅 = 0 OR 公帳流水帳_2.含稅 IS NULL)"
            SQL4 = " AND (公帳流水帳_3.含稅 = 0 OR 公帳流水帳_3.含稅 IS NULL)"
        End If : PA36 = "12"
        If 計算基礎_ch.Text = "申請日期" Then
            PA31 = " (LEFT(公帳流水帳_1.日期,7) " : PA32 = " (LEFT(公帳流水帳_2.日期,7) " : PA33 = " (LEFT(公帳流水帳_3.日期,7) "
        Else
            PA31 = " (LEFT(公帳控制表_1.審核日期,7) " : PA32 = " (LEFT(公帳控制表_2.審核日期,7) " : PA33 = " (LEFT(公帳控制表_3.審核日期,7) "
        End If
        If 公司編號_cb.Text = "全部" Then : PA51 = "" : PA52 = "" : PA53 = ""
        Else
            PA51 = "" : PA52 = "" : PA53 = ""
            For i As Integer = 1 To 帳本數量

                If PA51 = "" Then
                    PA51 = "AND ( 公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA52 = "AND ( 公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "'" : PA53 = "AND ( 公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "'"
                End If
                PA51 &= " OR  公帳控制表_1.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA52 &= " OR  公帳控制表_2.公司編號 LIKE N'" & 帳本內容(i) & "' " : PA53 &= " OR  公帳控制表_3.公司編號 LIKE N'" & 帳本內容(i) & "' "
            Next
            PA51 &= " )" : PA52 &= " )" : PA53 &= " )"

        End If
        SQL_營運報表_查詢單月份清單() : da.Fill(ds12) : 月12_dgv.DataSource = ds12.Tables(0) : conn.Close()
        月12_dgv.Columns(0).FillWeight = 30 : 月12_dgv.Columns(1).Visible = False : 月12_dgv.Columns(2).Visible = False : 月12_dgv.Columns(3).Visible = False
        月12_dgv.Columns(4).Visible = False : 月12_dgv.Columns(5).Visible = False : 月12_dgv.Columns(6).Visible = False : 月12_dgv.Columns(7).Visible = False
        月12_dgv.Columns(8).Visible = False : 月12_dgv.Columns(9).FillWeight = 75
        月12_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        月12_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月12_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        月12_dgv.Columns(9).ReadOnly = True
        TextBox56.Text = "0" : TextBox57.Text = "0" : TextBox58.Text = "0" : TextBox59.Text = "0" : TextBox60.Text = "0" : TextBox65.Text = "0" : TextBox89.Text = "0"
        For i As Integer = 0 To 月12_dgv.Rows.Count - 1
            If 月12_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月12_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月12_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月12_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月12_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月12_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
            If 月12_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月12_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
            If 月12_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月12_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
            If 月12_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月12_dgv.Rows(i).Cells("金額").Value = 月12_dgv.Rows(i).Cells("主項金額").Value
            ElseIf 月12_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月12_dgv.Rows(i).Cells("金額").Value = 月12_dgv.Rows(i).Cells("子項金額").Value
            ElseIf 月12_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月12_dgv.Rows(i).Cells("金額").Value = 月12_dgv.Rows(i).Cells("細項金額").Value
            Else : 月12_dgv.Rows(i).Cells("金額").Value = 0 : End If

            If 月12_dgv("第一階", i).Value.ToString = "歲出合計" Then
                月12_dgv("金額", i).Value = Val(月12_dgv.Rows(i).Cells("金額").Value) * -1
            End If

            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox60.Text = Val(TextBox60.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox59.Text = Val(TextBox59.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox58.Text = Val(TextBox58.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox56.Text = Val(TextBox56.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "流動資產" Then : TextBox89.Text = Val(TextBox89.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
        Next
        If Val(TextBox56.Text) > 0 Then
            TextBox77.Text = Val(TextBox56.Text) - Val(TextBox52.Text)
        Else
            TextBox77.Text = 0
        End If
        TextBox58.Text = Val(TextBox58.Text) * -1
        TextBox57.Text = Val(TextBox89.Text) + Val(TextBox60.Text) + Val(TextBox59.Text) - Val(TextBox58.Text) + Val(TextBox56.Text)
        TextBox65.Text = Val(TextBox59.Text) - Val(TextBox58.Text)
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        conn.Close()
        SQL_營運報表_年份查詢()
        年份_cb.Items.Clear()
        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While
        conn.Close()
    End Sub
    Private Sub 格式設定()
        For no As Integer = 1 To 100
            Dim TextBoxOO As System.Windows.Forms.TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), System.Windows.Forms.TextBox)
            TextBoxOO.Text = Strings.Format(Val(TextBoxOO.Text), "#,##0 ")
        Next
        For no As Integer = 64 To 88
            Dim TextBoxOO As System.Windows.Forms.TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), System.Windows.Forms.TextBox)
            If Val(TextBoxOO.Text) > 0 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) < 0 Then : TextBoxOO.ForeColor = Color.Red : End If
        Next
    End Sub


    Private Sub 營運報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ICS_ASMS_ERP_SYS.WindowState = 2 : 計算基礎_ch.SelectedIndex = 0
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        If 公司 = True Then
        Else
            公司編號_lb.Visible = False : 公司編號_cb.Visible = False
        End If
        If 廟 = False Then
            支付單列印成EXCEL.Visible = False
        End If

        Dim type0 As Type = 主表_dgv.GetType()
        Dim pi0 As Reflection.PropertyInfo = type0.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi0.SetValue(主表_dgv, True, Nothing)
        Dim type1 As Type = 月1_dgv.GetType()
        Dim pi1 As Reflection.PropertyInfo = type1.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi1.SetValue(月1_dgv, True, Nothing)
        Dim type2 As Type = 月2_dgv.GetType()
        Dim pi2 As Reflection.PropertyInfo = type2.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi2.SetValue(月2_dgv, True, Nothing)
        Dim type3 As Type = 月3_dgv.GetType()
        Dim pi3 As Reflection.PropertyInfo = type3.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi3.SetValue(月3_dgv, True, Nothing)
        Dim type4 As Type = 月4_dgv.GetType()
        Dim pi4 As Reflection.PropertyInfo = type4.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi4.SetValue(月4_dgv, True, Nothing)
        Dim type5 As Type = 月5_dgv.GetType()
        Dim pi5 As Reflection.PropertyInfo = type5.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi5.SetValue(月5_dgv, True, Nothing)
        Dim type6 As Type = 月6_dgv.GetType()
        Dim pi6 As Reflection.PropertyInfo = type6.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi6.SetValue(月6_dgv, True, Nothing)
        Dim type7 As Type = 月7_dgv.GetType()
        Dim pi7 As Reflection.PropertyInfo = type7.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi7.SetValue(月7_dgv, True, Nothing)
        Dim type8 As Type = 月8_dgv.GetType()
        Dim pi8 As Reflection.PropertyInfo = type8.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi8.SetValue(月8_dgv, True, Nothing)
        Dim type9 As Type = 月9_dgv.GetType()
        Dim pi9 As Reflection.PropertyInfo = type9.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi9.SetValue(月9_dgv, True, Nothing)
        Dim type10 As Type = 月10_dgv.GetType()
        Dim pi10 As Reflection.PropertyInfo = type10.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi10.SetValue(月10_dgv, True, Nothing)
        Dim type11 As Type = 月11_dgv.GetType()
        Dim pi11 As Reflection.PropertyInfo = type11.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi11.SetValue(月11_dgv, True, Nothing)
        Dim type12 As Type = 月12_dgv.GetType()
        Dim pi12 As Reflection.PropertyInfo = type12.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
        pi12.SetValue(月12_dgv, True, Nothing)
        公司編號_cb.Text = "全部"
        ComboBox1下拉表單資料載入() : 年份_cb.Text = Year(Today)
        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
        Dim FF As Integer = 21
        月1_dgv.RowTemplate.Height = FF : 月2_dgv.RowTemplate.Height = FF : 月3_dgv.RowTemplate.Height = FF
        月4_dgv.RowTemplate.Height = FF : 月5_dgv.RowTemplate.Height = FF : 月6_dgv.RowTemplate.Height = FF
        月7_dgv.RowTemplate.Height = FF : 月8_dgv.RowTemplate.Height = FF : 月9_dgv.RowTemplate.Height = FF
        月10_dgv.RowTemplate.Height = FF : 月11_dgv.RowTemplate.Height = FF : 月12_dgv.RowTemplate.Height = FF
        主表_dgv.RowTemplate.Height = FF
        SQL_讀取公司名稱()
        If dr.Read() Then
            公司名稱.Text = dr("公司名稱")
        End If
        conn.Close()
    End Sub
    Private Sub 計算基礎_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 計算基礎_ch.Click
        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
    End Sub
    Private Sub 營運報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        ICS_ASMS_ERP_SYS.WindowState = 0
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7()
        Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
    End Sub
    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : 重新整理_bt.PerformClick()
    End Sub
    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : 重新整理_bt.PerformClick()
    End Sub
    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : 重新整理_bt.PerformClick()
    End Sub
    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
        月1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月6_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月7_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月8_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月9_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月10_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月11_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        月12_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        主表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
    End Sub
    Private Sub 主表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 主表_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 主表_dgv(1, e.RowIndex).Value.ToString <> 主表_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(主表_dgv.RowHeadersVisible, 主表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 主表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 主表_dgv(2, e.RowIndex).Value.ToString <> 主表_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(主表_dgv.RowHeadersVisible, 主表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 主表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 主表_dgv.Rows.Count - 1
                If 主表_dgv("層級", i).Value = 1 Then : 主表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 主表_dgv("層級", i).Value = 2 Then : 主表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 主表_dgv("第一階", i).Value.ToString = "資本" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 主表_dgv("第一階", i).Value.ToString = "上月結存" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 主表_dgv("第一階", i).Value.ToString = "歲入合計" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 主表_dgv("第一階", i).Value.ToString = "歲出合計" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月1_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月1_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月1_dgv(1, e.RowIndex).Value.ToString <> 月1_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月1_dgv.RowHeadersVisible, 月1_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月1_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月1_dgv(2, e.RowIndex).Value.ToString <> 月1_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月1_dgv.RowHeadersVisible, 月1_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月1_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月1_dgv.Rows.Count - 1
                If 月1_dgv("層級", i).Value = 1 Then : 月1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月1_dgv("層級", i).Value = 2 Then : 月1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月1_dgv("第一階", i).Value.ToString = "資本" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月1_dgv("第一階", i).Value.ToString = "上月結存" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月1_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月1_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月2_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月2_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月2_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月2_dgv(1, e.RowIndex).Value.ToString <> 月2_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月2_dgv.RowHeadersVisible, 月2_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月2_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月2_dgv(2, e.RowIndex).Value.ToString <> 月2_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月2_dgv.RowHeadersVisible, 月2_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月2_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月2_dgv.Rows.Count - 1
                If 月2_dgv("層級", i).Value = 1 Then : 月2_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月2_dgv("層級", i).Value = 2 Then : 月2_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月2_dgv("第一階", i).Value.ToString = "資本" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月2_dgv("第一階", i).Value.ToString = "上月結存" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月2_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月2_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月3_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月3_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月3_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月3_dgv(1, e.RowIndex).Value.ToString <> 月3_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月3_dgv.RowHeadersVisible, 月3_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月3_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月3_dgv(2, e.RowIndex).Value.ToString <> 月3_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月3_dgv.RowHeadersVisible, 月3_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月3_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月3_dgv.Rows.Count - 1
                If 月3_dgv("層級", i).Value = 1 Then : 月3_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月3_dgv("層級", i).Value = 2 Then : 月3_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月3_dgv("第一階", i).Value.ToString = "資本" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月3_dgv("第一階", i).Value.ToString = "上月結存" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月3_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月3_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月4_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月4_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月4_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月4_dgv(1, e.RowIndex).Value.ToString <> 月4_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月4_dgv.RowHeadersVisible, 月4_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月4_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月4_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月4_dgv(2, e.RowIndex).Value.ToString <> 月4_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月4_dgv.RowHeadersVisible, 月4_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月4_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月4_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月4_dgv.Rows.Count - 1
                If 月4_dgv("層級", i).Value = 1 Then : 月4_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月4_dgv("層級", i).Value = 2 Then : 月4_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月4_dgv("第一階", i).Value.ToString = "資本" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月4_dgv("第一階", i).Value.ToString = "上月結存" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月4_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月4_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月5_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月5_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月5_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月5_dgv(1, e.RowIndex).Value.ToString <> 月5_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月5_dgv.RowHeadersVisible, 月5_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月5_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月5_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月5_dgv(2, e.RowIndex).Value.ToString <> 月5_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月5_dgv.RowHeadersVisible, 月5_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月5_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月5_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月5_dgv.Rows.Count - 1
                If 月5_dgv("層級", i).Value = 1 Then : 月5_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月5_dgv("層級", i).Value = 2 Then : 月5_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月5_dgv("第一階", i).Value.ToString = "資本" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月5_dgv("第一階", i).Value.ToString = "上月結存" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月5_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月5_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月6_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月6_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月6_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月6_dgv(1, e.RowIndex).Value.ToString <> 月6_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月6_dgv.RowHeadersVisible, 月6_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月6_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月6_dgv(2, e.RowIndex).Value.ToString <> 月6_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月6_dgv.RowHeadersVisible, 月6_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月6_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月6_dgv.Rows.Count - 1
                If 月6_dgv("層級", i).Value = 1 Then : 月6_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月6_dgv("層級", i).Value = 2 Then : 月6_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月6_dgv("第一階", i).Value.ToString = "資本" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月6_dgv("第一階", i).Value.ToString = "上月結存" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月6_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月6_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月7_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月7_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月7_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月7_dgv(1, e.RowIndex).Value.ToString <> 月7_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月7_dgv.RowHeadersVisible, 月7_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月7_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月7_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月7_dgv(2, e.RowIndex).Value.ToString <> 月7_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月7_dgv.RowHeadersVisible, 月7_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月7_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月7_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月7_dgv.Rows.Count - 1
                If 月7_dgv("層級", i).Value = 1 Then : 月7_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月7_dgv("層級", i).Value = 2 Then : 月7_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月7_dgv("第一階", i).Value.ToString = "資本" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月7_dgv("第一階", i).Value.ToString = "上月結存" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月7_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月7_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月8_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月8_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月8_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月8_dgv(1, e.RowIndex).Value.ToString <> 月8_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月8_dgv.RowHeadersVisible, 月8_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月8_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月8_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月8_dgv(2, e.RowIndex).Value.ToString <> 月8_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月8_dgv.RowHeadersVisible, 月8_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月8_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月8_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月8_dgv.Rows.Count - 1
                If 月8_dgv("層級", i).Value = 1 Then : 月8_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月8_dgv("層級", i).Value = 2 Then : 月8_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月8_dgv("第一階", i).Value.ToString = "資本" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月8_dgv("第一階", i).Value.ToString = "上月結存" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月8_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月8_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月9_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月9_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月9_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月9_dgv(1, e.RowIndex).Value.ToString <> 月9_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月9_dgv.RowHeadersVisible, 月9_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月9_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月9_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月9_dgv(2, e.RowIndex).Value.ToString <> 月9_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月9_dgv.RowHeadersVisible, 月9_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月9_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月9_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月9_dgv.Rows.Count - 1
                If 月9_dgv("層級", i).Value = 1 Then : 月9_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月9_dgv("層級", i).Value = 2 Then : 月9_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月9_dgv("第一階", i).Value.ToString = "資本" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月9_dgv("第一階", i).Value.ToString = "上月結存" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月9_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月9_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月10_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月10_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月10_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月10_dgv(1, e.RowIndex).Value.ToString <> 月10_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月10_dgv.RowHeadersVisible, 月10_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月10_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月10_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月10_dgv(2, e.RowIndex).Value.ToString <> 月10_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月10_dgv.RowHeadersVisible, 月10_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月10_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月10_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月10_dgv.Rows.Count - 1
                If 月10_dgv("層級", i).Value = 1 Then : 月10_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月10_dgv("層級", i).Value = 2 Then : 月10_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月10_dgv("第一階", i).Value.ToString = "資本" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月10_dgv("第一階", i).Value.ToString = "上月結存" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月10_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月10_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月11_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月11_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月11_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月11_dgv(1, e.RowIndex).Value.ToString <> 月11_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月11_dgv.RowHeadersVisible, 月11_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月11_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月11_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月11_dgv(2, e.RowIndex).Value.ToString <> 月11_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月11_dgv.RowHeadersVisible, 月11_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月11_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月11_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月11_dgv.Rows.Count - 1
                If 月11_dgv("層級", i).Value = 1 Then : 月11_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月11_dgv("層級", i).Value = 2 Then : 月11_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月11_dgv("第一階", i).Value.ToString = "資本" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月11_dgv("第一階", i).Value.ToString = "上月結存" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月11_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月11_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 月12_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月12_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = 月12_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 月12_dgv(1, e.RowIndex).Value.ToString <> 月12_dgv(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月12_dgv.RowHeadersVisible, 月12_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月12_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月12_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
            If 月12_dgv(2, e.RowIndex).Value.ToString <> 月12_dgv(2, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(月12_dgv.RowHeadersVisible, 月12_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 月12_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月12_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
            End If
            For i As Integer = 0 To 月12_dgv.Rows.Count - 1
                If 月12_dgv("層級", i).Value = 1 Then : 月12_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                ElseIf 月12_dgv("層級", i).Value = 2 Then : 月12_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
                End If
                If 月12_dgv("第一階", i).Value.ToString = "資本" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
                ElseIf 月12_dgv("第一階", i).Value.ToString = "上月結存" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
                ElseIf 月12_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
                ElseIf 月12_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
                End If
            Next
        End If
    End Sub
    Private Sub 主表_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 主表_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月1_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月1_dgv.Scroll
        主表_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月2_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月2_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月3_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月3_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
        主表_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月4_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月4_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月5_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月5_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
        主表_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月6_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月6_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月7_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月7_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
        主表_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月8_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月8_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月9_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月9_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
        主表_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月10_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月10_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月11_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月11_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
        主表_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 月12_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月12_dgv.Scroll
        月1_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
        月3_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
        月5_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
        月7_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
        月9_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
        月11_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
    End Sub
    Private Sub 公司編號_cb_Click(sender As Object, e As EventArgs) Handles 公司編號_cb.Click
        PA45 = 公司編號_cb.Text
        財務_選擇帳本.ShowDialog()
        公司編號_cb.Text = ""
        If 全 = True Then
            公司編號_cb.Text = "全部"
        Else
            If 帳本數量 = 0 Then
                公司編號_cb.Text = "全部"
            Else
                For i As Integer = 1 To 帳本數量
                    公司編號_cb.Text += 帳本內容(i) & "、"
                Next
                公司編號_cb.Text = 公司編號_cb.Text.TrimEnd("、"c)
            End If
        End If
        重新整理_bt.PerformClick()
    End Sub
    Private Sub 公司編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司編號_cb.SelectedIndexChanged

    End Sub
    Private Sub 支付單列印成EXCEL_Click(sender As Object, e As EventArgs) Handles 支付單列印成EXCEL.Click
        xlApp = CType(CreateObject("Excel.Application"), Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlBook.Activate()
        xlSheet = NewMethod(xlBook)
        xlSheet.Activate()
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized

        Dim year As String = 年份_cb.SelectedItem - 1911
        Dim year1 As String = 年份_cb.SelectedItem - 1912
        xlSheet.Cells(1, 1) = 公司名稱.Text & year & "年度收支報告表"
        xlSheet.Cells(2, 1) = "1-12月經費收支月報告"
        xlSheet.Cells(3, 1) = "摘要" : xlSheet.Cells(3, 2) = "收入"
        xlSheet.Cells(3, 3) = "支出" : xlSheet.Cells(3, 4) = "餘額"
        xlSheet.Cells(1, 6) = 公司名稱.Text & year & "年度收支報告表"
        xlSheet.Cells(2, 6) = "1-12月收支明細項目"
        xlSheet.Cells(3, 6) = "收入項目" : xlSheet.Cells(3, 7) = "收入金額"
        xlSheet.Cells(3, 8) = "支出項目" : xlSheet.Cells(3, 9) = "支出金額"
        xlSheet.Cells(4, 1) = year1 & "年度"
        xlSheet.Cells(4, 4) = TextBox30.Text
        For i As Integer = 1 To 13
            xlSheet.Cells(i + 4, 1) = i & "月份"
        Next i
        xlSheet.Cells(5, 2) = TextBox2.Text : xlSheet.Cells(5, 3) = TextBox3.Text : xlSheet.Cells(5, 4) = TextBox4.Text
        xlSheet.Cells(6, 2) = TextBox6.Text : xlSheet.Cells(6, 3) = TextBox7.Text : xlSheet.Cells(6, 4) = TextBox8.Text
        xlSheet.Cells(7, 2) = TextBox10.Text : xlSheet.Cells(7, 3) = TextBox11.Text : xlSheet.Cells(7, 4) = TextBox12.Text
        xlSheet.Cells(8, 2) = TextBox14.Text : xlSheet.Cells(8, 3) = TextBox15.Text : xlSheet.Cells(8, 4) = TextBox16.Text
        xlSheet.Cells(9, 2) = TextBox18.Text : xlSheet.Cells(9, 3) = TextBox19.Text : xlSheet.Cells(9, 4) = TextBox20.Text
        xlSheet.Cells(10, 2) = TextBox22.Text : xlSheet.Cells(10, 3) = TextBox23.Text : xlSheet.Cells(10, 4) = TextBox24.Text
        xlSheet.Cells(11, 2) = TextBox34.Text : xlSheet.Cells(11, 3) = TextBox33.Text : xlSheet.Cells(11, 4) = TextBox32.Text
        xlSheet.Cells(12, 2) = TextBox39.Text : xlSheet.Cells(12, 3) = TextBox38.Text : xlSheet.Cells(12, 4) = TextBox37.Text
        xlSheet.Cells(13, 2) = TextBox44.Text : xlSheet.Cells(13, 3) = TextBox43.Text : xlSheet.Cells(13, 4) = TextBox42.Text
        xlSheet.Cells(14, 2) = TextBox49.Text : xlSheet.Cells(14, 3) = TextBox48.Text : xlSheet.Cells(14, 4) = TextBox47.Text
        xlSheet.Cells(15, 2) = TextBox54.Text : xlSheet.Cells(15, 3) = TextBox53.Text : xlSheet.Cells(15, 4) = TextBox52.Text
        xlSheet.Cells(16, 2) = TextBox59.Text : xlSheet.Cells(16, 3) = TextBox58.Text : xlSheet.Cells(16, 4) = TextBox57.Text
        xlSheet.Cells(17, 1) = "年度總計"
        xlSheet.Cells(17, 2) = TextBox62.Text : xlSheet.Cells(17, 3) = TextBox63.Text
        Dim a As Integer = 4
        Dim a1 As Integer = 4
        Dim bo As Boolean
        For i As Integer = 0 To 主表_dgv.Rows.Count - 1
            If 主表_dgv.Rows(i).Cells("主項").Value = "歲入合計" Then
                bo = False
            ElseIf 主表_dgv.Rows(i).Cells("主項").Value = "歲出合計" Then
                bo = True
            End If
            If 主表_dgv.Rows(i).Cells("子細項").Value <> "" Then
                If bo = False Then
                    xlSheet.Cells(a, 6) = 主表_dgv.Rows(i).Cells("子細項").Value
                    Dim value As Double = Convert.ToDouble(主表_dgv.Rows(i).Cells("細項金額").Value)
                    Dim formattedValue As String = value.ToString("#,##0") : xlSheet.Cells(a, 7) = formattedValue
                    a += 1
                Else
                    xlSheet.Cells(a1, 8) = 主表_dgv.Rows(i).Cells("子細項").Value
                    Dim value1 As Double = Convert.ToDouble(主表_dgv.Rows(i).Cells("細項金額").Value)
                    Dim formattedValue1 As String = value1.ToString("#,##0") : xlSheet.Cells(a1, 9) = formattedValue1
                    a1 += 1
                End If
            End If
        Next i
        If a > a1 Then
            N2 = a
        Else
            N2 = a1
        End If
        For i As Integer = 0 To 主表_dgv.Rows.Count - 1
            If 主表_dgv.Rows(i).Cells("主項").Value = "歲入合計" Then
                xlSheet.Cells(N2, 6) = "收入合計"
                Dim value As Double = Convert.ToDouble(主表_dgv.Rows(i).Cells("主項金額").Value)
                Dim formattedValue As String = value.ToString("#,##0") : xlSheet.Cells(N2, 7) = formattedValue

            ElseIf 主表_dgv.Rows(i).Cells("主項").Value = "歲出合計" Then
                xlSheet.Cells(N2, 8) = "支出合計"
                Dim value1 As Double = Convert.ToDouble(主表_dgv.Rows(i).Cells("主項金額").Value)
                Dim formattedValue1 As String = value1.ToString("#,##0") : xlSheet.Cells(N2, 9) = formattedValue1
            End If
        Next i

        AA(xlApp, xlSheet)
        xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
        '----轉成PDF-----
        Dim pdfFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "pdf")
        If Not Directory.Exists(pdfFolderPath) Then
            Directory.CreateDirectory(pdfFolderPath)
        End If
        Dim pdfFilePath As String = Path.Combine(pdfFolderPath, 公司名稱.Text & year & "年度收支報告表.pdf")
        xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, pdfFilePath, XlFixedFormatQuality.xlQualityStandard, True)

        '--------
        xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized : xlBook.Close(False)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()
        Try
            Dim chromePath As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"
            If System.IO.File.Exists(chromePath) Then
                Dim process As New Process()
                process.StartInfo.FileName = "chrome"
                process.StartInfo.Arguments = """" & pdfFilePath & """"
                process.Start()
            Else : Dim edgePath As String = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
                If System.IO.File.Exists(edgePath) Then
                    Dim process As New Process()
                    process.StartInfo.FileName = "msedge"
                    process.StartInfo.Arguments = """" & pdfFilePath & """"
                    process.Start()
                Else
                    Process.Start(pdfFilePath)
                End If
            End If
        Catch ex As Exception
            MsgBox("以存檔至桌面 。" & vbCrLf & "檔案名稱：" & 公司名稱.Text & year & "年度收支報告表.pdf")
        End Try
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 16
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With

        xlSheet.Range("A3:D17").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With

        xlSheet.Range("F3:I" & N2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With myExcel.Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With

        xlSheet.Columns("A:A").ColumnWidth = 24
        xlSheet.Columns("B:B").ColumnWidth = 24
        xlSheet.Columns("C:C").ColumnWidth = 24
        xlSheet.Columns("D:D").ColumnWidth = 24
        xlSheet.Columns("E:E").ColumnWidth = 0.5
        xlSheet.Columns("F:F").ColumnWidth = 24
        xlSheet.Columns("G:G").ColumnWidth = 24
        xlSheet.Columns("H:H").ColumnWidth = 24
        xlSheet.Columns("I:I").ColumnWidth = 24

        xlSheet.Range("A1:D1").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("F1:I1").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("A2:D2").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("F2:I2").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("A3:I3").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

        xlSheet.Range("A4:A17").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

        xlSheet.Range("F4:F" & N2).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

        xlSheet.Range("H4:H" & N2).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.25)
            .RightMargin = myExcel.Application.InchesToPoints(0.25)
            .TopMargin = myExcel.Application.InchesToPoints(0.75)
            .BottomMargin = myExcel.Application.InchesToPoints(0.75)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.3)
            .FooterMargin = myExcel.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintQuality = 300
            .CenterHorizontally = False
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 2
            .FitToPagesTall = False
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True
    End Sub


End Class