GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_決算表_GCM.vb

Option Strict Off
Public Class 財務_決算表_GCM
    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
    Private Sub Set_DGV2開始()
        主表_dgv.DataSource = Nothing : ds2.Clear() : 主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表_dgv.ColumnHeadersHeight = 50 : 主表_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV2結束()
        CmdSet_For_DGV() : da.Fill(ds2) : 主表_dgv.DataSource = ds2.Tables(0) : conn.Close()

        主表_dgv.Columns(0).FillWeight = 40 : 主表_dgv.Columns(1).Visible = False : 主表_dgv.Columns(2).Visible = False : 主表_dgv.Columns(3).FillWeight = 90
        主表_dgv.Columns(4).FillWeight = 90 : 主表_dgv.Columns(5).FillWeight = 150 : 主表_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
        總資本_tb.Text = "0" : 總收入_tb.Text = "0" : 總支出_tb.Text = "0" : 總損益_tb.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 = CLng(主表_dgv.Rows(i).Cells("主項金額").Value) * -1
                主表_dgv("子項金額", i).Value = CLng(主表_dgv.Rows(i).Cells("子項金額").Value) * -1
                主表_dgv("細項金額", i).Value = CLng(主表_dgv.Rows(i).Cells("細項金額").Value) * -1
            End If

            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 總資本_tb.Text = Format(CLng(總資本_tb.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 總收入_tb.Text = Format(CLng(總收入_tb.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 總支出_tb.Text = Format(CLng(總支出_tb.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        總損益_tb.Text = Format(CLng(總收入_tb.Text) - CLng(總支出_tb.Text), "#,##0")
    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
        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, 
                            WWEE.子項金額, EERR.細項金額
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                       SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
                                WHERE (LEFT(財務控制表_3.審核日期,4) LIKE N'" & 年份_cb.Text & "') " & SQL4 & "
                                GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                       SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
                                WHERE (LEFT(財務控制表_2.審核日期,4) LIKE N'" & 年份_cb.Text & "') " & SQL3 & "
                                GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                       SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
                                WHERE (LEFT(財務控制表_1.審核日期,4) LIKE N'" & 年份_cb.Text & "') " & SQL2 & "
                                GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        Set_DGV2結束()
    End Sub
    Private Sub SQL_月份()
        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                            EERR.細項金額, EERR.細項金額 AS [金額]
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                       SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號 INNER JOIN
                                       會計科目 AS 會計科目_3 ON 財務流水帳_3.類別 = 會計科目_3.編號
                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/" & PA14 & "') AND (會計科目_3.顯示 = 1) " & SQL4 & " 
                                GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                       SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號 INNER JOIN
                                       會計科目 AS 會計科目_2 ON 財務流水帳_2.類別 = 會計科目_2.編號
                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/" & PA14 & "') AND (會計科目_2.顯示 = 1) " & SQL3 & "
                                GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                       SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號 INNER JOIN
                                       會計科目 AS 會計科目_1 ON 財務流水帳_1.類別 = 會計科目_1.編號
                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/" & PA14 & "') AND (會計科目_1.顯示 = 1) " & SQL2 & "
                                GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
    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
        ConnOpen()
        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 : PA14 = "01" : SQL_月份()
        CmdSet_For_DGV() : 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
        資本1_tb.Text = "0" : 收入1_tb.Text = "0" : 支出1_tb.Text = "0" : 月結1_tb.Text = "0" : 結存1_tb.Text = "0" : 損益_tb1.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 = CLng(月1_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本1_tb.Text = Format(CLng(資本1_tb.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入1_tb.Text = Format(CLng(收入1_tb.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出1_tb.Text = Format(CLng(支出1_tb.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存1_tb.Text = Format(CLng(結存1_tb.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        支出1_tb.Text = Format(CLng(支出1_tb.Text) * -1, "#,##0")
        月結1_tb.Text = Format(CLng(結存1_tb.Text) + CLng(資本1_tb.Text) + CLng(收入1_tb.Text) - CLng(支出1_tb.Text), "#,##0")
        損益_tb1.Text = Format(CLng(收入1_tb.Text) - CLng(支出1_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "02" : SQL_月份()
        CmdSet_For_DGV() : 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
        資本2_tb.Text = "0" : 收入2_tb.Text = "0" : 支出2_tb.Text = "0" : 月結2_tb.Text = "0" : 結存2_tb.Text = "0" : 損益_tb2.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 = CLng(月2_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本2_tb.Text = Format(CLng(資本2_tb.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入2_tb.Text = Format(CLng(收入2_tb.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出2_tb.Text = Format(CLng(支出2_tb.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存2_tb.Text = Format(CLng(結存2_tb.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存2_tb.Text) > 0 Then : 匯差2_tb.Text = Format(CLng(結存2_tb.Text) - CLng(月結1_tb.Text), "#,##0") : Else : 匯差2_tb.Text = 0 : End If

        支出2_tb.Text = Format(CLng(支出2_tb.Text) * -1, "#,##0")
        月結2_tb.Text = Format(CLng(結存2_tb.Text) + CLng(資本2_tb.Text) + CLng(收入2_tb.Text) - CLng(支出2_tb.Text), "#,##0")
        損益_tb2.Text = Format(CLng(收入2_tb.Text) - CLng(支出2_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "03" : SQL_月份()
        CmdSet_For_DGV() : 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
        資本3_tb.Text = "0" : 收入3_tb.Text = "0" : 支出3_tb.Text = "0" : 月結3_tb.Text = "0" : 結存3_tb.Text = "0" : 損益_tb3.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 = CLng(月3_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本3_tb.Text = Format(CLng(資本3_tb.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入3_tb.Text = Format(CLng(收入3_tb.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出3_tb.Text = Format(CLng(支出3_tb.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存3_tb.Text = Format(CLng(結存3_tb.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存3_tb.Text) > 0 Then : 匯差3_tb.Text = Format(CLng(結存3_tb.Text) - CLng(月結2_tb.Text), "#,##0") : Else : 匯差3_tb.Text = 0 : End If

        支出3_tb.Text = Format(CLng(支出3_tb.Text) * -1, "#,##0")
        月結3_tb.Text = Format(CLng(結存3_tb.Text) + CLng(資本3_tb.Text) + CLng(收入3_tb.Text) - CLng(支出3_tb.Text), "#,##0")
        損益_tb3.Text = Format(CLng(收入3_tb.Text) - CLng(支出3_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "04" : SQL_月份()
        CmdSet_For_DGV() : 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
        資本4_tb.Text = "0" : 收入4_tb.Text = "0" : 支出4_tb.Text = "0" : 月結4_tb.Text = "0" : 結存4_tb.Text = "0" : 損益_tb4.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 = CLng(月4_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本4_tb.Text = Format(CLng(資本4_tb.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入4_tb.Text = Format(CLng(收入4_tb.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出4_tb.Text = Format(CLng(支出4_tb.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存4_tb.Text = Format(CLng(結存4_tb.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存4_tb.Text) > 0 Then : 匯差4_tb.Text = Format(CLng(結存4_tb.Text) - CLng(月結3_tb.Text), "#,##0") : Else : 匯差4_tb.Text = 0 : End If

        支出4_tb.Text = Format(CLng(支出4_tb.Text) * -1, "#,##0")
        月結4_tb.Text = Format(CLng(結存4_tb.Text) + CLng(資本4_tb.Text) + CLng(收入4_tb.Text) - CLng(支出4_tb.Text), "#,##0")
        損益_tb4.Text = Format(CLng(收入4_tb.Text) - CLng(支出4_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "05" : SQL_月份()
        CmdSet_For_DGV() : 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
        資本5_tb.Text = "0" : 收入5_tb.Text = "0" : 支出5_tb.Text = "0" : 月結5_tb.Text = "0" : 結存5_tb.Text = "0" : 損益_tb5.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 = CLng(月5_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本5_tb.Text = Format(CLng(資本5_tb.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入5_tb.Text = Format(CLng(收入5_tb.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出5_tb.Text = Format(CLng(支出5_tb.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存5_tb.Text = Format(CLng(結存5_tb.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存5_tb.Text) > 0 Then : 匯差5_tb.Text = Format(CLng(結存5_tb.Text) - CLng(月結4_tb.Text), "#,##0") : Else : 匯差5_tb.Text = 0 : End If

        支出5_tb.Text = Format(CLng(支出5_tb.Text) * -1, "#,##0")
        月結5_tb.Text = Format(CLng(資本5_tb.Text) + CLng(收入5_tb.Text) - CLng(支出5_tb.Text) + CLng(結存5_tb.Text), "#,##0")
        損益_tb5.Text = Format(CLng(收入5_tb.Text) - CLng(支出5_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "06" : SQL_月份()
        CmdSet_For_DGV() : 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
        資本6_tb.Text = "0" : 收入6_tb.Text = "0" : 支出6_tb.Text = "0" : 月結6_tb.Text = "0" : 結存6_tb.Text = "0" : 損益_tb6.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 = CLng(月6_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本6_tb.Text = Format(CLng(資本6_tb.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入6_tb.Text = Format(CLng(收入6_tb.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出6_tb.Text = Format(CLng(支出6_tb.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存6_tb.Text = Format(CLng(結存6_tb.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存6_tb.Text) > 0 Then : 匯差6_tb.Text = Format(CLng(結存6_tb.Text) - CLng(月結5_tb.Text), "#,##0") : Else : 匯差6_tb.Text = 0 : End If

        支出6_tb.Text = Format(CLng(支出6_tb.Text) * -1, "#,##0")
        月結6_tb.Text = Format(CLng(資本6_tb.Text) + CLng(收入6_tb.Text) - CLng(支出6_tb.Text) + CLng(結存6_tb.Text), "#,##0")
        損益_tb6.Text = Format(CLng(收入6_tb.Text) - CLng(支出6_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "07" : SQL_月份()
        CmdSet_For_DGV() : 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
        結存7_tb.Text = "0" : 月結7_tb.Text = "0" : 支出7_tb.Text = "0" : 收入7_tb.Text = "0" : 資本7_tb.Text = "0" : 損益_tb7.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 = CLng(月7_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本7_tb.Text = Format(CLng(資本7_tb.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入7_tb.Text = Format(CLng(收入7_tb.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出7_tb.Text = Format(CLng(支出7_tb.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存7_tb.Text = Format(CLng(結存7_tb.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存7_tb.Text) > 0 Then : 匯差7_tb.Text = Format(CLng(結存7_tb.Text) - CLng(月結6_tb.Text), "#,##0") : Else : 匯差7_tb.Text = 0 : End If

        支出7_tb.Text = Format(CLng(支出7_tb.Text) * -1, "#,##0")
        月結7_tb.Text = Format(CLng(資本7_tb.Text) + CLng(收入7_tb.Text) - CLng(支出7_tb.Text) + CLng(結存7_tb.Text), "#,##0")
        損益_tb7.Text = Format(CLng(收入7_tb.Text) - CLng(支出7_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "08" : SQL_月份()
        CmdSet_For_DGV() : 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
        結存8_tb.Text = "0" : 月結8_tb.Text = "0" : 支出8_tb.Text = "0" : 收入8_tb.Text = "0" : 資本8_tb.Text = "0" : 損益_tb8.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 = CLng(月8_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本8_tb.Text = Format(CLng(資本8_tb.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入8_tb.Text = Format(CLng(收入8_tb.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出8_tb.Text = Format(CLng(支出8_tb.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存8_tb.Text = Format(CLng(結存8_tb.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存8_tb.Text) > 0 Then : 匯差8_tb.Text = Format(CLng(結存8_tb.Text) - CLng(月結7_tb.Text), "#,##0") : Else : 匯差8_tb.Text = 0 : End If

        支出8_tb.Text = Format(CLng(支出8_tb.Text) * -1, "#,##0")
        月結8_tb.Text = Format(CLng(資本8_tb.Text) + CLng(收入8_tb.Text) - CLng(支出8_tb.Text) + CLng(結存8_tb.Text), "#,##0")
        損益_tb8.Text = Format(CLng(收入8_tb.Text) - CLng(支出8_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "09" : SQL_月份()
        CmdSet_For_DGV() : 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
        結存9_tb.Text = "0" : 月結9_tb.Text = "0" : 支出9_tb.Text = "0" : 收入9_tb.Text = "0" : 資本9_tb.Text = "0" : 損益_tb9.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 = CLng(月9_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本9_tb.Text = Format(CLng(資本9_tb.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入9_tb.Text = Format(CLng(收入9_tb.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出9_tb.Text = Format(CLng(支出9_tb.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存9_tb.Text = Format(CLng(結存9_tb.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存9_tb.Text) > 0 Then : 匯差9_tb.Text = Format(CLng(結存9_tb.Text) - CLng(月結8_tb.Text), "#,##0") : Else : 匯差9_tb.Text = 0 : End If

        支出9_tb.Text = Format(CLng(支出9_tb.Text) * -1, "#,##0")
        月結9_tb.Text = Format(CLng(資本9_tb.Text) + CLng(收入9_tb.Text) - CLng(支出9_tb.Text) + CLng(結存9_tb.Text), "#,##0")
        損益_tb9.Text = Format(CLng(收入9_tb.Text) - CLng(支出9_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "10" : SQL_月份()
        CmdSet_For_DGV() : 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
        結存10_tb.Text = "0" : 月結10_tb.Text = "0" : 支出10_tb.Text = "0" : 收入10_tb.Text = "0" : 資本10_tb.Text = "0" : 損益_tb10.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 = CLng(月10_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本10_tb.Text = Format(CLng(資本10_tb.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入10_tb.Text = Format(CLng(收入10_tb.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出10_tb.Text = Format(CLng(支出10_tb.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存10_tb.Text = Format(CLng(結存10_tb.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存10_tb.Text) > 0 Then : 匯差10_tb.Text = Format(CLng(結存10_tb.Text) - CLng(月結9_tb.Text), "#,##0") : Else : 匯差10_tb.Text = 0 : End If

        支出10_tb.Text = Format(CLng(支出10_tb.Text) * -1, "#,##0")
        月結10_tb.Text = Format(CLng(資本10_tb.Text) + CLng(收入10_tb.Text) - CLng(支出10_tb.Text) + CLng(結存10_tb.Text), "#,##0")
        損益_tb10.Text = Format(CLng(收入10_tb.Text) - CLng(支出10_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "11" : SQL_月份()
        CmdSet_For_DGV() : 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
        結存11_tb.Text = "0" : 月結11_tb.Text = "0" : 支出11_tb.Text = "0" : 收入11_tb.Text = "0" : 資本11_tb.Text = "0" : 損益_tb11.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 = CLng(月11_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本11_tb.Text = Format(CLng(資本11_tb.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入11_tb.Text = Format(CLng(收入11_tb.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出11_tb.Text = Format(CLng(支出11_tb.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存11_tb.Text = Format(CLng(結存11_tb.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存11_tb.Text) > 0 Then : Format(匯差11_tb.Text = CLng(結存11_tb.Text) - CLng(月結10_tb.Text), "#,##0") : Else : 匯差11_tb.Text = 0 : End If

        支出11_tb.Text = Format(CLng(支出11_tb.Text) * -1, "#,##0")
        月結11_tb.Text = Format(CLng(資本11_tb.Text) + CLng(收入11_tb.Text) - CLng(支出11_tb.Text) + CLng(結存11_tb.Text), "#,##0")
        損益_tb11.Text = Format(CLng(收入11_tb.Text) - CLng(支出11_tb.Text), "#,##0")
    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
        ConnOpen()
        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 : PA14 = "12" : SQL_月份()
        CmdSet_For_DGV() : da.Fill(ds12) : 月12_dgv.DataSource = ds12.Tables(0) : conn.Close()

        月12_dgv.Columns(0).FillWeight = 20 : 月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
        結存12_tb.Text = "0" : 月結12_tb.Text = "0" : 支出12_tb.Text = "0" : 收入12_tb.Text = "0" : 資本12_tb.Text = "0" : 損益_tb12.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 = CLng(月12_dgv.Rows(i).Cells("金額").Value) * -1 : End If

            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : 資本12_tb.Text = Format(CLng(資本12_tb.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : 收入12_tb.Text = Format(CLng(收入12_tb.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : 支出12_tb.Text = Format(CLng(支出12_tb.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : 結存12_tb.Text = Format(CLng(結存12_tb.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value, "#,##0") : End If
        Next
        If CLng(結存12_tb.Text) > 0 Then : 匯差12_tb.Text = Format(CLng(結存12_tb.Text) - CLng(月結11_tb.Text), "#,##0") : Else : 匯差12_tb.Text = 0 : End If

        支出12_tb.Text = Format(CLng(支出12_tb.Text) * -1, "#,##0")
        月結12_tb.Text = Format(CLng(資本12_tb.Text) + CLng(收入12_tb.Text) - CLng(支出12_tb.Text) + CLng(結存12_tb.Text), "#,##0")
        損益_tb12.Text = Format(CLng(收入12_tb.Text) - CLng(支出12_tb.Text), "#,##0")
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        ConnOpen()
        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
        CmdSet_For_dr()
        年份_cb.Items.Clear()
        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While
        conn.Close()
    End Sub
    Private Sub 格式設定()
        For no As Integer = 1 To 12
            Dim TextBoxOO As TextBox = CType(Me.Controls.Find("損益_tb" + no.ToString(), True)(0), TextBox)
            If CLng(TextBoxOO.Text) > 0 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf CLng(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
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        GCM_ERP_SYS.WindowState = 2
        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() : 格式設定()
    End Sub
    Private Sub 營運報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        GCM_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 主表_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 DataGridView2_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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Set_DGV2開始()
        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, 
                            WWEE.子項金額, EERR.細項金額
                FROM        會計科目 FULL OUTER JOIN
                               (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                       SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
                                GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                       SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
                                GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                            FULL OUTER JOIN
                               (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                       SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
                                GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                WHERE     (會計科目.顯示 = 1)
                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
        Set_DGV2結束() : 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 彙總資料存檔_bt_Click(sender As Object, e As EventArgs) Handles 彙總資料存檔_bt.Click
        ConnOpen() : SQL1 = "DELETE 財務彙總紀錄 WHERE 日期 LIKE '" & 年份_cb.Text & "%'" : CmdSet_For_dr()
        資料數 = 主表_dgv.Rows.Count * 12
        For i As Integer = 0 To 月1_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月1_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/01" : PA1 = 月1_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月1_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月1_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月1_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月2_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月2_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/02" : PA1 = 月2_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月2_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月2_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月2_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月3_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月3_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/03" : PA1 = 月3_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月3_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月3_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月3_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月4_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月4_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/04" : PA1 = 月4_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月4_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月4_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月4_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月5_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月5_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/05" : PA1 = 月5_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月5_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月5_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月5_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月6_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月6_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/06" : PA1 = 月6_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月6_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月6_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月6_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月7_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月7_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/07" : PA1 = 月7_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月7_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月7_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月7_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月8_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月8_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/08" : PA1 = 月8_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月8_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月8_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月8_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月9_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月9_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/09" : PA1 = 月9_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月9_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月9_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月9_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月10_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月10_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/10" : PA1 = 月10_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月10_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月10_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月10_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月11_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月11_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/11" : PA1 = 月11_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月11_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月11_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月11_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next
        For i As Integer = 0 To 月12_dgv.Rows.Count - 1
            MyModule1.進度條()
            If 月12_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then
                PA = 年份_cb.Text & "/12" : PA1 = 月12_dgv.Rows(i).Cells("主項").Value.ToString : PA2 = 月12_dgv.Rows(i).Cells("子項").Value.ToString
                PA3 = 月12_dgv.Rows(i).Cells("子細項").Value.ToString : PA4 = 月12_dgv.Rows(i).Cells("細項金額").Value.ToString
                ConnOpen()
                SQL1 = "INSERT INTO 財務彙總紀錄 (日期, 主項, 子項, 子細項, 金額) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
                CmdSet_For_dr()
            End If
        Next : GCM_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        MsgBox("存檔完成!!!")
    End Sub
End Class