GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb

Option Strict Off
Imports System.IO
Imports System.Text
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Public Class 電板帳務彙總計算表
    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20, ds21 As New DataSet
    Dim GP As Integer = 0 : Dim NH1, 批次, 選擇記憶 As Integer
    Dim GPP As String : Dim 本周周一 As Date
    Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim Str As String = Application.StartupPath
    Private Sub Set_群組()
        Dim ds15 As New DataSet
        群組_dgv.DataSource = Nothing : ds15.Clear()
        群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        群組_dgv.ColumnHeadersHeight = 25 : 群組_dgv.AllowUserToAddRows = False
        SQL_群組()
        da.Fill(ds15) : 群組_dgv.DataSource = ds15.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_網址修正()
        網址修正_dgv.DataSource = Nothing : ds15.Clear()
        網址修正_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        網址修正_dgv.ColumnHeadersHeight = 25 : 網址修正_dgv.AllowUserToAddRows = False
        SQL_網址修正()
        da.Fill(ds15) : 網址修正_dgv.DataSource = ds15.Tables(0) : conn.Close()
        For II As Integer = 0 To 網址修正_dgv.Rows.Count - 1
            PA1 = 網址修正_dgv.Rows(II).Cells("網址").Value.ToString : PA2 = 網址修正_dgv.Rows(II).Cells("主網址").Value.ToString : SQL_網址修正執行()
        Next : PA1 = "" : PA2 = ""
    End Sub
    Private Sub Set_上繳名()
        If 彙總表不再重新讀取 = False Then
            上繳名_dgv.DataSource = Nothing : ds15.Clear()
            上繳名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            上繳名_dgv.ColumnHeadersHeight = 25 : 上繳名_dgv.AllowUserToAddRows = False
            SQL_上繳名()
            da.Fill(ds15) : 上繳名_dgv.DataSource = ds15.Tables(0) : conn.Close()
            上繳名_dgv.Columns("交割金額").Visible = False
            上繳名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1 : 上繳名_dgv.Rows(II).Cells("交割金額").Value = "0" : 上繳名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
    End Sub
    Private Sub Set_下收名()
        If 彙總表不再重新讀取 = False Then
            下收名_dgv.DataSource = Nothing : ds16.Clear()
            下收名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            下收名_dgv.ColumnHeadersHeight = 25 : 下收名_dgv.AllowUserToAddRows = False
            SQL_下收名()
            da.Fill(ds16) : 下收名_dgv.DataSource = ds16.Tables(0) : conn.Close()
            下收名_dgv.Columns("交割金額").Visible = False
            下收名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        For II As Integer = 0 To 下收名_dgv.Rows.Count - 1 : 下收名_dgv.Rows(II).Cells("交割金額").Value = "0" : 下收名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
    End Sub
    Private Sub Set_所得名()
        If 彙總表不再重新讀取 = False Then
            所得名_dgv.DataSource = Nothing : ds17.Clear()
            所得名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            所得名_dgv.ColumnHeadersHeight = 25 : 所得名_dgv.AllowUserToAddRows = False
            SQL_所得名()
            da.Fill(ds17) : 所得名_dgv.DataSource = ds17.Tables(0) : conn.Close()
            所得名_dgv.Columns("交割金額").Visible = False
            所得名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        For II As Integer = 0 To 所得名_dgv.Rows.Count - 1 : 所得名_dgv.Rows(II).Cells("交割金額").Value = "0" : 所得名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
    End Sub
    Private Sub Set_所得名只算所得()
        If 彙總表不再重新讀取 = False Then
            所得名1_dgv.DataSource = Nothing : ds3.Clear()
            所得名1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            所得名1_dgv.ColumnHeadersHeight = 25 : 所得名1_dgv.AllowUserToAddRows = False
            SQL_所得名1()
            da.Fill(ds3) : 所得名1_dgv.DataSource = ds3.Tables(0) : conn.Close()
            所得名1_dgv.Columns("交割金額").Visible = False
            所得名1_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1 : 所得名1_dgv.Rows(II).Cells("交割金額").Value = "0" : 所得名1_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
    End Sub
    Private Sub Set_水差名()
        If 彙總表不再重新讀取 = False Then
            水差名_dgv.DataSource = Nothing : ds18.Clear()
            水差名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            水差名_dgv.ColumnHeadersHeight = 25 : 水差名_dgv.AllowUserToAddRows = False
            SQL_水差名()
            da.Fill(ds18) : 水差名_dgv.DataSource = ds18.Tables(0) : conn.Close()
            水差名_dgv.Columns("交割金額").Visible = False
            水差名_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        For II As Integer = 0 To 水差名_dgv.Rows.Count - 1 : 水差名_dgv.Rows(II).Cells("交割金額").Value = "0" : 水差名_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
    End Sub
    Private Sub Set_水差出帳1()
        If 彙總表不再重新讀取 = False Then
            水差名1_dgv.DataSource = Nothing : ds19.Clear()
            水差名1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            水差名1_dgv.ColumnHeadersHeight = 25 : 水差名1_dgv.AllowUserToAddRows = False
            SQL_水差名出帳()
            da.Fill(ds19) : 水差名1_dgv.DataSource = ds19.Tables(0) : conn.Close()
            水差名1_dgv.Columns("交割金額").Visible = False
            水差名1_dgv.Columns("交割金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        End If
        For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1 : 水差名1_dgv.Rows(II).Cells("交割金額").Value = "0" : 水差名1_dgv.Rows(II).Cells("交割金額.").Value = "0" : Next
    End Sub
    Private Sub Set_紙單出帳1()
        紙帳總表_dgv.DataSource = Nothing : ds21.Clear()
        紙帳總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紙帳總表_dgv.ColumnHeadersHeight = 25 : 紙帳總表_dgv.AllowUserToAddRows = False
        SQL_紙單出帳()
        da.Fill(ds21) : 紙帳總表_dgv.DataSource = ds21.Tables(0) : conn.Close()
        紙帳總表_dgv.Columns("交收金額").Visible = False
        紙帳總表_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_客戶下清單()
        客戶下_dgv.DataSource = Nothing : ds4.Clear()
        客戶下_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        客戶下_dgv.ColumnHeadersHeight = 25 : 客戶下_dgv.AllowUserToAddRows = False
        表頭(1) = "下行客戶.客名 AS 客戶名稱"
        表頭(2) = "下行客戶.所得另算"
        表頭(3) = "下行客戶.水差另算"
        SQL_客戶下資料表()
        da.Fill(ds4) : 客戶下_dgv.DataSource = ds4.Tables(0) : conn.Close()

        客戶下_dgv.Columns(0).FillWeight = 80 : 客戶下_dgv.Columns(1).FillWeight = 200 : 客戶下_dgv.Columns(2).FillWeight = 80 : 客戶下_dgv.Columns("流水號").Visible = False
        客戶下_dgv.Columns(4).FillWeight = 35 : 客戶下_dgv.Columns(5).FillWeight = 35 : 客戶下_dgv.Columns(6).FillWeight = 35 : 客戶下_dgv.Columns(7).FillWeight = 35
        客戶下_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        For i As Integer = 0 To 客戶下_dgv.Rows.Count - 1
            If IsDBNull(客戶下_dgv("同帳", i).Value) = True Then : 客戶下_dgv("同帳", i).Value = False : End If
            If IsDBNull(客戶下_dgv("計算", i).Value) = True Then : 客戶下_dgv("計算", i).Value = False : End If
            If IsDBNull(客戶下_dgv("所得", i).Value) = True Then : 客戶下_dgv("所得", i).Value = False : End If
            If IsDBNull(客戶下_dgv("下層", i).Value) = True Then : 客戶下_dgv("下層", i).Value = False : End If
        Next
        '-------------------股東紅利設定讀取-----------------------------------------------------------------------------------------------------------------------------------
        紅利總表_dgv.DataSource = Nothing : ds5.Clear()
        紅利總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紅利總表_dgv.ColumnHeadersHeight = 25 : 紅利總表_dgv.AllowUserToAddRows = False
        SQL_股東紅利彙總表()
        da.Fill(ds5) : 紅利總表_dgv.DataSource = ds5.Tables(0) : conn.Close()
        紅利總表_dgv.Columns("總股").DefaultCellStyle.Format = "#,##0"
        紅利總表_dgv.Columns("總所得").DefaultCellStyle.Format = "#,##0"
        紅利總表_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紅利總表_dgv.Columns("總股").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紅利總表_dgv.Columns("總所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        For i As Integer = 0 To 紅利總表_dgv.Rows.Count - 1 : 紅利總表_dgv("總所得", i).Value = 0 : Next

        紅利分表_dgv.DataSource = Nothing : ds8.Clear()
        紅利分表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紅利分表_dgv.ColumnHeadersHeight = 25 : 紅利分表_dgv.AllowUserToAddRows = False
        SQL_股東紅利明細表()
        da.Fill(ds8) : 紅利分表_dgv.DataSource = ds8.Tables(0) : conn.Close()
        紅利分表_dgv.Columns("總股份").DefaultCellStyle.Format = "#,##0"
        紅利分表_dgv.Columns("股份").DefaultCellStyle.Format = "#,##0"
        紅利分表_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
        紅利分表_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紅利分表_dgv.Columns("總股份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紅利分表_dgv.Columns("股份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紅利分表_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
            If IsDBNull(紅利分表_dgv.Rows(i).Cells("反轉").Value) Then : 紅利分表_dgv.Rows(i).Cells("反轉").Value = False : End If
            紅利分表_dgv("紅利", i).Value = 0
        Next
    End Sub
    Private Sub Set_流水帳清單1()
        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : Set_紙單出帳1() : 彙總表不再重新讀取 = True
        流水帳_dgv.DataSource = Nothing : ds.Clear() : 流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        流水帳_dgv.ColumnHeadersHeight = 25 : 流水帳_dgv.AllowUserToAddRows = False
        Dim 是否計算 As Boolean
        PA40 = 網址_tb.Text : SQL_流水帳查詢() : 是否計算 = True

        If 本機資料 = False Then : da.Fill(ds) : 流水帳_dgv.DataSource = ds.Tables(0) : conn.Close()
        Else : Acda.Fill(ds) : 流水帳_dgv.DataSource = ds.Tables(0) : Access1.Close() : End If

        流水帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        流水帳_dgv.Columns("核帳").FillWeight = 55 : 流水帳_dgv.Columns("客名").FillWeight = 65
        流水帳_dgv.Columns("客戶").FillWeight = 110 : 流水帳_dgv.Columns("商品").FillWeight = 70
        流水帳_dgv.Columns("老闆").FillWeight = 55 : 流水帳_dgv.Columns("帳戶").FillWeight = 70
        流水帳_dgv.Columns("計算").FillWeight = 50 : 流水帳_dgv.Columns("同帳").FillWeight = 50
        流水帳_dgv.Columns("所得").FillWeight = 50 : 流水帳_dgv.Columns("下層").FillWeight = 50
        流水帳_dgv.Columns("上層").FillWeight = 50

        流水帳_dgv.Columns(0).Visible = False : 流水帳_dgv.Columns(1).Visible = False : 流水帳_dgv.Columns("資料").Visible = False
        流水帳_dgv.Columns("網址").Visible = False : 流水帳_dgv.Columns("所得另算").Visible = False : 流水帳_dgv.Columns("同帳指定").Visible = False
        流水帳_dgv.Columns("總監").Visible = False : 流水帳_dgv.Columns("客戶").Visible = False : 流水帳_dgv.Columns("個人所得2").Visible = False
        流水帳_dgv.Columns("水差2").Visible = False : 流水帳_dgv.Columns("天帳").Visible = False : 流水帳_dgv.Columns("地帳").Visible = False
        流水帳_dgv.Columns("水差").Visible = False : 流水帳_dgv.Columns("個人所得").Visible = False : 流水帳_dgv.Columns("天帳1").Visible = False
        流水帳_dgv.Columns("地帳1").Visible = False : 流水帳_dgv.Columns("按鈕").Visible = False : 流水帳_dgv.Columns("核帳").FillWeight = 50
        流水帳_dgv.Columns("index").Visible = False
        流水帳_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        流水帳_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        流水帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        流水帳_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        流水帳_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 19 To 54 : 流水帳_dgv.Columns(i).Visible = False : Next
        流水帳_dgv.Columns("下注明細").Visible = True : 核帳0_tb.Text = "0"
        If 是否計算 = True Then
            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If IsDBNull(流水帳_dgv("同帳", i).Value) = True Then : 流水帳_dgv("同帳", i).Value = False : End If
                If IsDBNull(流水帳_dgv("計算", i).Value) = True Then : 流水帳_dgv("計算", i).Value = False : End If
                If IsDBNull(流水帳_dgv("所得", i).Value) = True Then : 流水帳_dgv("所得", i).Value = False : End If
                If IsDBNull(流水帳_dgv("上層", i).Value) = True Then : 流水帳_dgv("上層", i).Value = False : End If : 流水帳_dgv("上層", i).Value = False
                If IsDBNull(流水帳_dgv("下層", i).Value) = True Then : 流水帳_dgv("下層", i).Value = False : End If : 流水帳_dgv("下層", i).Value = False
            Next
            計算()
            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If (Val(流水帳_dgv("天帳1", i).Value.ToString) = 0 And Val(流水帳_dgv("地帳1", i).Value.ToString) = 0) Or 流水帳_dgv("同帳", i).Value = True Then
                Else
                    核帳0_tb.Text = Val(核帳0_tb.Text) + Val(流水帳_dgv("天帳1", i).Value.ToString) + Val(流水帳_dgv("地帳1", i).Value.ToString) + Val(流水帳_dgv("個人所得1", i).Value.ToString)
                End If
            Next
            核帳0_tb.Text = Strings.Format(Val(核帳0_tb.Text), "#,##0")
        End If
        Set_LOG1() : MyModule1.進度條()
        Set_LOG2() : MyModule1.進度條() : Set_流水帳清單2() : MyModule1.進度條() : Set_流水帳清單3() : MyModule1.進度條()
        If 不用WEB = True Then : GA_ERP_SYS_Old.ToolStripProgressBar1.Value = 0 : Else : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : End If : 最終數 = 0
        If 異常表0 + 異常表1 + 異常表2 > 0 Then : 異常設定_bt.PerformClick() : End If
        MyModule1.計算顯示1()

        合帳_bt.PerformClick() : 選擇記憶 = 0
        If 合帳_dgv.Rows.Count > 0 Then : 手工帳資料自動判斷() : 客戶_tb.Text = 合帳_dgv("客戶", 0).Value.ToString : 紙帳計算() : 手帳計算() : End If
        自定義報表() : MsgBox("讀取完成!!!")
    End Sub
    Private Sub 自定義報表()
        自定帳務_dgv.DataSource = Nothing : ds20.Clear()
        自定帳務_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        自定帳務_dgv.ColumnHeadersHeight = 25 : 自定帳務_dgv.AllowUserToAddRows = False
        SQL_自定義報表()
        da.Fill(ds20) : 自定帳務_dgv.DataSource = ds20.Tables(0) : conn.Close()
        自定帳務_dgv.Columns("小計").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        自定帳務_dgv.Columns("小計").DefaultCellStyle.Format = "#,##0" : 自定義帳務總和_tb.Text = "0"
        For I As Integer = 0 To 自定帳務_dgv.Rows.Count - 1
            For II As Integer = 0 To 合帳_dgv.Rows.Count - 1
                If 自定帳務_dgv.Rows(I).Cells("客戶").Value.ToString() = 合帳_dgv.Rows(II).Cells("客戶").Value.ToString() Then
                    If 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "紙帳" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("紙帳").Value.ToString())
                    ElseIf 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "應付" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("應付").Value.ToString())
                    ElseIf 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "應收" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("應收").Value.ToString())
                    ElseIf 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "個人所得" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("個人所得").Value.ToString())
                    ElseIf 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "水差" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("水差").Value.ToString())
                    ElseIf 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "前期" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("前期").Value.ToString())
                    ElseIf 自定帳務_dgv.Rows(I).Cells("欄位").Value.ToString() = "交收合計" Then
                        自定帳務_dgv.Rows(I).Cells("小計").Value = CInt(合帳_dgv.Rows(II).Cells("交收合計").Value.ToString())
                    End If
                End If
            Next
            自定義帳務總和_tb.Text = Strings.Format(CInt(自定義帳務總和_tb.Text) + 自定帳務_dgv.Rows(I).Cells("小計").Value, "#,##0")
            If CInt(自定義帳務總和_tb.Text) < 0 Then : 自定義帳務總和_tb.ForeColor = Color.Red : Else : 自定義帳務總和_tb.ForeColor = Color.Blue : End If
        Next
    End Sub
    Private Sub 手帳計算()
        Dim HNK1, HNK2 As Integer
        For i As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
            If IsNumeric(紙帳非前期_dgv("交收金額", i).Value) = False Then : 紙帳非前期_dgv("交收金額", i).Value = 0 : End If
            HNK1 = HNK1 + 紙帳非前期_dgv("交收金額", i).Value
        Next

        For i As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
            HNK2 = HNK2 + Val(紅利整合_dgv("紅利", i).Value)
        Next
        合帳_dgv("前期", 選擇記憶).Value = 紙帳前期_dgv("交收金額", 0).Value
        合帳_dgv("紙帳", 選擇記憶).Value = HNK1
        合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value = Val(合帳_dgv("前期", 選擇記憶).Value) + Val(合帳_dgv("紙帳", 選擇記憶).Value) +
                                                          Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) + Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) +
                                                          Val(合帳_dgv.Rows(選擇記憶).Cells("個人所得1").Value) + Val(合帳_dgv.Rows(選擇記憶).Cells("水差1").Value)
        合帳_dgv.Rows(選擇記憶).Cells("交收合計1").Value = 合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value
        核帳_tb.Text = 紙帳前期_dgv("交收金額", 0).Value + HNK1 + HNK2 + Val(天帳2_tb.Text) + Val(地帳2_tb.Text) + Val(所得2_tb.Text) + Val(水差2_tb.Text)
        If Val(核帳_tb.Text) >= 0 Then : 核帳_tb.ForeColor = Color.Blue : Else : 核帳_tb.ForeColor = Color.Red : End If
        核帳_tb.Text = Strings.Format(Val(核帳_tb.Text), "#,##0")

        合帳1_tb.Text = "0"
        For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
            合帳1_tb.Text = Val(合帳1_tb.Text) + Val(合帳_dgv.Rows(I).Cells("交收合計1").Value)
        Next
        合帳1_tb.Text = Strings.Format(Val(合帳1_tb.Text), "#,##0")

        合帳_dgv.Rows(選擇記憶).Cells("前期").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("前期").Value), "#,##0")
        合帳_dgv.Rows(選擇記憶).Cells("紙帳").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("紙帳").Value), "#,##0")
        合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("交收合計").Value), "#,##0")
    End Sub
    Private Sub 紙帳計算()
        Set_上繳合帳() : Set_下收合帳() : Set_所得合帳() : Set_水差合帳() : Set_紅利整合() : Set_合帳() : Set_上期未收() : Set_手工紙帳()
    End Sub
    Private Sub 計算()
        資料數 = 流水帳_dgv.Rows.Count
        設定異常表2 = "帳戶 [客戶名稱] 名稱沒有設定!!" : 異常表2 = 0
        For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
            MyModule1.計算顯示0() : MyModule1.進度條()
            流水帳_dgv.Rows(i).Cells("按鈕").Value = False
            '------------取得客戶名稱---------------------------------------------------------------------------------------------------------------------------------------
            If Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短版" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短板" Then
                流水帳_dgv.Rows(i).Cells("客戶").Value = 流水帳_dgv.Rows(i).Cells("客戶s").Value.ToString
            End If
            '------------取得客戶帳號---------------------------------------------------------------------------------------------------------------------------------------
            流水帳_dgv.Rows(i).Cells("客帳").Value = StrReverse(流水帳_dgv.Rows(i).Cells("客戶").Value.ToString)
            Dim 帳號 As String = "" : Dim 單字 As String : Dim 開始數 As Integer
            If Strings.Left(流水帳_dgv.Rows(i).Cells("客帳").Value.ToString, 1) = ")" Then : 開始數 = 2 : Else : 開始數 = 3 : End If
            For H As Integer = 0 To 50
                單字 = Strings.Mid(流水帳_dgv.Rows(i).Cells("客帳").Value.ToString, 開始數, 1)
                If 單字 = " " Or 單字 = "(" Then : Exit For : Else : 帳號 &= 單字 : End If : 開始數 += 1
            Next
            流水帳_dgv.Rows(i).Cells("客帳").Value = StrReverse(帳號)
            '------------取得客戶名稱，寫入計算與同帳設定--------------------------------------------------------------------------------------------------------------------
            For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
                If 流水帳_dgv("客帳", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
                  (流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() Or
                   流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("備用網址", ii).Value.ToString.ToLower()) And
                   流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
                    流水帳_dgv("客名", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
                    流水帳_dgv("同帳指定", i).Value = 客戶下_dgv("基數", ii).Value : 流水帳_dgv("下收", i).Value = 客戶下_dgv("基數", ii).Value
                    流水帳_dgv("所得指定", i).Value = 客戶下_dgv("所得另算", ii).Value : 流水帳_dgv("水差指定", i).Value = 客戶下_dgv("水差另算", ii).Value
                    If 流水帳_dgv("水差指定", i).Value.ToString <> "" Then
                        流水帳_dgv("水差出帳", i).Value = 客戶下_dgv("客戶名稱", ii).Value.ToString
                    Else
                        流水帳_dgv("水差出帳", i).Value = ""
                    End If
                    流水帳_dgv("計算", i).Value = 客戶下_dgv("計算", ii).Value : 流水帳_dgv("同帳", i).Value = 客戶下_dgv("同帳", ii).Value
                    流水帳_dgv("所得", i).Value = 客戶下_dgv("所得", ii).Value : 流水帳_dgv("下層", i).Value = 客戶下_dgv("下層", ii).Value : Exit For
                Else
                    流水帳_dgv("客名", i).Value = "" : 流水帳_dgv("計算", i).Value = False : 流水帳_dgv("同帳", i).Value = False : 流水帳_dgv("所得", i).Value = False
                    流水帳_dgv("下層", i).Value = False
                End If
            Next
        Next
        For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
            For II As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(II).Cells("商品").Value.ToString.ToLower() And
                   流水帳_dgv.Rows(i).Cells("客名").Value.ToString.ToLower() = 流水帳_dgv.Rows(II).Cells("老闆").Value.ToString.ToLower() Then
                    流水帳_dgv.Rows(i).Cells("上層").Value = True
                End If
                If 流水帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(II).Cells("商品").Value.ToString.ToLower() And
                   流水帳_dgv.Rows(i).Cells("老闆").Value.ToString.ToLower() = 流水帳_dgv.Rows(II).Cells("客名").Value.ToString.ToLower() Then
                    流水帳_dgv.Rows(i).Cells("下層").Value = True
                End If
            Next
            '------------流水帳聯繫修正---------------------------------------------------------------------------------------------------------------------------------------
            If IsDBNull(流水帳_dgv("查看對帳s", i).Value) = True Or IsDBNull(流水帳_dgv("下注明細s", i).Value) = True Or IsDBNull(流水帳_dgv("下注明細", i).Value) = True Then

                PA38 = 流水帳_dgv("客名", i).Value : PA37 = 流水帳_dgv("index", i).Value : PA36 = 流水帳_dgv("開始日期", i).Value
                PA35 = 流水帳_dgv("結束日期", i).Value : PA34 = 流水帳_dgv("網址", i).Value : PA33 = 流水帳_dgv("帳戶", i).Value
                PA32 = 流水帳_dgv("所得指定", i).Value
                If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = True Then
                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
                ElseIf 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = True And 流水帳_dgv("所得", i).Value = True Then
                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
                Else : PA31 = "" : 流水帳_dgv("下注明細", i).Value = "" : End If
                If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = False Then
                    PA30 = "計算關閉" : Else : PA30 = "計算開啟"
                End If
                SQL_帳務明細查詢表客戶寫入()
                流水帳_dgv("下注明細s", i).Value = 流水帳_dgv("所得指定", i).Value.ToString
                流水帳_dgv("查看對帳s", i).Value = 流水帳_dgv("客名", i).Value.ToString

            ElseIf 流水帳_dgv("查看對帳s", i).Value = "查看" Or 流水帳_dgv("查看對帳s", i).Value = "" Or 流水帳_dgv("下注明細s", i).Value = "查看" Or
                       流水帳_dgv("下注明細s", i).Value = "" Or
                       流水帳_dgv("下注明細s", i).Value.ToString.ToLower() <> 流水帳_dgv("所得指定", i).Value.ToString.ToLower() Or
                       流水帳_dgv("查看對帳s", i).Value.ToString.ToLower() <> 流水帳_dgv("客名", i).Value.ToString.ToLower() Or
                       流水帳_dgv("下注明細", i).Value.ToString.ToLower() <> 流水帳_dgv("老闆", i).Value.ToString.ToLower() Then

                PA38 = 流水帳_dgv("客名", i).Value : PA37 = 流水帳_dgv("index", i).Value : PA36 = 流水帳_dgv("開始日期", i).Value
                PA35 = 流水帳_dgv("結束日期", i).Value : PA34 = 流水帳_dgv("網址", i).Value : PA33 = 流水帳_dgv("帳戶", i).Value
                PA32 = 流水帳_dgv("所得指定", i).Value
                If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = True Then
                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
                ElseIf 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = True And 流水帳_dgv("所得", i).Value = True Then
                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
                ElseIf 流水帳_dgv("計算", i).Value = True And 流水帳_dgv("同帳", i).Value = True And 流水帳_dgv("所得", i).Value = True Then
                    PA31 = 流水帳_dgv("老闆", i).Value : 流水帳_dgv("下注明細", i).Value = 流水帳_dgv("老闆", i).Value.ToString
                Else : PA31 = "" : 流水帳_dgv("下注明細", i).Value = "" : End If
                If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = False Then
                    PA30 = "計算關閉" : Else : PA30 = "計算開啟"
                End If

                If 流水帳_dgv("查看對帳s", i).Value.ToString = 流水帳_dgv("客名", i).Value.ToString And
                   流水帳_dgv("下注明細s", i).Value.ToString = 流水帳_dgv("所得指定", i).Value.ToString Then : Else
                    SQL_帳務明細查詢表客戶寫入()
                End If

                流水帳_dgv("下注明細s", i).Value = 流水帳_dgv("所得指定", i).Value.ToString : 流水帳_dgv("查看對帳s", i).Value = 流水帳_dgv("客名", i).Value.ToString
            End If
        Next
        For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
            If 流水帳_dgv("系統", i).Value = "長板" And Strings.Left(流水帳_dgv("客帳", i).Value.ToString, 2) = "移轉" Then
                流水帳_dgv("會員", i).Value = 流水帳_dgv("自已總輸贏", i).Value.ToString : 流水帳_dgv("代理", i).Value = 流水帳_dgv("自已總輸贏", i).Value.ToString
                流水帳_dgv("總代理", i).Value = 流水帳_dgv("自已總輸贏", i).Value.ToString : 流水帳_dgv("股東", i).Value = 流水帳_dgv("自已總輸贏", i).Value.ToString
                流水帳_dgv("大股東", i).Value = 流水帳_dgv("自已總輸贏", i).Value.ToString : 流水帳_dgv("總監", i).Value = 流水帳_dgv("自已總輸贏", i).Value.ToString
            End If
        Next
        For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
            MyModule1.計算顯示0() : MyModule1.進度條()
            '------------短版轉換---------------------------------------------------------------------------------------------------------------------------------------
            If Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短版" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "短板" Then
                If CC(43) = False Then
                    If 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : Else
                        流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString
                        流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString : End If
                Else
                    If 流水帳_dgv.Rows(i).Cells("系統").Value.ToString = "短版" And 流水帳_dgv.Rows(i).Cells("總監小計s").Value.ToString <> "" And
                       流水帳_dgv.Rows(i).Cells("大股東小計s").Value.ToString <> "" And 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString = "" Then
                        流水帳_dgv.Rows(i).Cells("個人所得s").Value = CInt(流水帳_dgv.Rows(i).Cells("大股東小計s").Value.ToString) - CInt(流水帳_dgv.Rows(i).Cells("總監小計s").Value.ToString)
                        流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString
                        流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString
                    Else
                        If 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : Else
                            流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString
                            流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("個人所得s").Value.ToString : End If
                    End If
                End If
                流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水差s").Value.ToString
                流水帳_dgv.Rows(i).Cells("水差2").Value = 流水帳_dgv.Rows(i).Cells("水差s").Value.ToString

                If 流水帳_dgv("同帳", i).Value = False Then
                    If 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                    End If
                    If 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                    End If
                ElseIf 流水帳_dgv("同帳", i).Value = True Then
                    If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                        流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                    End If
                    If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總監小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("股東小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("代理小計s").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                        流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("客戶小計s").Value
                    End If
                End If
                '------------長版轉換---------------------------------------------------------------------------------------------------------------------------------------
            ElseIf Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長板" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長版" Then
                流水帳_dgv.Rows(i).Cells("水差1").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString
                流水帳_dgv.Rows(i).Cells("水差2").Value = 流水帳_dgv.Rows(i).Cells("水倍差").Value.ToString
                If CC(43) = False Then : Else
                    If 流水帳_dgv.Rows(i).Cells("系統").Value.ToString = "長板" And 流水帳_dgv.Rows(i).Cells("大總監").Value.ToString = "" Then : Else
                        流水帳_dgv.Rows(i).Cells("上繳金額").Value = 流水帳_dgv.Rows(i).Cells("大總監").Value.ToString
                    End If
                End If
                If CC(43) = False Then
                    流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                    流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                Else
                    If 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString = "" Then : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0"
                    Else
                        If 流水帳_dgv.Rows(i).Cells("系統").Value.ToString = "長板" And 流水帳_dgv.Rows(i).Cells("大總監").Value.ToString = "" Then
                            流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                            流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                        Else
                            流水帳_dgv.Rows(i).Cells("自已總輸贏").Value = CInt(流水帳_dgv.Rows(i).Cells("總監").Value.ToString) -
                                                                           CInt(流水帳_dgv.Rows(i).Cells("上繳金額").Value.ToString)
                            流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                            流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("自已總輸贏").Value.ToString
                        End If
                    End If
                End If
                If 流水帳_dgv("同帳", i).Value = False Then
                    If 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "上缴金额" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("股東").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("代理").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("下收").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("會員").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("會員").Value
                    End If
                    If 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "上缴金额" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("股東").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("代理").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("上繳").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("會員").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("會員").Value
                    End If
                ElseIf 流水帳_dgv("同帳", i).Value = True Then
                    If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "上缴金额" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("股東").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("代理").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("地帳1").Value = 流水帳_dgv.Rows(i).Cells("會員").Value : 流水帳_dgv.Rows(i).Cells("地帳2").Value = 流水帳_dgv.Rows(i).Cells("會員").Value
                    End If
                    If 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "上缴金额" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("上繳金額").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總監" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總監").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總監").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "大股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("大股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "股東" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("股東").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("股東").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "總代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("總代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "代理" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("代理").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("代理").Value
                    ElseIf 流水帳_dgv.Rows(i).Cells("同帳指定").Value.ToString = "會員" Then
                        流水帳_dgv.Rows(i).Cells("天帳1").Value = 流水帳_dgv.Rows(i).Cells("會員").Value : 流水帳_dgv.Rows(i).Cells("天帳2").Value = 流水帳_dgv.Rows(i).Cells("會員").Value
                    End If
                End If
            End If

            If Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) = 0 And Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) <> 0 Then
                流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("水差1").Value.ToString
            End If
            If Val(流水帳_dgv.Rows(i).Cells("個人所得2").Value.ToString) = 0 And Val(流水帳_dgv.Rows(i).Cells("水差2").Value.ToString) <> 0 Then
                流水帳_dgv.Rows(i).Cells("個人所得2").Value = 流水帳_dgv.Rows(i).Cells("水差2").Value.ToString
            End If
            '------------地帳反轉---------------------------------------------------------------------------------------------------------------------------------------
            流水帳_dgv.Rows(i).Cells("地帳1").Value = Val(流水帳_dgv.Rows(i).Cells("地帳1").Value) * -1
            流水帳_dgv.Rows(i).Cells("地帳2").Value = Val(流水帳_dgv.Rows(i).Cells("地帳2").Value) * -1
            '------------不計算歸零---------------------------------------------------------------------------------------------------------------------------------------
            If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False Then
                流水帳_dgv.Rows(i).Cells("天帳").Value = "0" : 流水帳_dgv.Rows(i).Cells("地帳").Value = "0" : 流水帳_dgv.Rows(i).Cells("水差").Value = "0"
                流水帳_dgv.Rows(i).Cells("核帳").Value = "0" : 流水帳_dgv.Rows(i).Cells("天帳1").Value = "0" : 流水帳_dgv.Rows(i).Cells("地帳1").Value = "0"
                流水帳_dgv.Rows(i).Cells("天帳2").Value = "0" : 流水帳_dgv.Rows(i).Cells("地帳2").Value = "0"
            End If
            If 流水帳_dgv("所得", i).Value = False Then
                流水帳_dgv.Rows(i).Cells("所得另算").Value = "0" : 流水帳_dgv.Rows(i).Cells("個人所得1").Value = "0" : 流水帳_dgv.Rows(i).Cells("個人所得2").Value = "0"
                流水帳_dgv.Rows(i).Cells("個人所得").Value = "0"
            End If
            If 流水帳_dgv("上層", i).Value = True Then     '----上層資料不包含地帳2----
                流水帳_dgv.Rows(i).Cells("地帳2").Value = "0"
            End If
            If 流水帳_dgv("下層", i).Value = True Then     '----下層資料不包含天帳2----
                流水帳_dgv.Rows(i).Cells("天帳2").Value = "0"
            End If
            流水帳_dgv.Rows(i).Cells("個人所得2").Value = "0" : 流水帳_dgv.Rows(i).Cells("水差2").Value = "0"
            '------------天地合帳---------------------------------------------------------------------------------------------------------------------------------------

            If 流水帳_dgv.Rows(i).Cells("老闆").Value.ToString <> "" Then : NN1 = Val(流水帳_dgv.Rows(i).Cells("天帳1").Value) : Else : NN1 = 0 : End If
            If 流水帳_dgv.Rows(i).Cells("客名").Value.ToString <> "" Then : NN2 = Val(流水帳_dgv.Rows(i).Cells("地帳1").Value) : Else : NN2 = 0 : End If
            If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString <> "" Then : NN3 = Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value) : Else : NN3 = 0 : End If
            If 流水帳_dgv.Rows(i).Cells("水差指定").Value.ToString <> "" Then : NN4 = Val(流水帳_dgv.Rows(i).Cells("水差1").Value) : Else : NN4 = 0 : End If
            流水帳_dgv.Rows(i).Cells("核帳").Value = NN1 + NN2 + NN3 - NN4
            '------------只有所得計算---------------------------------------------------------------------------------------------------------------------------------------
            If 流水帳_dgv("計算", i).Value = False And 流水帳_dgv("同帳", i).Value = False And 流水帳_dgv("所得", i).Value = True Then
                流水帳_dgv.Rows(i).Cells("核帳").Value = "0"
            ElseIf 流水帳_dgv("同帳", i).Value = True Then
                流水帳_dgv.Rows(i).Cells("核帳").Value = "0"
            End If
            '------------101版轉移帳取所得---------------------------------------------------------------------------------------------------------------------------------------
            If Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長板" Or Strings.Left(流水帳_dgv.Rows(i).Cells("資料").Value, 2) = "長版" Then
                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 = "" 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 = "" Then : 流水帳_dgv.Rows(i).Cells("上繳金額").Value = "0" : End If
                If CInt(流水帳_dgv.Rows(i).Cells("會員").Value.ToString) = 0 And CInt(流水帳_dgv.Rows(i).Cells("代理").Value.ToString) = 0 And
                   CInt(流水帳_dgv.Rows(i).Cells("總代理").Value.ToString) = 0 And CInt(流水帳_dgv.Rows(i).Cells("股東").Value.ToString) = 0 And
                   CInt(流水帳_dgv.Rows(i).Cells("大股東").Value.ToString) = 0 And CInt(流水帳_dgv.Rows(i).Cells("總監").Value.ToString) = 0 And
                   CInt(流水帳_dgv.Rows(i).Cells("上繳金額").Value.ToString) = 0 Then
                    流水帳_dgv.Rows(i).Cells("個人所得1").Value = 流水帳_dgv.Rows(i).Cells("佔成輸贏").Value.ToString
                End If
            End If

            流水帳_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("天帳1").Value), "#,##0")
            流水帳_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("地帳1").Value), "#,##0")
            流水帳_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value), "#,##0")
            流水帳_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("水差1").Value), "#,##0")
            流水帳_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(流水帳_dgv.Rows(i).Cells("核帳").Value), "#,##0")
            流水帳_dgv.Rows(i).Cells("所得另算").Value = 流水帳_dgv.Rows(i).Cells("個人所得1").Value

            If 流水帳_dgv.Rows(i).Cells("計算").Value = True Then
                If 流水帳_dgv.Rows(i).Cells("客名").Value.ToString = "" And 流水帳_dgv.Rows(i).Cells("上層").Value = False Then
                    設定異常表2 = 設定異常表2 & vbCrLf &
                                  "商品 : [" & 流水帳_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString & "] -- 客戶帳號 : [" &
                                  流水帳_dgv.Rows(i).Cells("客帳").Value.ToString & "]，沒有設定 [客戶名稱]。"
                    異常表2 += 1
                End If
            End If

            For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("老闆").Value.ToString.ToLower() = 上繳名_dgv.Rows(II).Cells("上繳").Value.ToString.ToLower() Then
                    上繳名_dgv.Rows(II).Cells("交割金額.").Value = Val(上繳名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("天帳2").Value.ToString)
                    上繳名_dgv.Rows(II).Cells("交割金額").Value = Val(上繳名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("天帳2").Value.ToString)
                    上繳名_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(上繳名_dgv.Rows(II).Cells("交割金額.").Value), "#,##0")
                End If
            Next
            For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("客名").Value.ToString.ToLower() = 下收名_dgv.Rows(II).Cells("下收").Value.ToString.ToLower() Then
                    下收名_dgv.Rows(II).Cells("交割金額.").Value = Val(下收名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("地帳2").Value.ToString)
                    下收名_dgv.Rows(II).Cells("交割金額").Value = Val(下收名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("地帳2").Value.ToString)
                    下收名_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(下收名_dgv.Rows(II).Cells("交割金額.").Value), "#,##0")
                End If
            Next
            For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString.ToLower() = 所得名_dgv.Rows(II).Cells("所得").Value.ToString.ToLower() Then
                    所得名_dgv.Rows(II).Cells("交割金額.").Value = Val(所得名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString)
                    所得名_dgv.Rows(II).Cells("交割金額").Value = Val(所得名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString)
                End If
                所得名_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(所得名_dgv.Rows(II).Cells("交割金額").Value), "#,##0")
            Next

            For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("下注明細").Value.ToString.ToLower() = 所得名1_dgv.Rows(II).Cells("所得").Value.ToString.ToLower() Then
                    所得名1_dgv.Rows(II).Cells("交割金額.").Value = Val(所得名1_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) * -1
                    所得名1_dgv.Rows(II).Cells("交割金額").Value = Val(所得名1_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) * -1
                    所得名1_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(所得名1_dgv.Rows(II).Cells("交割金額").Value), "#,##0")
                End If
            Next
            For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("水差指定").Value.ToString.ToLower() = 水差名_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() Then
                    水差名_dgv.Rows(II).Cells("交割金額.").Value = Val(水差名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString)
                    水差名_dgv.Rows(II).Cells("交割金額").Value = Val(水差名_dgv.Rows(II).Cells("交割金額").Value) + Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString)
                    水差名_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(水差名_dgv.Rows(II).Cells("交割金額.").Value), "#,##0")
                End If
            Next
            For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString.ToLower() = 水差名1_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() And
                   流水帳_dgv.Rows(i).Cells("水差指定").Value.ToString <> "" Then
                    水差名1_dgv.Rows(II).Cells("交割金額.").Value = Val(水差名1_dgv.Rows(II).Cells("交割金額").Value) + (Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) * -1)
                    水差名1_dgv.Rows(II).Cells("交割金額").Value = Val(水差名1_dgv.Rows(II).Cells("交割金額").Value) + (Val(流水帳_dgv.Rows(i).Cells("水差1").Value.ToString) * -1)
                    水差名1_dgv.Rows(II).Cells("交割金額.").Value = Strings.Format(Val(水差名1_dgv.Rows(II).Cells("交割金額.").Value), "#,##0")
                End If
            Next
            For II As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("所得指定").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
                    紅利總表_dgv.Rows(II).Cells("總所得").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString)
                End If
            Next
            For II As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
                If 流水帳_dgv.Rows(i).Cells("下注明細").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
                    紅利總表_dgv.Rows(II).Cells("總所得").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value + Val(流水帳_dgv.Rows(i).Cells("個人所得1").Value.ToString) * -1
                End If
            Next
        Next
        For i As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
            For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                If 紅利總表_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 水差名1_dgv.Rows(II).Cells("水差").Value.ToString.ToLower() Then
                    紅利總表_dgv.Rows(i).Cells("總所得").Value = 紅利總表_dgv.Rows(i).Cells("總所得").Value + Val(水差名1_dgv.Rows(II).Cells("交割金額").Value.ToString)
                End If
            Next
        Next
        For i As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
            For II As Integer = 0 To 紅利總表_dgv.Rows.Count - 1
                If 紅利分表_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利總表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() Then
                    紅利分表_dgv.Rows(i).Cells("總股份").Value = 紅利總表_dgv.Rows(II).Cells("總股").Value
                    紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利總表_dgv.Rows(II).Cells("總所得").Value
                    If 紅利分表_dgv.Rows(i).Cells("總股份").Value = 0 Then
                        紅利分表_dgv.Rows(i).Cells("紅利").Value = 0
                    Else
                        紅利分表_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(i).Cells("紅利").Value * (紅利分表_dgv.Rows(i).Cells("股份").Value /
                                                                   紅利分表_dgv.Rows(i).Cells("總股份").Value)
                    End If
                End If
            Next
         Next
    End Sub
    '---------------合帳明細------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Set_合帳()
        If Val(天帳1_tb.Text) >= 0 Then : 天帳1_tb.ForeColor = Color.Blue : Else : 天帳1_tb.ForeColor = Color.Red : End If
        If Val(地帳1_tb.Text) >= 0 Then : 地帳1_tb.ForeColor = Color.Blue : Else : 地帳1_tb.ForeColor = Color.Red : End If
        If Val(所得1_tb.Text) >= 0 Then : 所得1_tb.ForeColor = Color.Blue : Else : 所得1_tb.ForeColor = Color.Red : End If
        If Val(水差1_tb.Text) >= 0 Then : 水差1_tb.ForeColor = Color.Blue : Else : 水差1_tb.ForeColor = Color.Red : End If
        天帳1_tb.Text = Strings.Format(Val(天帳1_tb.Text), "#,##0") : 地帳1_tb.Text = Strings.Format(Val(地帳1_tb.Text), "#,##0")
        所得1_tb.Text = Strings.Format(Val(所得1_tb.Text), "#,##0") : 水差1_tb.Text = Strings.Format(Val(水差1_tb.Text), "#,##0")
    End Sub
    Private Sub Set_手工紙帳()
        Dim ds3 As New DataSet
        紙帳非前期_dgv.DataSource = Nothing : ds3.Clear()
        紙帳非前期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紙帳非前期_dgv.ColumnHeadersHeight = 25 : 紙帳非前期_dgv.AllowUserToAddRows = False
        SQL_紙帳流水查詢2()
        da.Fill(ds3) : 紙帳非前期_dgv.DataSource = ds3.Tables(0) : conn.Close()
        紙帳非前期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        紙帳非前期_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紙帳非前期_dgv.Columns(0).FillWeight = 100 : 紙帳非前期_dgv.Columns(0).ReadOnly = True : 紙帳非前期_dgv.Columns(1).Visible = False
        紙帳非前期_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紙帳非前期_dgv.Columns("交收金額").DefaultCellStyle.Format = "#,##0"
        紙帳非前期_dgv.Columns("交收金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紙帳非前期_dgv.Columns("交收金額.").DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
            紙帳非前期_dgv.Rows(i).Cells("交收金額.").Value = Strings.Format(紙帳非前期_dgv.Rows(i).Cells("交收金額").Value, "#,##0")
        Next
    End Sub
    Private Sub Set_上期未收()
        Dim ds3 As New DataSet
        紙帳前期_dgv.DataSource = Nothing : ds3.Clear()
        紙帳前期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紙帳前期_dgv.ColumnHeadersHeight = 25 : 紙帳前期_dgv.AllowUserToAddRows = False
        SQL_紙帳流水查詢1()
        da.Fill(ds3) : 紙帳前期_dgv.DataSource = ds3.Tables(0) : conn.Close()
        紙帳前期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        紙帳前期_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紙帳前期_dgv.Columns(0).FillWeight = 100 : 紙帳前期_dgv.Columns(0).ReadOnly = True : 紙帳前期_dgv.Columns(1).Visible = False
        紙帳前期_dgv.Columns("交收金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紙帳前期_dgv.Columns("交收金額").DefaultCellStyle.Format = "#,##0"
        紙帳前期_dgv.Columns("交收金額.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紙帳前期_dgv.Columns("交收金額.").DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 紙帳前期_dgv.Rows.Count - 1
            紙帳前期_dgv.Rows(i).Cells("交收金額.").Value = Strings.Format(紙帳前期_dgv.Rows(i).Cells("交收金額").Value, "#,##0")
        Next
    End Sub
    Private Sub Set_上繳合帳()
        Dim ds3 As New DataSet
        上繳合帳_dgv.DataSource = Nothing : ds3.Clear()
        上繳合帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        上繳合帳_dgv.ColumnHeadersHeight = 25 : 上繳合帳_dgv.AllowUserToAddRows = False
        If 是否明細 = False Then : SQL_彙總上繳1() : Else : SQL_彙總上繳2() : End If
        da.Fill(ds3) : 上繳合帳_dgv.DataSource = ds3.Tables(0) : conn.Close()
        上繳合帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        上繳合帳_dgv.Columns(0).FillWeight = 40 : 上繳合帳_dgv.Columns("應付").Visible = False
        上繳合帳_dgv.Columns("應付.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        上繳合帳_dgv.Columns("應付").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        天帳1_tb.Text = "0" : 天帳2_tb.Text = "0"
        For i As Integer = 0 To 上繳合帳_dgv.Rows.Count - 1
            上繳合帳_dgv.Rows(i).Cells("項次").Value = i + 1 : 上繳合帳_dgv.Rows(i).Cells("應付").Value = "0" : 上繳合帳_dgv.Rows(i).Cells("應付.").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 是否明細 = False Then
                    If 上繳合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("老闆").Value.ToString.ToLower() Then
                        If 合帳_dgv("付反", 選擇記憶).Value = False Then
                            上繳合帳_dgv.Rows(i).Cells("應付").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString)
                            上繳合帳_dgv.Rows(i).Cells("應付.").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString)
                        Else
                            上繳合帳_dgv.Rows(i).Cells("應付").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString) * -1
                            上繳合帳_dgv.Rows(i).Cells("應付.").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString) * -1
                        End If
                    End If
                Else
                    If 上繳合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                       上繳合帳_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("老闆").Value.ToString.ToLower() Then
                        If 合帳_dgv("付反", 選擇記憶).Value = False Then
                            上繳合帳_dgv.Rows(i).Cells("應付").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString)
                            上繳合帳_dgv.Rows(i).Cells("應付.").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString)
                        Else
                            上繳合帳_dgv.Rows(i).Cells("應付").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString) * -1
                            上繳合帳_dgv.Rows(i).Cells("應付.").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳2").Value.ToString) * -1
                        End If
                    End If
                End If
            Next
            If 上繳反轉 = True Then
                上繳合帳_dgv.Rows(i).Cells("應付").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付").Value) * -1
                上繳合帳_dgv.Rows(i).Cells("應付.").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value) * -1
            Else
                上繳合帳_dgv.Rows(i).Cells("應付").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付").Value)
                上繳合帳_dgv.Rows(i).Cells("應付.").Value = Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value)
            End If
            天帳1_tb.Text = Val(天帳1_tb.Text) + Val(上繳合帳_dgv.Rows(i).Cells("應付").Value)
            天帳2_tb.Text = Val(天帳2_tb.Text) + Val(上繳合帳_dgv.Rows(i).Cells("應付").Value)
            上繳合帳_dgv.Rows(i).Cells("應付.").Value = Strings.Format(Val(上繳合帳_dgv.Rows(i).Cells("應付.").Value), "#,##0")
        Next
    End Sub
    Private Sub Set_下收合帳()
        Dim ds5 As New DataSet : 下收合帳_dgv.DataSource = Nothing : ds5.Clear()
        下收合帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        下收合帳_dgv.ColumnHeadersHeight = 25
        下收合帳_dgv.AllowUserToAddRows = False

        If 是否子明細 = False Then
            If 是否明細 = False Then : SQL_彙總下收1() : Else : SQL_彙總下收2() : End If
        Else : SQL_彙總下收3() : End If
        da.Fill(ds5) : 下收合帳_dgv.DataSource = ds5.Tables(0) : conn.Close()

        下收合帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        下收合帳_dgv.Columns(0).FillWeight = 40 : 下收合帳_dgv.Columns("應收").Visible = False
        If 下收合帳_dgv.Columns.Count = 4 Then
        ElseIf 下收合帳_dgv.Columns.Count = 5 Then : 下收合帳_dgv.Columns("帳號").Visible = True
        ElseIf 下收合帳_dgv.Columns.Count = 6 Then : 下收合帳_dgv.Columns("帳號").Visible = False : End If

        下收合帳_dgv.Columns("應收.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        下收合帳_dgv.Columns("應收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        地帳1_tb.Text = "0" : 地帳2_tb.Text = "0"
        For i As Integer = 0 To 下收合帳_dgv.Rows.Count - 1
            下收合帳_dgv.Rows(i).Cells("項次").Value = i + 1 : 下收合帳_dgv.Rows(i).Cells("應收").Value = "0" : 下收合帳_dgv.Rows(i).Cells("應收.").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 是否子明細 = False Then
                    If 是否明細 = False Then
                        If 下收合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("客名").Value.ToString.ToLower() Then
                            If 合帳_dgv("收反", 選擇記憶).Value = False Then
                                下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString)
                                下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString)
                            Else
                                下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString) * -1
                                下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString) * -1
                            End If
                        End If
                    Else
                        If 下收合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           下收合帳_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("客名").Value.ToString.ToLower() Then
                            If 合帳_dgv("收反", 選擇記憶).Value = False Then
                                下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString)
                                下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString)
                            Else
                                下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString) * -1
                                下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString) * -1
                            End If
                        End If
                    End If
                Else
                    If 下收合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                       下收合帳_dgv.Rows(i).Cells("客戶").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString.ToLower() And
                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("客名").Value.ToString.ToLower() Then
                        If 合帳_dgv("收反", 選擇記憶).Value = False Then
                            下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString)
                            下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString)
                        Else
                            下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString) * -1
                            下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳2").Value.ToString) * -1
                        End If
                    End If
                End If
            Next
            下收合帳_dgv.Rows(i).Cells("應收").Value = Val(下收合帳_dgv.Rows(i).Cells("應收").Value) * -1
            下收合帳_dgv.Rows(i).Cells("應收.").Value = Val(下收合帳_dgv.Rows(i).Cells("應收.").Value) * -1
            地帳1_tb.Text = Val(地帳1_tb.Text) + Val(下收合帳_dgv.Rows(i).Cells("應收").Value)
            地帳2_tb.Text = Val(地帳2_tb.Text) + Val(下收合帳_dgv.Rows(i).Cells("應收").Value)
            下收合帳_dgv.Rows(i).Cells("應收.").Value = Strings.Format(Val(下收合帳_dgv.Rows(i).Cells("應收.").Value), "#,##0")
        Next
    End Sub
    Private Sub Set_所得合帳()
        Dim ds9 As New DataSet : 所得合帳_dgv.DataSource = Nothing : ds9.Clear()
        所得合帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        所得合帳_dgv.ColumnHeadersHeight = 25
        所得合帳_dgv.AllowUserToAddRows = False

        If 是否子明細 = False Then
            If 是否明細 = False Then : SQL_彙總所得1() : Else : SQL_彙總所得2() : End If
        Else : SQL_彙總所得3() : End If
        da.Fill(ds9) : 所得合帳_dgv.DataSource = ds9.Tables(0) : conn.Close()

        所得合帳_dgv.Columns(0).FillWeight = 40 : 所得合帳_dgv.Columns("所得").Visible = False
        If 所得合帳_dgv.Columns.Count = 4 Then
        ElseIf 所得合帳_dgv.Columns.Count = 5 Then : 所得合帳_dgv.Columns("帳號").Visible = True
        ElseIf 所得合帳_dgv.Columns.Count = 6 Then : 所得合帳_dgv.Columns("帳號").Visible = False : End If

        所得合帳_dgv.Columns("所得.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        所得合帳_dgv.Columns("所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        所得1_tb.Text = "0" : 所得2_tb.Text = "0"
        For i As Integer = 0 To 所得合帳_dgv.Rows.Count - 1
            所得合帳_dgv.Rows(i).Cells("項次").Value = i + 1 : 所得合帳_dgv.Rows(i).Cells("所得").Value = "0" : 所得合帳_dgv.Rows(i).Cells("所得.").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 是否子明細 = False Then
                    If 是否明細 = False Then
                        If 所得合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                              客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() Then
                            If 合帳_dgv("所反", 選擇記憶).Value = False Then
                                所得合帳_dgv.Rows(i).Cells("所得").Value = Val(所得合帳_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                                所得合帳_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                            Else
                                所得合帳_dgv.Rows(i).Cells("所得").Value = Val(所得合帳_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                                所得合帳_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                            End If
                        End If
                    Else
                        If 所得合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                               所得合帳_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                               客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() Then
                            If 合帳_dgv("所反", 選擇記憶).Value = False Then
                                所得合帳_dgv.Rows(i).Cells("所得").Value = Val(所得合帳_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                                所得合帳_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                            Else
                                所得合帳_dgv.Rows(i).Cells("所得").Value = Val(所得合帳_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                                所得合帳_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                            End If
                        End If
                    End If
                Else
                    If 所得合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           所得合帳_dgv.Rows(i).Cells("客戶").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() Then
                        If 合帳_dgv("所反", 選擇記憶).Value = False Then
                            所得合帳_dgv.Rows(i).Cells("所得").Value = Val(所得合帳_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                            所得合帳_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                        Else
                            所得合帳_dgv.Rows(i).Cells("所得").Value = Val(所得合帳_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                            所得合帳_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                        End If
                    End If
                End If
            Next
            所得1_tb.Text = Val(所得1_tb.Text) + Val(所得合帳_dgv.Rows(i).Cells("所得").Value)
            所得2_tb.Text = Val(所得2_tb.Text) + Val(所得合帳_dgv.Rows(i).Cells("所得").Value)
            所得合帳_dgv.Rows(i).Cells("所得.").Value = Strings.Format(Val(所得合帳_dgv.Rows(i).Cells("所得.").Value), "#,##0")
        Next
        Set_所得合帳只算所得()
    End Sub
    Private Sub Set_所得合帳只算所得()
        Dim ds9 As New DataSet : 所得合帳1_dgv.DataSource = Nothing : ds9.Clear()
        所得合帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        所得合帳1_dgv.ColumnHeadersHeight = 25 : 所得合帳1_dgv.AllowUserToAddRows = False

        SQL_彙總所得4()
        da.Fill(ds9) : 所得合帳1_dgv.DataSource = ds9.Tables(0) : conn.Close()

        所得合帳1_dgv.Columns(0).FillWeight = 40 : 所得合帳1_dgv.Columns("所得").Visible = False
        If 是否子明細 = False Then : 所得合帳1_dgv.Columns("帳號").Visible = True : Else : 所得合帳1_dgv.Columns("帳號").Visible = False : End If
        所得合帳1_dgv.Columns("所得.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        所得合帳1_dgv.Columns("所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To 所得合帳1_dgv.Rows.Count - 1
            所得合帳1_dgv.Rows(i).Cells("項次").Value = i + 1 : 所得合帳1_dgv.Rows(i).Cells("所得").Value = "0" : 所得合帳1_dgv.Rows(i).Cells("所得.").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 是否子明細 = False Then
                    If 是否明細 = False Then
                        If 所得合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("下注明細").Value.ToString.ToLower() Then
                            If 合帳_dgv("所反", 選擇記憶).Value = False Then
                                所得合帳1_dgv.Rows(i).Cells("所得").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                                所得合帳1_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                            Else
                                所得合帳1_dgv.Rows(i).Cells("所得").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                                所得合帳1_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                            End If
                        End If
                    Else
                        If 所得合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           所得合帳1_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("下注明細").Value.ToString.ToLower() Then
                            If 合帳_dgv("所反", 選擇記憶).Value = False Then
                                所得合帳1_dgv.Rows(i).Cells("所得").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                                所得合帳1_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                            Else
                                所得合帳1_dgv.Rows(i).Cells("所得").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                                所得合帳1_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                            End If
                        End If
                    End If
                Else
                    If 所得合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           所得合帳1_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("下注明細").Value.ToString.ToLower() Then
                        If 合帳_dgv("所反", 選擇記憶).Value = False Then
                            所得合帳1_dgv.Rows(i).Cells("所得").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                            所得合帳1_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString) * -1
                        Else
                            所得合帳1_dgv.Rows(i).Cells("所得").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                            所得合帳1_dgv.Rows(i).Cells("所得.").Value = Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value.ToString)
                        End If
                    End If
                End If
            Next
            所得1_tb.Text = Val(所得1_tb.Text) + Val(所得合帳1_dgv.Rows(i).Cells("所得").Value)
            所得2_tb.Text = Val(所得2_tb.Text) + Val(所得合帳1_dgv.Rows(i).Cells("所得").Value)
            所得合帳1_dgv.Rows(i).Cells("所得.").Value = Strings.Format(Val(所得合帳1_dgv.Rows(i).Cells("所得.").Value), "#,##0")
        Next
        Set_所得合帳總和()
    End Sub
    Private Sub Set_所得合帳總和()
        Dim MN1 As Integer : Dim 商品(300), 帳號(300), 客戶(300), 所得(300) As String : NN6 = 0
        For I As Integer = 0 To 所得合帳_dgv.Rows.Count - 1
            If Val(所得合帳_dgv.Rows(I).Cells("所得").Value.ToString) <> 0 Then
                商品(MN1) = 所得合帳_dgv.Rows(I).Cells("商品").Value.ToString : 所得(MN1) = 所得合帳_dgv.Rows(I).Cells("所得").Value.ToString
                If 所得合帳_dgv.Columns.Count = 4 Then : 帳號(MN1) = "" : Else : 帳號(MN1) = 所得合帳_dgv.Rows(I).Cells("帳號").Value.ToString : End If
                If 所得合帳_dgv.Columns.Count = 4 Then : 客戶(MN1) = ""
                ElseIf 所得合帳_dgv.Columns.Count = 5 Then : 客戶(MN1) = 所得合帳_dgv.Rows(I).Cells("帳號").Value
                ElseIf 所得合帳_dgv.Columns.Count = 6 Then : 客戶(MN1) = 所得合帳_dgv.Rows(I).Cells("客戶").Value : End If
                MN1 += 1 : NN6 += 1
            End If
        Next
        For I As Integer = 0 To 所得合帳1_dgv.Rows.Count - 1
            If Val(所得合帳1_dgv.Rows(I).Cells("所得").Value.ToString) <> 0 Then
                商品(MN1) = 所得合帳1_dgv.Rows(I).Cells("商品").Value.ToString : 帳號(MN1) = 所得合帳1_dgv.Rows(I).Cells("帳號").Value.ToString
                客戶(MN1) = 所得合帳1_dgv.Rows(I).Cells("客戶").Value.ToString : 所得(MN1) = 所得合帳1_dgv.Rows(I).Cells("所得").Value.ToString
                If 所得合帳1_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : MN1 += 1 : NN6 += 1
            End If
        Next

        Dim ds9 As New DataSet : 所得合帳2_dgv.DataSource = Nothing : ds9.Clear()
        所得合帳2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        所得合帳2_dgv.ColumnHeadersHeight = 25
        所得合帳2_dgv.AllowUserToAddRows = False

        SQL_彙總所得5()
        da.Fill(ds9) : 所得合帳2_dgv.DataSource = ds9.Tables(0) : conn.Close()

        所得合帳2_dgv.Columns(0).FillWeight = 40 : 所得合帳2_dgv.Columns("所得").Visible = False
        If 是否明細 = False Then
            所得合帳2_dgv.Columns("帳號").Visible = False : 所得合帳2_dgv.Columns("客戶").Visible = False
        Else
            If 是否子明細 = False Then
                所得合帳2_dgv.Columns("帳號").Visible = True : 所得合帳2_dgv.Columns("客戶").Visible = False
            Else
                所得合帳2_dgv.Columns("帳號").Visible = False : 所得合帳2_dgv.Columns("客戶").Visible = True
            End If
        End If
        所得合帳2_dgv.Columns("所得.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        所得合帳2_dgv.Columns("所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To 所得合帳2_dgv.Rows.Count - 1
            所得合帳2_dgv.Rows(i).Cells("項次").Value = i + 1
            If IsNothing(商品(i)) = False Then
                所得合帳2_dgv.Rows(i).Cells("商品").Value = 商品(i)
            Else
                所得合帳2_dgv.Rows(i).Cells("商品").Value = ""
            End If
            If IsNothing(帳號(i)) = False Then
                所得合帳2_dgv.Rows(i).Cells("帳號").Value = 帳號(i)
            Else
                所得合帳2_dgv.Rows(i).Cells("帳號").Value = ""
            End If
            If IsNothing(客戶(i)) = False Then
                所得合帳2_dgv.Rows(i).Cells("客戶").Value = 客戶(i)
            Else
                所得合帳2_dgv.Rows(i).Cells("客戶").Value = ""
            End If
            If IsNothing(所得(i)) = False Then
                所得合帳2_dgv.Rows(i).Cells("所得.").Value = 所得(i) : 所得合帳2_dgv.Rows(i).Cells("所得").Value = 所得(i)
            Else
                所得合帳2_dgv.Rows(i).Cells("所得.").Value = "" : 所得合帳2_dgv.Rows(i).Cells("所得").Value = ""
            End If
            所得合帳2_dgv.Rows(i).Cells("所得.").Value = Strings.Format(Val(所得合帳2_dgv.Rows(i).Cells("所得.").Value), "#,##0")
        Next
    End Sub
    Private Sub Set_水差合帳()
        Dim ds11 As New DataSet : 水差合帳_dgv.DataSource = Nothing : ds11.Clear()
        水差合帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        水差合帳_dgv.ColumnHeadersHeight = 25 : 水差合帳_dgv.AllowUserToAddRows = False

        If 是否子明細 = False Then
            If 是否明細 = False Then : SQL_彙總水差1() : Else : SQL_彙總水差2() : End If
        Else : SQL_彙總水差3() : End If
        da.Fill(ds11) : 水差合帳_dgv.DataSource = ds11.Tables(0) : conn.Close()

        水差合帳_dgv.Columns(0).FillWeight = 40 : 水差合帳_dgv.Columns("水差").Visible = False
        If 水差合帳_dgv.Columns.Count = 4 Then
        ElseIf 水差合帳_dgv.Columns.Count = 5 Then : 水差合帳_dgv.Columns("帳號").Visible = True
        ElseIf 水差合帳_dgv.Columns.Count = 6 Then : 水差合帳_dgv.Columns("帳號").Visible = False : End If

        水差合帳_dgv.Columns("水差.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        水差合帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        水差1_tb.Text = "0" : 水差2_tb.Text = "0"
        For i As Integer = 0 To 水差合帳_dgv.Rows.Count - 1
            水差合帳_dgv.Rows(i).Cells("項次").Value = i + 1 : 水差合帳_dgv.Rows(i).Cells("水差").Value = "0" : 水差合帳_dgv.Rows(i).Cells("水差.").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 是否子明細 = False Then
                    If 是否明細 = False Then
                        If 水差合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString.ToLower() Then
                            If 合帳_dgv("水反", 選擇記憶).Value = False Then
                                水差合帳_dgv.Rows(i).Cells("水差").Value = Val(水差合帳_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                                水差合帳_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                            Else
                                水差合帳_dgv.Rows(i).Cells("水差").Value = Val(水差合帳_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                                水差合帳_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                            End If
                        End If
                    Else
                        If 水差合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           水差合帳_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString.ToLower() Then
                            If 合帳_dgv("水反", 選擇記憶).Value = False Then
                                水差合帳_dgv.Rows(i).Cells("水差").Value = Val(水差合帳_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                                水差合帳_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                            Else
                                水差合帳_dgv.Rows(i).Cells("水差").Value = Val(水差合帳_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                                水差合帳_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                            End If
                        End If
                    End If
                Else
                    If 水差合帳_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                        水差合帳_dgv.Rows(i).Cells("客戶").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString.ToLower() And
                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString.ToLower() Then
                        If 合帳_dgv("水反", 選擇記憶).Value = False Then
                            水差合帳_dgv.Rows(i).Cells("水差").Value = Val(水差合帳_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                            水差合帳_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                        Else
                            水差合帳_dgv.Rows(i).Cells("水差").Value = Val(水差合帳_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                            水差合帳_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                        End If
                    End If
                End If
            Next
            水差1_tb.Text = Val(水差1_tb.Text) + Val(水差合帳_dgv.Rows(i).Cells("水差").Value)
            水差2_tb.Text = Val(水差2_tb.Text) + Val(水差合帳_dgv.Rows(i).Cells("水差").Value)
            水差合帳_dgv.Rows(i).Cells("水差.").Value = Strings.Format(Val(水差合帳_dgv.Rows(i).Cells("水差.").Value), "#,##0")
        Next
        Set_水差出帳()
    End Sub
    Private Sub Set_水差出帳()
        Dim ds11 As New DataSet : 水差合帳1_dgv.DataSource = Nothing : ds11.Clear()
        水差合帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        水差合帳1_dgv.ColumnHeadersHeight = 25 : 水差合帳1_dgv.AllowUserToAddRows = False

        If 是否子明細 = False Then
            If 是否明細 = False Then : SQL_彙總水差1_1() : Else : SQL_彙總水差2_1() : End If
        Else : SQL_彙總水差3_1() : End If
        da.Fill(ds11) : 水差合帳1_dgv.DataSource = ds11.Tables(0) : conn.Close()

        水差合帳1_dgv.Columns(0).FillWeight = 40 : 水差合帳1_dgv.Columns("水差").Visible = False
        If 水差合帳1_dgv.Columns.Count = 4 Then
        ElseIf 水差合帳1_dgv.Columns.Count = 5 Then : 水差合帳1_dgv.Columns("帳號").Visible = True
        ElseIf 水差合帳1_dgv.Columns.Count = 6 Then : 水差合帳1_dgv.Columns("帳號").Visible = False : End If

        水差合帳1_dgv.Columns("水差.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        水差合帳1_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To 水差合帳1_dgv.Rows.Count - 1
            水差合帳1_dgv.Rows(i).Cells("項次").Value = i + 1 : 水差合帳1_dgv.Rows(i).Cells("水差").Value = "0" : 水差合帳1_dgv.Rows(i).Cells("水差.").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 是否子明細 = False Then
                    If 是否明細 = False Then
                        If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
                            If 合帳_dgv("水反", 選擇記憶).Value = False Then
                                水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                                水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                            Else
                                水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                                水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                            End If
                        End If
                    Else
                        If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                           水差合帳1_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                           客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
                            If 合帳_dgv("水反", 選擇記憶).Value = False Then
                                水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                                水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                            Else
                                水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                                水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                            End If
                        End If
                    End If
                Else
                    If 水差合帳1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                       水差合帳1_dgv.Rows(i).Cells("客戶").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("客帳").Value.ToString.ToLower() And
                       客戶_tb.Text.ToLower() = 流水帳_dgv.Rows(ii).Cells("所得指定").Value.ToString.ToLower() And 流水帳_dgv.Rows(ii).Cells("水差指定").Value.ToString <> "" Then
                        If 合帳_dgv("水反", 選擇記憶).Value = False Then
                            水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                            水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString) * -1
                        Else
                            水差合帳1_dgv.Rows(i).Cells("水差").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                            水差合帳1_dgv.Rows(i).Cells("水差.").Value = Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value.ToString)
                        End If
                    End If
                End If
            Next
            水差1_tb.Text = Val(水差1_tb.Text) + Val(水差合帳1_dgv.Rows(i).Cells("水差").Value)
            水差2_tb.Text = Val(水差2_tb.Text) + Val(水差合帳1_dgv.Rows(i).Cells("水差").Value)
            水差合帳1_dgv.Rows(i).Cells("水差.").Value = Strings.Format(Val(水差合帳1_dgv.Rows(i).Cells("水差.").Value), "#,##0")
        Next
        Set_水差合帳總和()
    End Sub
    Private Sub Set_水差合帳總和()
        Dim MN1 As Integer : Dim 商品(300), 帳號(300), 客戶(300), 水差(300) As String : NN6 = 0
        For I As Integer = 0 To 水差合帳_dgv.Rows.Count - 1
            If Val(水差合帳_dgv.Rows(I).Cells("水差").Value.ToString) <> 0 Then
                商品(MN1) = 水差合帳_dgv.Rows(I).Cells("商品").Value.ToString : 水差(MN1) = 水差合帳_dgv.Rows(I).Cells("水差").Value.ToString
                If 水差合帳_dgv.Columns.Count = 4 Then : 帳號(MN1) = "" : Else : 帳號(MN1) = 水差合帳_dgv.Rows(I).Cells("帳號").Value.ToString : End If
                If 水差合帳_dgv.Columns.Count = 4 Then : 客戶(MN1) = ""
                ElseIf 水差合帳_dgv.Columns.Count = 5 Then : 客戶(MN1) = 水差合帳_dgv.Rows(I).Cells("帳號").Value
                ElseIf 水差合帳_dgv.Columns.Count = 6 Then : 客戶(MN1) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
                MN1 += 1 : NN6 += 1
            End If
        Next
        For I As Integer = 0 To 水差合帳1_dgv.Rows.Count - 1
            If Val(水差合帳1_dgv.Rows(I).Cells("水差").Value.ToString) <> 0 Then
                商品(MN1) = 水差合帳1_dgv.Rows(I).Cells("商品").Value.ToString : 水差(MN1) = 水差合帳1_dgv.Rows(I).Cells("水差").Value.ToString
                If 水差合帳1_dgv.Columns.Count = 4 Then : 帳號(MN1) = "" : Else : 帳號(MN1) = 水差合帳1_dgv.Rows(I).Cells("帳號").Value.ToString : End If
                If 水差合帳1_dgv.Columns.Count = 4 Then : 客戶(MN1) = ""
                ElseIf 水差合帳1_dgv.Columns.Count = 5 Then : 客戶(MN1) = 水差合帳1_dgv.Rows(I).Cells("帳號").Value
                ElseIf 水差合帳1_dgv.Columns.Count = 6 Then : 客戶(MN1) = 水差合帳1_dgv.Rows(I).Cells("客戶").Value : End If
                If 水差合帳1_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : MN1 += 1 : NN6 += 1
            End If
        Next

        Dim ds9 As New DataSet : 水差合帳2_dgv.DataSource = Nothing : ds9.Clear()
        水差合帳2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        水差合帳2_dgv.ColumnHeadersHeight = 25 : 水差合帳2_dgv.AllowUserToAddRows = False

        SQL_彙總所得5_1()
        da.Fill(ds9) : 水差合帳2_dgv.DataSource = ds9.Tables(0) : conn.Close()

        水差合帳2_dgv.Columns(0).FillWeight = 40 : 水差合帳2_dgv.Columns("水差").Visible = False

        If 是否明細 = False Then
            水差合帳2_dgv.Columns("帳號").Visible = False : 水差合帳2_dgv.Columns("客戶").Visible = False
        Else
            If 是否子明細 = False Then
                水差合帳2_dgv.Columns("帳號").Visible = True : 水差合帳2_dgv.Columns("客戶").Visible = False
            Else
                水差合帳2_dgv.Columns("帳號").Visible = False : 水差合帳2_dgv.Columns("客戶").Visible = True
            End If
        End If
        水差合帳2_dgv.Columns("水差.").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        水差合帳2_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To 水差合帳2_dgv.Rows.Count - 1
            If IsNothing(商品(i)) = False Then
                水差合帳2_dgv.Rows(i).Cells("商品").Value = 商品(i)
            Else
                水差合帳2_dgv.Rows(i).Cells("商品").Value = ""
            End If
            If IsNothing(帳號(i)) = False Then
                水差合帳2_dgv.Rows(i).Cells("帳號").Value = 帳號(i)
            Else
                水差合帳2_dgv.Rows(i).Cells("帳號").Value = ""
            End If
            If IsNothing(客戶(i)) = False Then
                水差合帳2_dgv.Rows(i).Cells("客戶").Value = 客戶(i)
            Else
                水差合帳2_dgv.Rows(i).Cells("客戶").Value = ""
            End If
            If IsNothing(水差(i)) = False Then
                水差合帳2_dgv.Rows(i).Cells("水差.").Value = 水差(i) : 水差合帳2_dgv.Rows(i).Cells("水差").Value = 水差(i)
            Else
                水差合帳2_dgv.Rows(i).Cells("水差.").Value = "" : 水差合帳2_dgv.Rows(i).Cells("水差").Value = ""
            End If
            水差合帳2_dgv.Rows(i).Cells("水差.").Value = Strings.Format(Val(水差合帳2_dgv.Rows(i).Cells("水差.").Value), "#,##0")
        Next
    End Sub
    Private Sub Set_紅利支出()
        Dim ds3 As New DataSet
        紅利支出_dgv.DataSource = Nothing : ds3.Clear()
        紅利支出_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紅利支出_dgv.ColumnHeadersHeight = 25
        紅利支出_dgv.AllowUserToAddRows = False

        SQL_紅利支出()
        da.Fill(ds3) : 紅利支出_dgv.DataSource = ds3.Tables(0) : conn.Close()
        紅利支出_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        紅利支出_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紅利支出_dgv.Columns(0).Visible = False : 紅利支出_dgv.Columns(1).FillWeight = 60 : 紅利支出_dgv.Columns(2).FillWeight = 50
        紅利支出_dgv.Columns(0).ReadOnly = True : 紅利支出_dgv.Columns(1).ReadOnly = True
        紅利支出_dgv.Columns(2).ReadOnly = True : 紅利支出_dgv.Columns(3).ReadOnly = True
        紅利支出_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紅利支出_dgv.Columns("股份").DefaultCellStyle.Format = "#,##0"
        紅利支出_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 紅利支出_dgv.Rows.Count - 1
            紅利支出_dgv.Rows(i).Cells("紅利").Value = 0
            For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                If 紅利支出_dgv.Rows(i).Cells("股東").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("股東").Value.ToString.ToLower() And
                   紅利支出_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() And
                   紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 Then
                    If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
                    Else
                        紅利支出_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
                    End If
                    If CC(42) = False Then : 紅利支出_dgv.Rows(i).Cells("紅利").Value = 0 : End If
                End If
            Next
        Next
    End Sub
    Private Sub Set_紅利收入()
        Dim ds3 As New DataSet
        紅利收入_dgv.DataSource = Nothing : ds3.Clear()
        紅利收入_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紅利收入_dgv.ColumnHeadersHeight = 25
        紅利收入_dgv.AllowUserToAddRows = False

        SQL_紅利收入()
        da.Fill(ds3) : 紅利收入_dgv.DataSource = ds3.Tables(0) : conn.Close()
        紅利收入_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        紅利收入_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紅利收入_dgv.Columns(0).FillWeight = 60 : 紅利收入_dgv.Columns(1).Visible = False : 紅利收入_dgv.Columns(2).FillWeight = 50 : 紅利收入_dgv.Columns("反轉").FillWeight = 50
        紅利收入_dgv.Columns(0).ReadOnly = True : 紅利收入_dgv.Columns(1).ReadOnly = True : 紅利收入_dgv.Columns(2).ReadOnly = True : 紅利收入_dgv.Columns(3).ReadOnly = True
        紅利收入_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紅利收入_dgv.Columns("股份").DefaultCellStyle.Format = "#,##0" : 紅利收入_dgv.Columns("紅利").DefaultCellStyle.Format = "#,##0"
        For i As Integer = 0 To 紅利收入_dgv.Rows.Count - 1
            紅利收入_dgv.Rows(i).Cells("紅利").Value = 0
            If IsDBNull(紅利收入_dgv.Rows(i).Cells("反轉").Value) Then : 紅利收入_dgv.Rows(i).Cells("反轉").Value = False : End If
            For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                If 紅利收入_dgv.Rows(i).Cells("所得戶").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("所得戶").Value.ToString.ToLower() And
                   紅利收入_dgv.Rows(i).Cells("股東").Value.ToString.ToLower() = 紅利分表_dgv.Rows(II).Cells("股東").Value.ToString.ToLower() And
                   紅利收入_dgv.Rows(i).Cells("紅利").Value = 0 Then
                    If 合帳_dgv("紅反", 選擇記憶).Value = False Then
                        紅利收入_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value
                    Else
                        紅利收入_dgv.Rows(i).Cells("紅利").Value = 紅利分表_dgv.Rows(II).Cells("紅利").Value * -1
                    End If
                    If 紅利收入_dgv.Rows(i).Cells("反轉").Value = True Then
                        紅利收入_dgv.Rows(i).Cells("紅利").Value = 紅利收入_dgv.Rows(i).Cells("紅利").Value * -1
                    End If
                    If CC(42) = False Then : 紅利收入_dgv.Rows(i).Cells("紅利").Value = 0 : End If
                End If
            Next
        Next
    End Sub
    Private Sub Set_紅利整合()
        Set_紅利支出() : Set_紅利收入()
        Dim ds3 As New DataSet

        Dim MN1 As Integer : Dim 商品(300), 紅利(300) As String
        For I As Integer = 0 To 紅利支出_dgv.Rows.Count - 1
            商品(MN1) = 紅利支出_dgv.Rows(I).Cells("股東").Value.ToString & "/所得拆帳" : 紅利(MN1) = 紅利支出_dgv.Rows(I).Cells("紅利").Value
            MN1 += 1
        Next
        If MN1 > 0 Then : MN1 -= 1 : End If
        For I As Integer = 0 To 紅利收入_dgv.Rows.Count - 1
            If 紅利支出_dgv.Rows.Count > 0 Then : MN1 += 1 : End If
            商品(MN1) = 紅利收入_dgv.Rows(I).Cells("所得戶").Value.ToString & "/股東紅利" : 紅利(MN1) = 紅利收入_dgv.Rows(I).Cells("紅利").Value
            If 紅利支出_dgv.Rows.Count = 0 Then : MN1 += 1 : End If
        Next

        紅利整合_dgv.DataSource = Nothing : ds3.Clear()
        紅利整合_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紅利整合_dgv.ColumnHeadersHeight = 25
        紅利整合_dgv.AllowUserToAddRows = False

        NN9 = 紅利支出_dgv.Rows.Count + 紅利收入_dgv.Rows.Count : SQL_紅利整合()
        da.Fill(ds3) : 紅利整合_dgv.DataSource = ds3.Tables(0) : conn.Close()
        紅利整合_dgv.Columns(0).FillWeight = 100 : 紅利整合_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        紅利整合_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        紅利整合_dgv.Columns(2).Visible = False : 紅利整合_dgv.Columns(0).ReadOnly = True : 紅利整合_dgv.Columns(1).ReadOnly = True
        紅利整合_dgv.Columns("紅利收支").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        紅利整合_dgv.Columns("紅利").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
            紅利整合_dgv.Rows(i).Cells("所得/股東").Value = "" : 紅利整合_dgv.Rows(i).Cells("紅利收支").Value = ""
            If MN1 > 0 Then
                紅利整合_dgv.Rows(i).Cells("所得/股東").Value = 商品(i) : 紅利整合_dgv.Rows(i).Cells("紅利收支").Value = 紅利(i)
                紅利整合_dgv.Rows(i).Cells("紅利").Value = 紅利(i)
                紅利整合_dgv.Rows(i).Cells("紅利收支").Value = Strings.Format(Val(紅利整合_dgv.Rows(i).Cells("紅利收支").Value), "#,##0")
            End If
        Next
    End Sub
    Private Sub 帳戶帳務_bt_Click(sender As Object, e As EventArgs) Handles 帳戶帳務_bt.Click
        If 彙總_dgv.Visible = False Then : 彙總_dgv.Visible = True : 合帳_dgv.Visible = False : End If
        彙總_dgv.Columns("商品").FillWeight = 65 : 彙總_dgv.Columns("老闆").FillWeight = 65 : 彙總_dgv.Columns("帳號").FillWeight = 80
        彙總_dgv.Columns("天帳").FillWeight = 80 : 彙總_dgv.Columns("地帳").FillWeight = 80 : 彙總_dgv.Columns("個人所得").FillWeight = 80
        彙總_dgv.Columns("核帳").FillWeight = 50 : 彙總_dgv.Columns("水差").Visible = False
        彙總_dgv.Columns("天帳").Visible = True : 彙總_dgv.Columns("地帳").Visible = True : 彙總_dgv.Columns("個人所得").Visible = True : 彙總_dgv.Columns("核帳").Visible = True
        彙總_dgv.Columns("網址").Visible = False : 彙總_dgv.Columns("狀態").Visible = False : 彙總_dgv.Columns("驗證").Visible = False : 彙總_dgv.Columns("密碼").Visible = False
    End Sub
    Private Sub 帳戶狀態_bt_Click(sender As Object, e As EventArgs) Handles 帳戶狀態_bt.Click
        If 彙總_dgv.Visible = False Then : 彙總_dgv.Visible = True : 合帳_dgv.Visible = False : End If
        彙總_dgv.Columns("商品").FillWeight = 65 : 彙總_dgv.Columns("老闆").FillWeight = 65 : 彙總_dgv.Columns("網址").FillWeight = 160 : 彙總_dgv.Columns("帳號").FillWeight = 80
        彙總_dgv.Columns("密碼").FillWeight = 80 : 彙總_dgv.Columns("狀態").FillWeight = 50 : 彙總_dgv.Columns("驗證").FillWeight = 80 : 彙總_dgv.Columns("水差").Visible = False
        彙總_dgv.Columns("天帳").Visible = False : 彙總_dgv.Columns("地帳").Visible = False : 彙總_dgv.Columns("個人所得").Visible = False : 彙總_dgv.Columns("核帳").Visible = False
        彙總_dgv.Columns("網址").Visible = True : 彙總_dgv.Columns("狀態").Visible = True : 彙總_dgv.Columns("驗證").Visible = True : 彙總_dgv.Columns("密碼").Visible = True
    End Sub
    Private Sub Set_流水帳清單2()
        彙總_dgv.DataSource = Nothing : ds1.Clear() : 彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總_dgv.ColumnHeadersHeight = 25
        彙總_dgv.AllowUserToAddRows = False
        SQL_彙總查詢()
        If 本機資料 = False Then : da.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
        Else : Acda.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : Access1.Close() : End If

        彙總_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

        帳戶帳務_bt.PerformClick()
        彙總_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        設定異常表0 = "帳戶 [老闆] 名稱沒有設定!!"
        設定異常表1 = "帳戶上繳、下收設定有誤，核帳不合理!!"
        異常表0 = 0 : 異常表1 = 0
        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
            If 彙總_dgv.Rows(i).Cells("老闆").Value.ToString = "" Then
                設定異常表0 = 設定異常表0 & vbCrLf &
                              "商品 : [" & 彙總_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 彙總_dgv.Rows(i).Cells("帳號").Value.ToString & "]，沒有設定 [老闆] 。"
                異常表0 += 1
            End If
            彙總_dgv.Rows(i).Cells("天帳").Value = "0" : 彙總_dgv.Rows(i).Cells("地帳").Value = "0"
            彙總_dgv.Rows(i).Cells("個人所得").Value = "0" : 彙總_dgv.Rows(i).Cells("水差").Value = "0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 彙總_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() And
                    彙總_dgv.Rows(i).Cells("老闆").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("老闆").Value.ToString.ToLower() And
                    彙總_dgv.Rows(i).Cells("帳號").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("帳戶").Value.ToString.ToLower() And
                    (流水帳_dgv.Rows(ii).Cells("計算").Value = True Or 流水帳_dgv.Rows(ii).Cells("同帳").Value = True) Then
                    彙總_dgv.Rows(i).Cells("天帳").Value = Val(彙總_dgv.Rows(i).Cells("天帳").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳1").Value)
                    彙總_dgv.Rows(i).Cells("地帳").Value = Val(彙總_dgv.Rows(i).Cells("地帳").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳1").Value)
                    彙總_dgv.Rows(i).Cells("個人所得").Value = Val(彙總_dgv.Rows(i).Cells("個人所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value)
                    彙總_dgv.Rows(i).Cells("水差").Value = Val(彙總_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value)
                End If
            Next

            If 流水帳_dgv.Rows.Count = 0 Then
                彙總_dgv.Rows(i).Cells("狀態").Value = "NA"
                彙總_dgv.Rows(i).Cells("天帳").Value = "0" : 彙總_dgv.Rows(i).Cells("地帳").Value = "0"
                彙總_dgv.Rows(i).Cells("個人所得").Value = "0" : 彙總_dgv.Rows(i).Cells("水差").Value = "0"
            Else
                For ii As Integer = 0 To LOG1_dgv.Rows.Count - 1
                    If 彙總_dgv.Rows(i).Cells("狀態").Value.ToString.ToLower() = LOG1_dgv.Rows(ii).Cells("網址").Value.ToString.ToLower() And
                        彙總_dgv.Rows(i).Cells("天帳").Value.ToString = "0" And 彙總_dgv.Rows(i).Cells("地帳").Value.ToString = "0" Then
                        彙總_dgv.Rows(i).Cells("狀態").Value = "NA"
                    End If
                Next

                For ii As Integer = 0 To LOG2_dgv.Rows.Count - 1
                    If 彙總_dgv.Rows(i).Cells("狀態").Value.ToString.ToLower() = LOG2_dgv.Rows(ii).Cells("網址").Value.ToString.ToLower() Then
                        彙總_dgv.Rows(i).Cells("狀態").Value = "X"
                    ElseIf 彙總_dgv.Rows(i).Cells("狀態").Value.ToString <> "NA" And 彙總_dgv.Rows(i).Cells("天帳").Value.ToString <> "0" And
                        彙總_dgv.Rows(i).Cells("地帳").Value.ToString <> "0" Then
                        彙總_dgv.Rows(i).Cells("狀態").Value = "V"
                    End If
                Next
                If 流水帳_dgv.Rows.Count <> 0 And Val(彙總_dgv.Rows(i).Cells("天帳").Value.ToString) + Val(彙總_dgv.Rows(i).Cells("地帳").Value.ToString) <> "0" And
                    彙總_dgv.Rows(i).Cells("狀態").Value <> "X" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "V" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "NA" Then
                    彙總_dgv.Rows(i).Cells("狀態").Value = "V"
                ElseIf 流水帳_dgv.Rows.Count <> 0 And Val(彙總_dgv.Rows(i).Cells("天帳").Value.ToString) + Val(彙總_dgv.Rows(i).Cells("地帳").Value.ToString) = "0" And
                    彙總_dgv.Rows(i).Cells("狀態").Value <> "X" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "V" And 彙總_dgv.Rows(i).Cells("狀態").Value <> "NA" Then
                    彙總_dgv.Rows(i).Cells("狀態").Value = "V"
                    彙總_dgv.Rows(i).Cells("狀態").Value = "NA"
                End If
            End If
            If Val(彙總_dgv.Rows(i).Cells("核帳").Value) < 50 And Val(彙總_dgv.Rows(i).Cells("核帳").Value) < -50 Then
                設定異常表1 = 設定異常表1 & vbCrLf &
                                  "商品 : [" & 彙總_dgv.Rows(i).Cells("商品").Value.ToString & "] -- 帳戶 : [" & 彙總_dgv.Rows(i).Cells("帳號").Value.ToString & "]，核帳有誤[" &
                                  Strings.Format(Val(彙總_dgv.Rows(i).Cells("核帳").Value.ToString), "#,##0") & "]"
                異常表1 += 1
            End If

            彙總_dgv.Rows(i).Cells("核帳").Value = Val(彙總_dgv.Rows(i).Cells("天帳").Value) + Val(彙總_dgv.Rows(i).Cells("地帳").Value) +
                                                   Val(彙總_dgv.Rows(i).Cells("個人所得").Value)

            彙總_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("天帳").Value), "#,##0")
            彙總_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("地帳").Value), "#,##0")
            彙總_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
            彙總_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("水差").Value), "#,##0")
            彙總_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(彙總_dgv.Rows(i).Cells("核帳").Value), "#,##0")
        Next
    End Sub
    Private Sub Set_流水帳清單3()
        彙總1_dgv.DataSource = Nothing : ds2.Clear() : 彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        彙總1_dgv.ColumnHeadersHeight = 25
        彙總1_dgv.AllowUserToAddRows = False
        SQL_彙總查詢1()
        If 本機資料 = False Then : da.Fill(ds2) : 彙總1_dgv.DataSource = ds2.Tables(0) : conn.Close()
        Else : Acda.Fill(ds2) : 彙總1_dgv.DataSource = ds2.Tables(0) : Access1.Close() : End If

        彙總1_dgv.Columns("水差").Visible = False
        彙總1_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        彙總1_dgv.Columns(4).FillWeight = 80 : 彙總1_dgv.Columns(5).FillWeight = 50
        彙總1_dgv.Columns("天帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總1_dgv.Columns("地帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總1_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總1_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        彙總1_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1
            彙總1_dgv.Rows(i).Cells("天帳").Value = "0.0" : 彙總1_dgv.Rows(i).Cells("地帳").Value = "0.0"
            彙總1_dgv.Rows(i).Cells("個人所得").Value = "0.0" : 彙總1_dgv.Rows(i).Cells("水差").Value = "0.0"
            For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                If 彙總1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 流水帳_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
                    彙總1_dgv.Rows(i).Cells("天帳").Value = Val(彙總1_dgv.Rows(i).Cells("天帳").Value) + Val(流水帳_dgv.Rows(ii).Cells("天帳1").Value)
                    彙總1_dgv.Rows(i).Cells("地帳").Value = Val(彙總1_dgv.Rows(i).Cells("地帳").Value) + Val(流水帳_dgv.Rows(ii).Cells("地帳1").Value)
                    彙總1_dgv.Rows(i).Cells("個人所得").Value = Val(彙總1_dgv.Rows(i).Cells("個人所得").Value) + Val(流水帳_dgv.Rows(ii).Cells("個人所得1").Value)
                    彙總1_dgv.Rows(i).Cells("水差").Value = Val(彙總1_dgv.Rows(i).Cells("水差").Value) + Val(流水帳_dgv.Rows(ii).Cells("水差1").Value)
                End If
            Next
            彙總1_dgv.Rows(i).Cells("地帳").Value = Val(彙總1_dgv.Rows(i).Cells("地帳").Value) * -1
            彙總1_dgv.Rows(i).Cells("核帳").Value = Val(彙總1_dgv.Rows(i).Cells("天帳").Value) + Val(彙總1_dgv.Rows(i).Cells("地帳").Value) +
                                                     Val(彙總1_dgv.Rows(i).Cells("個人所得").Value)

            彙總1_dgv.Rows(i).Cells("天帳").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("天帳").Value), "#,##0")
            彙總1_dgv.Rows(i).Cells("地帳").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("地帳").Value), "#,##0")
            彙總1_dgv.Rows(i).Cells("個人所得").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("個人所得").Value), "#,##0")
            彙總1_dgv.Rows(i).Cells("水差").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("水差").Value), "#,##0")
            彙總1_dgv.Rows(i).Cells("核帳").Value = Strings.Format(Val(彙總1_dgv.Rows(i).Cells("核帳").Value), "#,##0")
        Next
    End Sub
    Private Sub Set_LOG1()
        LOG1_dgv.DataSource = Nothing : ds10.Clear() : LOG1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        LOG1_dgv.ColumnHeadersHeight = 25
        LOG1_dgv.AllowUserToAddRows = False
        SQL_LOG查詢1()
        da.Fill(ds10) : LOG1_dgv.DataSource = ds10.Tables(0) : conn.Close()
        LOG1_dgv.Columns(0).FillWeight = 35 : LOG1_dgv.Columns(2).FillWeight = 90 : LOG1_dgv.Columns(3).FillWeight = 75 : LOG1_dgv.Columns(4).Visible = False
        LOG1_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        For I As Integer = 0 To LOG1_dgv.Rows.Count - 1
            LOG1_dgv.Rows(I).Cells("項次").Value = I + 1
        Next
    End Sub
    Private Sub Set_LOG2()
        LOG2_dgv.DataSource = Nothing : ds6.Clear() : LOG2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        LOG2_dgv.ColumnHeadersHeight = 25
        LOG2_dgv.AllowUserToAddRows = False
        SQL_LOG查詢2()
        da.Fill(ds6) : LOG2_dgv.DataSource = ds6.Tables(0) : conn.Close()
        LOG2_dgv.Columns(0).FillWeight = 35 : LOG2_dgv.Columns(2).FillWeight = 90 : LOG2_dgv.Columns(3).FillWeight = 75 : LOG2_dgv.Columns(4).Visible = False
        LOG2_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        For I As Integer = 0 To LOG2_dgv.Rows.Count - 1
            LOG2_dgv.Rows(I).Cells("項次").Value = I + 1
        Next
    End Sub
    Private Sub Set_日期清單()
        日期_dgv.DataSource = Nothing : ds7.Clear() : 日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        日期_dgv.ColumnHeadersHeight = 25
        日期_dgv.AllowUserToAddRows = False
        SQL_流水帳日期()
        If 本機資料 = False Then : da.Fill(ds7) : 日期_dgv.DataSource = ds7.Tables(0) : conn.Close()
        Else : Acda.Fill(ds7) : 日期_dgv.DataSource = ds7.Tables(0) : Access1.Close() : End If

        Dim 天, 周, 月, 天1, 周1, 月1 As Integer
        If CC(9) = False Then : 天 = 60 : 周 = 8 : 月 = 2 : Else : 天 = 6000 : 周 = 800 : 月 = 200 : End If : 天1 = 0 : 周1 = 0 : 月1 = 0
        資料_cb.Items.Clear()
        For I As Integer = 0 To 日期_dgv.Rows.Count - 1
            開始日期1_dtp.Value = 日期_dgv.Rows(I).Cells("開始日期").Value : 結束日期1_dtp.Value = 日期_dgv.Rows(I).Cells("結束日期").Value
            If 天_ch.Checked = True Then
                If 開始日期1_dtp.Value = 結束日期1_dtp.Value Then
                    天1 += 1
                    資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
                    If 天 = 天1 Then : Exit For : End If
                End If
            ElseIf 周_ch.Checked = True Then
                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) >= 0 Then
                    周1 += 1
                    資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
                    If 周 = 周1 Then : Exit For : End If
                End If
            ElseIf 月_ch.Checked = True Then
                If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) >= 27 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 32 Then
                    月1 += 1
                    資料_cb.Items.Add(日期_dgv.Rows(I).Cells("開始日期").Value & " / " & 日期_dgv.Rows(I).Cells("結束日期").Value)
                    If 月 = 月1 Then : Exit For : End If
                End If
            End If
        Next
        資料_cb.Items.Add("")
    End Sub
    Private Sub 帳務彙總計算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If 不用WEB = True Then
            Me.MdiParent = GA_ERP_SYS_Old : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS_Old.WindowState = 0
        Else
            Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : GA_ERP_SYS.WindowState = 0
        End If : Set_網址修正() : If 上繳名_dgv.Rows.Count = 0 Then : 彙總表不再重新讀取 = False : End If
        天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False : DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
        L50.Visible = False : 客戶下_dgv.Visible = False : 流水帳_dgv.Visible = False : 彙總_dgv.Visible = False : 彙總1_dgv.Visible = False
        上繳合帳_dgv.Visible = True : 所得合帳_dgv.Visible = True : PictureBox1.Visible = True : PictureBox1.BringToFront() : Panel1.Visible = False
        L2.Visible = True : L3.Visible = True : L4.Visible = True : L5.Visible = True : 所得1_tb.Visible = True : 客戶_tb.Visible = True
        天帳1_tb.Visible = True : 地帳1_tb.Visible = True : 下收合帳_dgv.Visible = True : 水差合帳_dgv.Visible = False : 是否明細 = True : 是否子明細 = True
        Label16.SendToBack() : Label4.SendToBack() : 紅利支出_dgv.Visible = False : 紅利收入_dgv.Visible = False : 紅利整合_dgv.Visible = True
        所得合帳_dgv.Visible = False : 所得合帳1_dgv.Visible = False : 其他控制 = False : 視窗4_pl.SendToBack()

        If CC(39) = False Then
            紙帳非前期_dgv.Enabled = False : 紙帳前期_dgv.Enabled = False : 手工帳務存檔_bt.Enabled = False : 通知_lb.Text = "前期與紙帳功能未開啟"
        Else
            紙帳非前期_dgv.Enabled = True : 紙帳前期_dgv.Enabled = True : 手工帳務存檔_bt.Enabled = True : 通知_lb.Text = "前期與紙帳功能已開啟"
        End If
        If CC(42) = False Then
            股東紅利設定_bt.Enabled = False : 通知1_lb.Text = "所得股份自動分配功能未開啟"
        Else
            股東紅利設定_bt.Enabled = True : 通知1_lb.Text = "所得股份自動分配功能已開啟"
        End If
        If 無KEY登入 = True Then
            商品彙總_bt.Enabled = False : 流水帳_bt.Enabled = False : 客戶資料_bt.Enabled = False : LOG檔_bt.Enabled = False : 進階控制_bt.Enabled = False
            帳戶帳務_bt.Enabled = False : 帳戶狀態_bt.Enabled = False : 股東紅利設定_bt.Enabled = False : 手工帳務存檔_bt.Enabled = False : 正負調整存檔_bt.Enabled = False
        End If

        結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
        Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)
        If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)
        ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)
        ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)
        ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)
        ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)
        ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)
        End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = Today()
        本周周一 = 開始日期_dtp.Value

        If 不用WEB = True Then
            If GA_ERP_SYS_Old.Size.Width > 1440 And GA_ERP_SYS_Old.Size.Height > 900 Then : 字體_NUD.Value = 9
            ElseIf GA_ERP_SYS_Old.Size.Width <= 1440 And GA_ERP_SYS_Old.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
        Else
            If GA_ERP_SYS.Size.Width > 1440 And GA_ERP_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9
            ElseIf GA_ERP_SYS.Size.Width <= 1440 And GA_ERP_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : End If
        End If
    End Sub
    Private Sub 帳務彙總計算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        資料數 = 8 : Set_群組() : SQL_客戶下層全部關閉() : SQL_自動正負反()
        If dr.Read Then
            If IsDBNull(dr("自動")) = False Then
                自動正負反_ch.Checked = dr("自動") : 依電板習慣_ch.Checked = dr("依電板") : 依球版習慣_ch.Checked = dr("依球板")
            End If
        End If

        If CC(8) = False Then : Delete_bT.Enabled = False : End If : MyModule1.進度條()
        If CC(19) = False Then : 進階控制_bt.Enabled = False : End If : MyModule1.進度條()

        SQL_流水帳上繳() : MyModule1.進度條() : 老闆_cb.Items.Clear() : 老闆_cb.Items.Add("")
        If 本機資料 = False Then : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()
        ElseIf 本機資料 = True Then : While (Acdr.Read()) : 老闆_cb.Items.Add(Acdr("上繳源")) : End While : Access1.Close() : End If

        SQL_流水帳商品() : MyModule1.進度條() : 商品_cb.Items.Clear() : 商品_cb.Items.Add("")
        If 本機資料 = False Then : While (dr.Read()) : 商品_cb.Items.Add(dr("商品")) : End While : conn.Close()
        ElseIf 本機資料 = True Then : While (Acdr.Read()) : 商品_cb.Items.Add(Acdr("商品")) : End While : Access1.Close() : End If

        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月" : End If
        Set_日期清單()
        If 不用WEB = True Then : GA_ERP_SYS_Old.ToolStripProgressBar1.Value = 0 : Else : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : End If : 最終數 = 0
        Set_上繳名() : Set_下收名() : Set_所得名() : Set_所得名只算所得() : Set_水差名() : Set_水差出帳1() : 彙總表不再重新讀取 = True
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        If 不用WEB = True Then
            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
        Else
            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
        End If
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        If 不用WEB = True Then
            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
        Else
            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
        End If
    End Sub
    Private Sub 帳務彙總計算表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        If 不用WEB = True Then
            If GA_ERP_SYS_Old.Size.Width > 1440 And GA_ERP_SYS_Old.Size.Height > 900 Then
                字體_NUD.Value = 9
            ElseIf GA_ERP_SYS_Old.Size.Width <= 1440 And GA_ERP_SYS_Old.Size.Height <= 900 Then
                字體_NUD.Value = 7.6
            End If
        Else
            If GA_ERP_SYS.Size.Width > 1440 And GA_ERP_SYS.Size.Height > 900 Then
                字體_NUD.Value = 9
            ElseIf GA_ERP_SYS.Size.Width <= 1440 And GA_ERP_SYS.Size.Height <= 900 Then
                字體_NUD.Value = 7.6
            End If
        End If
    End Sub
    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
        上繳合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 上繳名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        所得合帳2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        下收合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : LOG1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        水差合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 合帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        下收名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : LOG2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        所得名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        所得名1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 客戶下_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        紙帳前期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 流水帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        紙帳非前期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 水差名_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        紅利總表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 紅利分表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        紅利支出_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 紅利收入_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        紅利整合_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 水差合帳1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        水差合帳2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) : 水差名1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        自定帳務_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
    End Sub
    Private Sub 合帳_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 合帳_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 查詢_tb.Text = 合帳_dgv("客戶", e.RowIndex).Value.ToString : End If
    End Sub
    Private Sub 自定帳務_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 自定帳務_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            自定義客戶_tb.Text = 自定帳務_dgv("客戶", e.RowIndex).Value.ToString : 自定義欄位_ch.Text = 自定帳務_dgv("欄位", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 群組_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 群組_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 群組_tb.Text = 群組_dgv(0, e.RowIndex).Value.ToString : 自定義報表() : End If
    End Sub
    Private Sub 紙帳非前期_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳非前期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 紙帳存檔 = True : End If
    End Sub
    Private Sub 紙帳前期_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳前期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 紙帳存檔 = True : End If
    End Sub
    Private Sub 彙總_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 使用網址_ch.Checked = True Then
                網址_tb.Text = 彙總_dgv("網址", e.RowIndex).Value.ToString
            End If
        End If
    End Sub
    Private Sub LOG1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles LOG1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 使用網址_ch.Checked = True Then
                網址_tb.Text = LOG1_dgv("網址", e.RowIndex).Value.ToString
            End If
        End If
    End Sub
    Private Sub LOG2_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles LOG2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 使用網址_ch.Checked = True Then
                網址_tb.Text = LOG2_dgv("網址", e.RowIndex).Value.ToString
            End If
        End If
    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)
        If e.RowIndex = 彙總_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 彙總_dgv(0, e.RowIndex).Value.ToString.ToLower() <> 彙總_dgv(0, e.RowIndex + 1).Value.ToString.ToLower() 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
        End If
    End Sub
    Private Sub 彙總5_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 水差合帳_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 水差合帳_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 水差合帳_dgv(1, e.RowIndex).Value.ToString.ToLower() <> 水差合帳_dgv(1, e.RowIndex + 1).Value.ToString.ToLower() 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
        End If
    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)
        If e.RowIndex = 流水帳_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 流水帳_dgv(3, e.RowIndex).Value.ToString.ToLower() <> 流水帳_dgv(3, e.RowIndex + 1).Value.ToString.ToLower() 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
        End If
    End Sub
    Private Sub 自定帳務_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 自定帳務_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紅利整合_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利整合_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紙帳前期_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紙帳前期_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 上繳名_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 上繳名_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 下收名_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 下收名_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 所得名_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 所得名_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 所得名1_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 所得名1_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 水差名_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 水差名_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 水差名1_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 水差名1_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 流水帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 流水帳_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 彙總_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 彙總1_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總1_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 彙總2_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 上繳合帳_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 所得合帳2_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 所得合帳2_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 水差合帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 水差合帳_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 水差合帳1_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 水差合帳1_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 水差合帳2_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 水差合帳2_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 下收合帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 下收合帳_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 合帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 合帳_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紙帳非前期_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紙帳非前期_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紅利總表_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利總表_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 所得合帳_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 所得合帳_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紅利分表_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利分表_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紅利支出_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利支出_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紅利收入_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 紅利收入_dgv.CellFormatting
        If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
            e.CellStyle.ForeColor = Color.Red
        End If
    End Sub
    Private Sub 紙帳前期_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳前期_dgv.CellEndEdit
        手帳計算()
    End Sub
    Private Sub 紙帳非前期_dgv_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳非前期_dgv.CellEndEdit
        手帳計算()
    End Sub
    Private Sub 紙帳前期_dgv_CellValidated(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳前期_dgv.CellValidated
        If e.ColumnIndex = 2 Then : Dim cellValue As Object = 紙帳前期_dgv(e.ColumnIndex, e.RowIndex).Value.ToString
            If Not IsNumeric1(cellValue) Then
                紙帳前期_dgv("交收金額", e.RowIndex).Value = 0 : 紙帳前期_dgv("交收金額.", e.RowIndex).Value = 0
            Else
                紙帳前期_dgv("交收金額", e.RowIndex).Value = CInt(紙帳前期_dgv("交收金額.", e.RowIndex).Value.ToString)
                紙帳前期_dgv("交收金額.", e.RowIndex).Value = Strings.Format(CInt(紙帳前期_dgv("交收金額.", e.RowIndex).Value.ToString), "#,##0")
            End If
        End If
    End Sub
    Private Sub 紙帳非前期_dgv_CellValidated(sender As Object, e As DataGridViewCellEventArgs) Handles 紙帳非前期_dgv.CellValidated
        If e.ColumnIndex = 2 Then : Dim cellValue As Object = 紙帳非前期_dgv(e.ColumnIndex, e.RowIndex).Value.ToString
            If Not IsNumeric1(cellValue) Then
                紙帳非前期_dgv("交收金額", e.RowIndex).Value = 0 : 紙帳非前期_dgv("交收金額.", e.RowIndex).Value = 0
            Else
                紙帳非前期_dgv("交收金額", e.RowIndex).Value = CInt(紙帳非前期_dgv("交收金額.", e.RowIndex).Value.ToString)
                紙帳非前期_dgv("交收金額.", e.RowIndex).Value = Strings.Format(CInt(紙帳非前期_dgv("交收金額.", e.RowIndex).Value.ToString), "#,##0")
            End If
        End If
    End Sub
    Private Function IsNumeric1(value As String) As Boolean
        Dim result As Double : Return Double.TryParse(value, result)
    End Function
    Private Sub 合帳_商品_bt_Click(sender As Object, e As EventArgs) Handles 合帳_商品_bt.Click
        If 客戶_tb.Text = "" Then : Else
            是否子明細 = False : 是否明細 = False : 紙帳計算()
        End If
    End Sub
    Private Sub 合帳_帳號_tb_Click(sender As Object, e As EventArgs) Handles 合帳_帳號_tb.Click
        If 客戶_tb.Text = "" Then : Else
            是否子明細 = False : 是否明細 = True : 紙帳計算()
        End If
    End Sub
    Private Sub 合帳_子帳號_tb_Click(sender As Object, e As EventArgs) Handles 合帳_子帳號_tb.Click
        If 客戶_tb.Text = "" Then : Else
            是否子明細 = True : 是否明細 = True : 紙帳計算()
        End If
    End Sub
    Private Sub 老闆_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 老闆_cb.SelectedIndexChanged
        Set_客戶下清單() : Set_流水帳清單1()
    End Sub
    Private Sub 有無資料判斷()
        '----符合
        資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
        If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
            If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
            ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
            ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
            End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
            SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
        ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
            '----少1天
            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
            資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
            If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                MsgBox("系統中的帳務是 [" & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & "] 到 [" &
                                                               Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") & "] 。
所選期末日期是 [" & Strings.Format(結束日期2_dtp.Value, "yyyy-MM-dd") & "] 如需要更新帳務請到明細表中導入!!")
                If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
            ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                '----少2天
                結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
                資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                    MsgBox("系統中的帳務是 [" & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & "] 到 [" &
                                                               Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") & "] 。
所選期末日期是 [" & Strings.Format(結束日期2_dtp.Value, "yyyy-MM-dd") & "] 如需要更新帳務請到明細表中導入!!")
                    If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                    ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                    ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                    End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                    SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
                ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                    '----少3天
                    結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
                    資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                    If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                        MsgBox("系統中的帳務是 [" & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & "] 到 [" &
                                                               Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") & "] 。
所選期末日期是 [" & Strings.Format(結束日期2_dtp.Value, "yyyy-MM-dd") & "] 如需要更新帳務請到明細表中導入!!")
                        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                        End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                        SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
                    ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                        '----少4天
                        結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
                        資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                        If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                            MsgBox("系統中的帳務是 [" & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & "] 到 [" &
                                                               Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") & "] 。
所選期末日期是 [" & Strings.Format(結束日期2_dtp.Value, "yyyy-MM-dd") & "] 如需要更新帳務請到明細表中導入!!")
                            If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                            ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                            ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                            End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                            SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
                        ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                            '----少5天
                            結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
                            資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                            If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                                MsgBox("系統中的帳務是 [" & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & "] 到 [" &
                                                               Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") & "] 。
所選期末日期是 [" & Strings.Format(結束日期2_dtp.Value, "yyyy-MM-dd") & "] 如需要更新帳務請到明細表中導入!!")
                                If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                                ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                                ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                                End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                                SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
                            ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                                '----少6天
                                結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
                                資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                                If 資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                                    MsgBox("系統中的帳務是 [" & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & "] 到 [" &
                                                               Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") & "] 。
所選期末日期是 [" & Strings.Format(結束日期2_dtp.Value, "yyyy-MM-dd") & "] 如需要更新帳務請到明細表中導入!!")
                                    If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                                    ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                                    ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                                    End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                                    SQL_流水帳指定周日月() : Set_客戶下清單() : Set_流水帳清單1()
                                ElseIf 資料_cb.Text <> Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd") Then
                                    結束日期_dtp.Value = 結束日期2_dtp.Value : 開始日期_dtp.Value = 開始日期2_dtp.Value : MsgBox("所選的時間區間無帳務明細，請到帳務明細表導入帳務資料!!")
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 選取1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 選取1_ch.Click
        If 選取1_ch.Checked = False Then : 暫不計算 = False : Else : 暫不計算 = True : End If
    End Sub
    Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
        有無資料判斷() : 暫不計算 = False : 選取1_ch.Checked = False
    End Sub
    Private Sub 天_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 天_ch.Click
        天_ch.Checked = True : 周_ch.Checked = False : 月_ch.Checked = False
        DA1_bt.Text = "上一日" : DA2_bt.Text = "本日" : DA3_bt.Text = "下一日"
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
        End If : DA2_bt.PerformClick() : Set_日期清單()
    End Sub
    Private Sub 周_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 周_ch.Click
        天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False
        DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
        End If : DA2_bt.PerformClick() : Set_日期清單()
    End Sub
    Private Sub 月_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 月_ch.Click
        開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
        DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
        '-------------日期二----------------------------------------------------------------------------------------
        DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
        結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)

        天_ch.Checked = False : 周_ch.Checked = False : 月_ch.Checked = True
        DA1_bt.Text = "上一月" : DA2_bt.Text = "本月" : DA3_bt.Text = "下一月"
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
        End If : DA2_bt.PerformClick() : Set_日期清單()
    End Sub
    Private Sub DA1_bt_Click(sender As Object, e As EventArgs) Handles DA1_bt.Click
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
            開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 結束日期_dtp.Value = 開始日期_dtp.Value
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then
            If 開始日期_dtp.Value >= 本周周一 Then
                開始日期_dtp.Value = 本周周一.AddDays(-7) : 結束日期_dtp.Value = 本周周一.AddDays(-1)
            ElseIf 開始日期_dtp.Value < 本周周一 Then
                結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7)
            End If
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then
            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(-1)
            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        End If
    End Sub
    Private Sub DA2_bt_Click(sender As Object, e As EventArgs) Handles DA2_bt.Click
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then
            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
            Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)
            If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)
            ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)
            ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)
            ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)
            ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)
            ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)
            End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = Today()
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then
            開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        End If
    End Sub
    Private Sub DA3_bt_Click(sender As Object, e As EventArgs) Handles DA3_bt.Click
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
            開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(+1) : 結束日期_dtp.Value = 開始日期_dtp.Value
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then
            If 開始日期_dtp.Value <= 本周周一 Then
                開始日期_dtp.Value = 本周周一.AddDays(+7) : 結束日期_dtp.Value = 本周周一.AddDays(+13)
            ElseIf 開始日期_dtp.Value > 本周周一 Then
                結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+13) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(+7)
            End If
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then
            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1)
            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value
            If 暫不計算 = False Then : 有無資料判斷() : End If
        End If
    End Sub
    Private Sub Delete_bTlick(sender As Object, e As EventArgs) Handles Delete_bT.Click
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
            ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
            ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
            End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
            Set_客戶下清單() : SQL_LOG_刪除() : SQL_流水帳_清除() : Set_日期清單()
            SQL_流水帳上繳()
            老闆_cb.Items.Clear() : 老闆_cb.Items.Add("") : While (dr.Read()) : 老闆_cb.Items.Add(dr("上繳源")) : End While : conn.Close()
            SQL_流水帳商品()
            商品_cb.Items.Clear() : 商品_cb.Items.Add("") : While (dr.Read()) : 商品_cb.Items.Add(dr("商品")) : End While : conn.Close()
            資料_cb.SelectedIndex = 0
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        SQL_下行客戶流水號最後一筆()
        If dr.Read() Then : GP = Double.Parse(Strings.Right(dr("流水號").ToString, 6)) : Else : GP = 0 : End If : conn.Close()
        Dim 數量 As Integer
        Set_客戶下清單()
        If 客戶下_dgv.Rows.Count = 0 Then
            資料數 = 流水帳_dgv.Rows.Count
            For I As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                GP += 1 : MyModule1.進度條()
                '----------------------自动生成流水号-------------------------------------------------------------------------
                If GP < 10 Then : GPP = "GA" & "00000" & GP
                ElseIf GP > 9 And GP < 100 Then : GPP = "GA" & "0000" & GP
                ElseIf GP > 99 And GP < 1000 Then : GPP = "GA" & "000" & GP
                ElseIf GP > 999 And GP < 10000 Then : GPP = "GA" & "00" & GP
                ElseIf GP > 9999 And GP < 100000 Then : GPP = "GA" & "0" & GP
                ElseIf GP > 999999 Then : GPP = "GA" & GP : End If

                PA = 流水帳_dgv.Rows(I).Cells("客帳").Value.ToString : PA2 = 流水帳_dgv.Rows(I).Cells("帳戶").Value.ToString
                PA1 = 流水帳_dgv.Rows(I).Cells("網址").Value.ToString : PA3 = GPP : PA4 = ""
                SQL_流水帳_帳號第一次驗證()
                If dr.Read() Then
                    If IsDBNull(dr("首次抓帳")) = True Then
                        SQL_流水帳_客戶下新增_非首() : 數量 += 1
                    Else
                        If dr("首次抓帳") = "0" Then
                            SQL_流水帳_客戶下新增_非首() : 數量 += 1
                        ElseIf dr("首次抓帳") = "1" Then
                            SQL_流水帳_客戶下新增_首次() : 數量 += 1
                        End If
                    End If
                End If
            Next
        Else
            資料數 = 流水帳_dgv.Rows.Count * 2
            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                MyModule1.進度條()
                For ii As Integer = 0 To 客戶下_dgv.Rows.Count - 1
                    If 流水帳_dgv("按鈕", i).Value = False Then
                        If 流水帳_dgv("客帳", i).Value.ToString.ToLower() = 客戶下_dgv("客戶帳號", ii).Value.ToString.ToLower() And
                           流水帳_dgv("網址", i).Value.ToString.ToLower() = 客戶下_dgv("網址", ii).Value.ToString.ToLower() And
                           流水帳_dgv("帳戶", i).Value.ToString.ToLower() = 客戶下_dgv("帳號", ii).Value.ToString.ToLower() Then
                            流水帳_dgv("按鈕", i).Value = True
                        End If
                    End If
                Next
            Next
            For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                MyModule1.進度條()
                If 流水帳_dgv("按鈕", i).Value = False Then
                    GP += 1
                    '----------------------自动生成流水号-------------------------------------------------------------------------
                    If GP < 10 Then : GPP = "GA" & "00000" & GP
                    ElseIf GP > 9 And GP < 100 Then : GPP = "GA" & "0000" & GP
                    ElseIf GP > 99 And GP < 1000 Then : GPP = "GA" & "000" & GP
                    ElseIf GP > 999 And GP < 10000 Then : GPP = "GA" & "00" & GP
                    ElseIf GP > 9999 And GP < 100000 Then : GPP = "GA" & "0" & GP
                    ElseIf GP > 999999 Then : GPP = "GA" & GP : End If

                    PA = 流水帳_dgv.Rows(i).Cells("客帳").Value.ToString : PA2 = 流水帳_dgv.Rows(i).Cells("帳戶").Value.ToString
                    PA1 = 流水帳_dgv.Rows(i).Cells("網址").Value.ToString : PA3 = GPP : PA4 = 流水帳_dgv("客名", i).Value.ToString
                    SQL_流水帳_帳號第一次驗證()
                    If dr.Read() Then
                        If IsDBNull(dr("首次抓帳")) = True Then
                            SQL_流水帳_客戶下新增_非首() : 數量 += 1
                        Else
                            If dr("首次抓帳") = "0" Then
                                SQL_流水帳_客戶下新增_非首() : 數量 += 1
                            ElseIf dr("首次抓帳") = "1" Then
                                SQL_流水帳_客戶下新增_首次() : 數量 += 1
                            End If
                        End If
                    End If
                End If
            Next
        End If
        If 數量 = 0 Then : MsgBox("比對完成，沒有新的客戶資料需要寫入!!!")
        Else : MsgBox("比對存檔完成，已經自動寫入 " & 數量 & "筆新的客戶資料，請到基本資料處指定客戶!!!")
        End If
        If 不用WEB = True Then : GA_ERP_SYS_Old.ToolStripProgressBar1.Value = 0 : Else : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : End If : 最終數 = 0
    End Sub
    '--------------------------驗證選項----------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LOG檔_bt_Click(sender As Object, e As EventArgs) Handles LOG檔_bt.Click
        If L50.Visible = False Then
            L50.Visible = True : 流水帳_dgv.Visible = False : 客戶下_dgv.Visible = False : 彙總1_dgv.Visible = False : L50.BringToFront()
            If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 2 : Else : GA_ERP_SYS.WindowState = 2 : End If
        Else : L50.Visible = False : If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 0 : Else : GA_ERP_SYS.WindowState = 0 : End If : End If
    End Sub
    Private Sub 流水帳_bt_Click(sender As Object, e As EventArgs) Handles 流水帳_bt.Click
        If 流水帳_dgv.Visible = False Then
            流水帳_dgv.Visible = True : L50.Visible = False : 客戶下_dgv.Visible = False : 彙總1_dgv.Visible = False : 流水帳_dgv.BringToFront()
            If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 2 : Else : GA_ERP_SYS.WindowState = 2 : End If
        Else : 流水帳_dgv.Visible = False : If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 0 : Else : GA_ERP_SYS.WindowState = 0 : End If : End If
    End Sub
    Private Sub 客戶資料_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料_bt.Click
        If 客戶下_dgv.Visible = False Then
            客戶下_dgv.Visible = True : L50.Visible = False : 流水帳_dgv.Visible = False : 彙總1_dgv.Visible = False : 客戶下_dgv.BringToFront()
            If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 2 : Else : GA_ERP_SYS.WindowState = 2 : End If
        Else : 客戶下_dgv.Visible = False : If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 0 : Else : GA_ERP_SYS.WindowState = 0 : End If : End If
    End Sub
    Private Sub 商品彙總_bt_Click(sender As Object, e As EventArgs) Handles 商品彙總_bt.Click
        If 彙總1_dgv.Visible = False Then
            彙總1_dgv.Visible = True : 客戶下_dgv.Visible = False : L50.Visible = False : 流水帳_dgv.Visible = False : 彙總1_dgv.BringToFront()
            If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 2 : Else : GA_ERP_SYS.WindowState = 2 : End If
        Else : 彙總1_dgv.Visible = False : If 不用WEB = True Then : GA_ERP_SYS_Old.WindowState = 0 : Else : GA_ERP_SYS.WindowState = 0 : End If : End If
    End Sub
    Private Sub R_bT_Click(sender As Object, e As EventArgs) Handles R_bT.Click
        SQL_SQL_自動導入判斷_關閉()
    End Sub
    Private Sub 重新導入_bt_Click(sender As Object, e As EventArgs) Handles 重新導入_bt.Click
        If 結束日期_dtp.Value > Today() Then
            MsgBox("日期條件大於今日，網站無法給出資料!!!!")
        Else
            Dim 執行 As Boolean
            For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
                If 彙總_dgv.Rows(i).Cells("狀態").Value.ToString = "X" Or 彙總_dgv.Rows(i).Cells("狀態").Value.ToString = "NA" Then
                    PA1 = 彙總_dgv.Rows(i).Cells("網址").Value.ToString : PA2 = 彙總_dgv.Rows(i).Cells("帳號").Value.ToString
                    PA3 = 彙總_dgv.Rows(i).Cells("密碼").Value.ToString : SQL_商客資料暫存檔_新增() : 執行 = True
                End If
            Next

            If 執行 = True Then
                SQL_自動導入判斷()
                If dr.Read() Then
                    If dr("正在自動導入中").ToString = "YES" Then
                        MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
                    Else
                        conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
                        PA1 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                        SQL_查詢日期清空() : SQL_LOG_刪除1() : SQL_查詢日期寫入1()
                        '-----------------------------------------------------------------------
                        Dim FilePath As String = "A.txt"
                        Try
                            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
                                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                                    sw.Flush()
                                End Using
                            End Using
                        Catch ex As Exception
                        End Try
                        Timer1.Enabled = True
                    End If
                End If
            Else
                MsgBox("沒有需要重新導入的網址與帳號!!")
            End If
        End If
    End Sub
    Private Sub 自動導入_bt_Click(sender As Object, e As EventArgs) Handles 自動導入_bt.Click
        If 結束日期_dtp.Value > Today() Then
            MsgBox("日期條件大於今日，網站無法給出資料!!!!")
        Else
            If 流水帳_dgv.Rows.Count > 0 Then
                Dim aa As MsgBoxResult = MsgBox("目前雲端已有網站資料是否重新導入?", MsgBoxStyle.OkCancel)
                If aa = MsgBoxResult.Ok Then
                    自動導入啟動()
                End If
            Else
                自動導入啟動()
            End If
        End If
    End Sub
    Private Sub 自動導入啟動()
        SQL_自動導入判斷()
        If dr.Read() Then
            If dr("正在自動導入中").ToString = "YES" Then
                MsgBox("自動導入進行中，不可以重複導入!!") : conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
                PA1 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                SQL_流水帳同日期清除() : SQL_查詢日期清空() : SQL_LOG_刪除1() : SQL_查詢日期寫入()
                '-----------------------------------------------------------------------
                Dim FilePath As String = "A.txt"
                Try
                    Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
                        Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                            sw.Flush()
                        End Using
                    End Using
                Catch ex As Exception
                End Try
                Timer1.Enabled = True
            End If
        End If
    End Sub
    Private Sub 進階控制_bt_Click(sender As Object, e As EventArgs) Handles 進階控制_bt.Click
        If PictureBox1.Visible = False Then : PictureBox1.Visible = True : Else : PictureBox1.Visible = False : End If
    End Sub
    Private Sub Delete_bT_Click(sender As Object, e As EventArgs) Handles Delete_bT.Click
        SQL_SQL_自動導入判斷_關閉()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        SQL_自動導入判斷()
        If dr.Read() Then
            If dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
                If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月" : End If
                Timer1.Enabled = False
                電板LOG檔.ShowDialog() : SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空() : SQL_商客資料暫存檔_刪除() : Set_日期清單()
                資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                存檔_bt.PerformClick()
            End If : conn.Close()
        End If
    End Sub
    Private Sub 批次導入_bt_Click(sender As Object, e As EventArgs) Handles 批次導入_bt.Click
        If 結束日期_dtp.Value > Today() Then
            MsgBox("日期條件大於今日，網站無法給出資料!!!!")
        Else
            R_bT.PerformClick() : 批次 = 0 : Timer2.Enabled = True
        End If
    End Sub
    Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click
        網址_tb.Text = "" : 重讀_bt.PerformClick()
    End Sub
    Private Sub 上下所水分流表_bt_Click(sender As Object, e As EventArgs) Handles 上下所水分流表_bt.Click
        If Panel1.Visible = False Then
            Panel1.Visible = True : Panel2.Visible = False
        Else
            Panel1.Visible = False : Panel2.Visible = True
        End If
    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        SQL_自動導入判斷()
        If dr.Read() Then
            If dr("正在自動導入中").ToString = "YES" Then
                conn.Close() : dr.Close()
            ElseIf dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
                批次 += 1
                If 批次 > 批次_nud.Value Then
                    Timer2.Enabled = False
                    SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空()
                    MsgBox("批量自動導入 " & 批次 - 1 & " 次，完成!!!") : conn.Close() : dr.Close()
                    If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                    ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                    ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月" : End If : Set_日期清單()
                    資料_cb.Text = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                    存檔_bt.PerformClick()
                Else
                    conn.Close() : dr.Close() : SQL_SQL_自動導入判斷_開啟()
                    PA1 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : PA2 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                    If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
                    ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then : 天周月 = "周"
                    ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then : 天周月 = "月"
                    End If : 開始D = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 結束D = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                    SQL_流水帳同日期清除() : SQL_查詢日期清空() : SQL_LOG_刪除1() : SQL_查詢日期寫入()
                    '-----------------------------------------------------------------------
                    Dim FilePath As String = "A.txt"
                    Try
                        Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
                            Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                                sw.Flush()
                            End Using
                        End Using
                    Catch ex As Exception
                    End Try

                    If 天_ch.Checked = True Then
                        結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 結束日期_dtp.Value
                    ElseIf 周_ch.Checked = True Then
                        If DateDiff("d", 開始日期_dtp.Value, 結束日期_dtp.Value) <> 6 Then
                            DA2_bt.PerformClick()
                        End If
                        結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-7) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7)
                    ElseIf 月_ch.Checked = True Then
                        If DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) < 28 And DateDiff("d", 開始日期1_dtp.Value, 結束日期1_dtp.Value) > 31 Then
                            DA2_bt.PerformClick()
                        End If
                        結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
                        結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1)
                        DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
                        DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
                        結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
                    End If
                End If
            End If
        End If
    End Sub
    Dim 已超出 As Boolean
    Private Sub 彙總1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 彙總1_dgv.MouseUp
        'If 彙總1_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總1_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總1_dgv.SelectedCells(0).RowIndex) : End If
        If 彙總1_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 彙總1_dgv.SelectedCells.Count > 0 Then
            If 彙總1_dgv.SelectedCells(0).ColumnIndex >= 1 And 彙總1_dgv.SelectedCells(0).ColumnIndex <= 3 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 彙總1_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 彙總1_dgv.Rows(彙總1_dgv.SelectedCells.Item(i).RowIndex).Cells(彙總1_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : 應付_tb.Text = Strings.Format(x, "#,##0")
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") : End If
                Else
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
                End If
            Else : 已超出 = True
                If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
            End If
        End If
    End Sub
    Private Sub 彙總2_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 上繳合帳_dgv.MouseUp
        'If 彙總2_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總2_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總2_dgv.SelectedCells(0).RowIndex) : End If
        If 上繳合帳_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 上繳合帳_dgv.SelectedCells.Count > 0 Then
            If 上繳合帳_dgv.SelectedCells(0).ColumnIndex >= 2 And 上繳合帳_dgv.SelectedCells(0).ColumnIndex <= 4 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 上繳合帳_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 上繳合帳_dgv.Rows(上繳合帳_dgv.SelectedCells.Item(i).RowIndex).Cells(上繳合帳_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : 應付_tb.Text = Strings.Format(x, "#,##0")
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") : End If
                Else
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
                End If
            Else : 已超出 = True
                If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
            End If
        End If
    End Sub
    Private Sub 彙總3_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 所得合帳2_dgv.MouseUp
        'If 彙總3_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總3_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總3_dgv.SelectedCells(0).RowIndex) : End If
        If 所得合帳2_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 所得合帳2_dgv.SelectedCells.Count > 0 Then
            If 所得合帳2_dgv.SelectedCells(0).ColumnIndex >= 1 And 所得合帳2_dgv.SelectedCells(0).ColumnIndex <= 3 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 所得合帳2_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 所得合帳2_dgv.Rows(所得合帳2_dgv.SelectedCells.Item(i).RowIndex).Cells(所得合帳2_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : 應付_tb.Text = Strings.Format(x, "#,##0")
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") : End If
                Else
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
                End If
            Else : 已超出 = True
                If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
            End If
        End If
    End Sub
    Private Sub 自定義新增_bt_Click(sender As Object, e As EventArgs) Handles 自定義新增_bt.Click
        If 自定義客戶_tb.Text = "" Or 自定義欄位_ch.Text = "" Then : MsgBox("請先選擇需要自定義的客戶!!") : Else
            PA49 = 自定義客戶_tb.Text : PA48 = 自定義欄位_ch.Text : SQL_自定義報表_查詢()
            If dr.Read Then : MsgBox("該客戶自定義欄位已經建立，無法重複建立!!") : Else
                PA49 = 自定義客戶_tb.Text : PA48 = 自定義欄位_ch.Text : SQL_自定義報表_新增() : MsgBox("新增完成") : conn.Close() : 自定義報表() : Set_群組()
            End If
        End If
    End Sub
    Private Sub 自定義刪除_bt_Click(sender As Object, e As EventArgs) Handles 自定義刪除_bt.Click
        If 自定義客戶_tb.Text = "" Or 自定義欄位_ch.Text = "" Then : MsgBox("請先選擇需要自定義的客戶!!") : Else
            Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                PA49 = 自定義客戶_tb.Text : PA48 = 自定義欄位_ch.Text : SQL_自定義報表_刪除() : MsgBox("刪除完成") : conn.Close() : 自定義報表() : Set_群組()
            End If
        End If
    End Sub
    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
            開始日期_dtp.Value = 結束日期_dtp.Value
        End If
    End Sub
    Private Sub 彙總5_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 水差合帳_dgv.MouseUp
        'If 彙總5_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總5_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總5_dgv.SelectedCells(0).RowIndex) : End If
        If 水差合帳_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 水差合帳_dgv.SelectedCells.Count > 0 Then
            If 水差合帳_dgv.SelectedCells(0).ColumnIndex >= 2 And 水差合帳_dgv.SelectedCells(0).ColumnIndex <= 3 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 水差合帳_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 水差合帳_dgv.Rows(水差合帳_dgv.SelectedCells.Item(i).RowIndex).Cells(水差合帳_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : 應付_tb.Text = Strings.Format(x, "#,##0")
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") : End If
                Else
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
                End If
            Else : 已超出 = True
                If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
            End If
        End If
    End Sub
    Private Sub 客戶_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 下收合帳_dgv.MouseUp
        'If 客戶_dgv.SelectedCells.Count = 1 Then : MsgBox(客戶_dgv.SelectedCells(0).ColumnIndex & "  " & 客戶_dgv.SelectedCells(0).RowIndex) : End If
        If 下收合帳_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 下收合帳_dgv.SelectedCells.Count > 0 Then
            If 下收合帳_dgv.SelectedCells(0).ColumnIndex >= 2 And 下收合帳_dgv.SelectedCells(0).ColumnIndex <= 3 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 下收合帳_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 下收合帳_dgv.Rows(下收合帳_dgv.SelectedCells.Item(i).RowIndex).Cells(下收合帳_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : 應付_tb.Text = Strings.Format(x, "#,##0")
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") : End If
                Else
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
                End If
            Else : 已超出 = True
                If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
            End If
        End If
    End Sub
    Private Sub 合帳_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 合帳_dgv.MouseUp
        'If 合帳_dgv.SelectedCells.Count = 1 Then : MsgBox(合帳_dgv.SelectedCells(0).ColumnIndex & "  " & 合帳_dgv.SelectedCells(0).RowIndex) : End If
        If 合帳_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
        If 合帳_dgv.SelectedCells.Count > 0 Then
            If 合帳_dgv.SelectedCells(0).ColumnIndex >= 6 And 合帳_dgv.SelectedCells(0).ColumnIndex <= 12 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 合帳_dgv.SelectedCells.Count - 1
                        Dim 變數 As String = "" : Dim 取變數 As String
                        取變數 = 合帳_dgv.Rows(合帳_dgv.SelectedCells.Item(i).RowIndex).Cells(合帳_dgv.SelectedCells.Item(i).ColumnIndex).Value
                        For ii As Integer = 1 To Len(取變數)
                            If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If
                        Next : x += Val(變數)
                    Next i : 應付_tb.Text = Strings.Format(x, "#,##0")
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0") : End If
                Else
                    If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                    Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
                End If
            Else : 已超出 = True
                If 不用WEB = True Then : GA_ERP_SYS_Old.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                Else : GA_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
            End If
        End If
    End Sub
    Private Sub 異常設定_bt_Click(sender As Object, e As EventArgs) Handles 異常設定_bt.Click
        設定異常表.ShowDialog()
    End Sub
    Private Sub 合帳_dgv_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 合帳_dgv.CellMouseClick
        合帳計算()
    End Sub
    Private Sub 合帳計算()
        Dim 數值 As Integer = 0
        For i As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
            數值 += 紙帳非前期_dgv("交收金額", i).Value
        Next
        For i As Integer = 0 To 紙帳前期_dgv.Rows.Count - 1
            數值 += 紙帳前期_dgv("交收金額", i).Value
        Next
        If 紙帳存檔 = True And 數值 <> 0 Then
            Dim aa As MsgBoxResult = MsgBox("您的手工帳資料尚未存檔，是否需要存檔??", MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                手工帳務存檔_bt.PerformClick()
            End If
        End If
        紙帳存檔 = False

        'If 合帳_dgv.SelectedCells.Count = 1 Then : End If
        '------------------數值正負反--------------------------------------------------------------------------------------------------------------------------
        If 合帳_dgv.SelectedCells(0).ColumnIndex = 1 Then
            If 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
            ElseIf 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("付反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
            End If
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 2 Then
            If 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
            ElseIf 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("收反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
            End If
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 3 Then
            If 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
            ElseIf 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("所反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
            End If
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 4 Then
            If 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
            ElseIf 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("水反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
            End If
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 5 Then
            If 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True
            ElseIf 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = True Then : 合帳_dgv("紅反", 合帳_dgv.SelectedCells(0).RowIndex).Value = False
            End If
        End If
        選擇記憶 = 合帳_dgv.SelectedCells(0).RowIndex
        '------------------自定義資料取帳----------------------------------------------------------------------------------------------------------------------
        If 合帳_dgv.SelectedCells(0).ColumnIndex = 6 Then : 自定義欄位_ch.Text = "紙帳"
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 7 Then : 自定義欄位_ch.Text = "應付"
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 8 Then : 自定義欄位_ch.Text = "應收"
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 9 Then : 自定義欄位_ch.Text = "個人所得"
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 10 Then : 自定義欄位_ch.Text = "水差"
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 11 Then : 自定義欄位_ch.Text = "前期"
        ElseIf 合帳_dgv.SelectedCells(0).ColumnIndex = 12 Then : 自定義欄位_ch.Text = "交收合計"
        End If
        自定義客戶_tb.Text = 合帳_dgv("客戶", 選擇記憶).Value.ToString
        '------------------數值正負反--------------------------------------------------------------------------------------------------------------------------
        For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 上繳名_dgv("上繳", II).Value.ToString Then
                If 合帳_dgv("付反", 選擇記憶).Value = False Then
                    合帳_dgv("應付", 選擇記憶).Value = 上繳名_dgv("交割金額", II).Value.ToString
                    合帳_dgv("應付1", 選擇記憶).Value = 上繳名_dgv("交割金額", II).Value.ToString
                Else
                    合帳_dgv("應付", 選擇記憶).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
                    合帳_dgv("應付1", 選擇記憶).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
                End If
            End If
        Next
        For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 下收名_dgv("下收", II).Value.ToString Then
                If 合帳_dgv("收反", 選擇記憶).Value = False Then
                    合帳_dgv("應收", 選擇記憶).Value = 下收名_dgv("交割金額", II).Value.ToString
                    合帳_dgv("應收1", 選擇記憶).Value = 下收名_dgv("交割金額", II).Value.ToString
                Else
                    合帳_dgv("應收", 選擇記憶).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
                    合帳_dgv("應收1", 選擇記憶).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
                End If
            End If
        Next
        '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
        合帳_dgv("個人所得", 選擇記憶).Value = "0" : 合帳_dgv("個人所得1", 選擇記憶).Value = "0"
        For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
                If 合帳_dgv("所反", 選擇記憶).Value = False Then
                    合帳_dgv("個人所得", 選擇記憶).Value = 所得名_dgv("交割金額", II).Value.ToString
                    合帳_dgv("個人所得1", 選擇記憶).Value = 所得名_dgv("交割金額", II).Value.ToString
                Else
                    合帳_dgv("個人所得", 選擇記憶).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                End If
            End If
        Next
        For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
                If 合帳_dgv("所反", 選擇記憶).Value = False Then
                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 所得名1_dgv("交割金額", II).Value.ToString
                Else
                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                End If
            End If
        Next
        For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
                If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                Else
                    合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                    合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                End If
            End If
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
                If 合帳_dgv("紅反", 選擇記憶).Value = False Then
                    If 紅利分表_dgv("反轉", II).Value = False Then
                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                    Else
                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                    End If
                Else
                    If 紅利分表_dgv("反轉", II).Value = False Then
                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value * -1
                    Else
                        合帳_dgv("個人所得", 選擇記憶).Value = Val(合帳_dgv("個人所得", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                        合帳_dgv("個人所得1", 選擇記憶).Value = Val(合帳_dgv("個人所得1", 選擇記憶).Value) + 紅利分表_dgv("紅利", II).Value
                    End If
                End If
            End If
        Next
        Dim 水差加總 As Boolean = False
        For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                If 合帳_dgv("所反", 選擇記憶).Value = False Then
                    合帳_dgv("水差", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString
                    合帳_dgv("水差1", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
                Else
                    合帳_dgv("水差", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
                    合帳_dgv("水差1", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
                End If
            End If
        Next
        For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
            If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
                If 合帳_dgv("所反", 選擇記憶).Value = False Then
                    If 水差加總 = False Then
                        合帳_dgv("水差", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
                        合帳_dgv("水差1", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
                    Else
                        If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
                        If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
                        合帳_dgv("水差", 選擇記憶).Value = CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                        合帳_dgv("水差1", 選擇記憶).Value = CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                    End If
                Else
                    If 水差加總 = False Then
                        合帳_dgv("水差", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                        合帳_dgv("水差1", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                    Else
                        If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
                        If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
                        合帳_dgv("水差", 選擇記憶).Value = (CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                        合帳_dgv("水差1", 選擇記憶).Value = (CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                    End If
                End If
            End If
        Next
        If Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
            合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value) * -1
            合帳_dgv.Rows(選擇記憶).Cells("應收1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) * -1
            合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value) * -1
            合帳_dgv.Rows(選擇記憶).Cells("應付1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) * -1
        ElseIf Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) = 0 Then
            合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value) * -1
            合帳_dgv.Rows(選擇記憶).Cells("應收1").Value = Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) * -1
        End If

        客戶_tb.Text = 合帳_dgv("客戶", 選擇記憶).Value.ToString
        If Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
            上繳反轉 = True
        ElseIf Val(合帳_dgv.Rows(選擇記憶).Cells("應收1").Value) = 0 And Val(合帳_dgv.Rows(選擇記憶).Cells("應付1").Value) <> 0 Then
            上繳反轉 = False
        End If
        手工帳資料自動判斷() : 紙帳計算() : 手帳計算()

        合帳_dgv.Rows(選擇記憶).Cells("應付").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應付").Value), "#,##0")
        合帳_dgv.Rows(選擇記憶).Cells("應收").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("應收").Value), "#,##0")
        合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("個人所得").Value), "#,##0")
        合帳_dgv.Rows(選擇記憶).Cells("水差").Value = Strings.Format(Val(合帳_dgv.Rows(選擇記憶).Cells("水差").Value), "#,##0")
    End Sub
    Private Sub 合帳_bt_Click(sender As Object, e As EventArgs) Handles 合帳_bt.Click
        If 彙總_dgv.Visible = True Then : 彙總_dgv.Visible = False : 合帳_dgv.Visible = True : End If
        If 合帳_dgv.Visible = True Then
            Dim DS1 As New DataSet : 電板客戶_dgv.DataSource = Nothing : DS1.Clear()
            電板客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            電板客戶_dgv.ColumnHeadersHeight = 25
            電板客戶_dgv.AllowUserToAddRows = False
            SQL_電板客戶查詢()
            da.Fill(DS1) : 電板客戶_dgv.DataSource = DS1.Tables(0) : conn.Close()

            Dim 合帳數, MN1, MN2 As Integer : Dim 不需加 As Boolean : Dim 暫存(300) As String
            For I As Integer = 0 To 上繳名_dgv.Rows.Count - 1 : 合帳數 += 1 : 暫存(MN1) = 上繳名_dgv.Rows(I).Cells("上繳").Value.ToString : MN1 += 1 : Next
            MN2 = MN1
            For I As Integer = 0 To 下收名_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 - 1
                    不需加 = False : If 下收名_dgv.Rows(I).Cells("下收").Value.ToString = 暫存(II) Or 下收名_dgv.Rows(I).Cells("下收").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 下收名_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 下收名_dgv.Rows(I).Cells("下收").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 所得名_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False : If 所得名_dgv.Rows(I).Cells("所得").Value.ToString = 暫存(II) Or 所得名_dgv.Rows(I).Cells("所得").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 所得名_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 所得名_dgv.Rows(I).Cells("所得").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 所得名1_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False : If 所得名1_dgv.Rows(I).Cells("所得").Value.ToString = 暫存(II) Or 所得名1_dgv.Rows(I).Cells("所得").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 所得名1_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 所得名1_dgv.Rows(I).Cells("所得").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 水差名_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False : If 水差名_dgv.Rows(I).Cells("水差").Value.ToString = 暫存(II) Or 水差名_dgv.Rows(I).Cells("水差").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 水差名_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名_dgv.Rows(I).Cells("水差").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False : If 水差名1_dgv.Rows(I).Cells("水差").Value.ToString = 暫存(II) Or 水差名1_dgv.Rows(I).Cells("水差").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 水差名1_dgv.Rows(I).Cells("交割金額").Value.ToString <> "0" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 水差名1_dgv.Rows(I).Cells("水差").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False : If 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = 暫存(II) Or 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 紅利分表_dgv.Rows(I).Cells("紅利").Value.ToString <> "0" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False
                    If 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString = 暫存(II) Then : 不需加 = True : Exit For : End If
                Next
                If 紅利分表_dgv.Rows(I).Cells("股東").Value.ToString = "" Then
                    If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紅利分表_dgv.Rows(I).Cells("所得戶").Value.ToString : End If
                End If
            Next

            MN2 = MN1
            For I As Integer = 0 To 紙帳總表_dgv.Rows.Count - 1
                For II As Integer = 0 To MN2 + 1
                    不需加 = False : If 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString = 暫存(II) Or 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString = "" Then : 不需加 = True : Exit For : End If
                Next
                If 不需加 = False Then : MN1 += 1 : MN2 += 1 : 合帳數 += 1 : 暫存(MN1) = 紙帳總表_dgv.Rows(I).Cells("客戶").Value.ToString : End If
            Next
            NU1 = 合帳數 + 1

            Dim DS As New DataSet : 合帳_dgv.DataSource = Nothing : DS.Clear()
            合帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            合帳_dgv.ColumnHeadersHeight = 40
            合帳_dgv.AllowUserToAddRows = False
            SQL_彙總合帳使用()
            da.Fill(DS) : 合帳_dgv.DataSource = DS.Tables(0) : conn.Close()
            TextBox1.Text = 合帳_dgv.Rows.Count - 1
            合帳_dgv.Columns("應付").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("應收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("交收合計").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("紙帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("前期").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            合帳_dgv.Columns("應付1").Visible = False : 合帳_dgv.Columns("應收1").Visible = False : 合帳_dgv.Columns("交收合計1").Visible = False
            合帳_dgv.Columns("水差1").Visible = False : 合帳_dgv.Columns("個人所得1").Visible = False
            合帳_dgv.Columns("客戶").FillWeight = 85 : 合帳_dgv.Columns("水差").FillWeight = 65 : 合帳_dgv.Columns("前期").FillWeight = 90 : 合帳_dgv.Columns("紙帳").FillWeight = 90

            合帳_dgv.Columns("付反").FillWeight = 35 : 合帳_dgv.Columns("收反").FillWeight = 35 : 合帳_dgv.Columns("所反").FillWeight = 35
            合帳_dgv.Columns("水反").FillWeight = 35 : 合帳_dgv.Columns("紅反").FillWeight = 35
            If 合帳_dgv.Rows.Count > 0 Then : 控制隱藏讀取() : End If
            合帳_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill : 合帳1_tb.Text = "0"
            For i As Integer = 0 To 15 : 合帳_dgv.Columns(i).ReadOnly = True : Next

            For i As Integer = 0 To 合帳_dgv.Rows.Count - 1
                合帳_dgv("客戶", i).Value = 暫存(i)
                合帳_dgv("應付", i).Value = "0" : 合帳_dgv("應收", i).Value = "0" : 合帳_dgv("個人所得", i).Value = "0" : 合帳_dgv("水差", i).Value = "0"
                合帳_dgv("應付1", i).Value = "0" : 合帳_dgv("應收1", i).Value = "0" : 合帳_dgv("個人所得1", i).Value = "0" : 合帳_dgv("水差1", i).Value = "0"
                合帳_dgv("前期", i).Value = "0" : 合帳_dgv("紙帳", i).Value = "0" : 合帳_dgv("交收合計", i).Value = "0" : 合帳_dgv("交收合計1", i).Value = "0"
                If IsDBNull(合帳_dgv("付反", i).Value) = True Then : 合帳_dgv("付反", i).Value = False : End If
                If IsDBNull(合帳_dgv("收反", i).Value) = True Then : 合帳_dgv("收反", i).Value = False : End If
                If IsDBNull(合帳_dgv("所反", i).Value) = True Then : 合帳_dgv("所反", i).Value = False : End If
                If IsDBNull(合帳_dgv("水反", i).Value) = True Then : 合帳_dgv("水反", i).Value = False : End If
                If IsDBNull(合帳_dgv("紅反", i).Value) = True Then : 合帳_dgv("紅反", i).Value = False : End If
                If 合帳_dgv("客戶", i).Value.ToString = "" Then : 合帳_dgv("客戶", i).Value = ".無資料" : End If
                If 合帳_dgv.Rows(i).Cells("客戶").Value.ToString <> "" Then
                    For II As Integer = 0 To 電板客戶_dgv.Rows.Count - 1
                        If 合帳_dgv.Rows(i).Cells("客戶").Value.ToString = 電板客戶_dgv.Rows(II).Cells("客戶").Value.ToString Then
                            合帳_dgv("付反", i).Value = 電板客戶_dgv.Rows(II).Cells("付反").Value
                            合帳_dgv("收反", i).Value = 電板客戶_dgv.Rows(II).Cells("收反").Value
                            合帳_dgv("所反", i).Value = 電板客戶_dgv.Rows(II).Cells("所反").Value
                            合帳_dgv("水反", i).Value = 電板客戶_dgv.Rows(II).Cells("水反").Value
                            合帳_dgv("紅反", i).Value = 電板客戶_dgv.Rows(II).Cells("紅反").Value : Exit For
                        End If
                    Next
                End If
            Next
            For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
                For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 上繳名_dgv("上繳", II).Value.ToString Then
                        If 合帳_dgv("付反", I).Value = False Then
                            合帳_dgv("應付", I).Value = 上繳名_dgv("交割金額", II).Value.ToString : 合帳_dgv("應付1", I).Value = 上繳名_dgv("交割金額", II).Value.ToString
                        Else
                            合帳_dgv("應付", I).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("應付1", I).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
                        End If
                    End If
                Next
                For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 下收名_dgv("下收", II).Value.ToString Then
                        If 合帳_dgv("收反", I).Value = False Then
                            合帳_dgv("應收", I).Value = 下收名_dgv("交割金額", II).Value.ToString : 合帳_dgv("應收1", I).Value = 下收名_dgv("交割金額", II).Value.ToString
                        Else
                            合帳_dgv("應收", I).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("應收1", I).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
                        End If
                    End If
                Next
                '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
                合帳_dgv("個人所得", I).Value = "0" : 合帳_dgv("個人所得1", I).Value = "0"
                For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
                        If 合帳_dgv("所反", I).Value = False Then
                            合帳_dgv("個人所得", I).Value = 所得名_dgv("交割金額", II).Value.ToString
                            合帳_dgv("個人所得1", I).Value = 所得名_dgv("交割金額", II).Value.ToString
                        Else
                            合帳_dgv("個人所得", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                            合帳_dgv("個人所得1", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                        End If
                    End If
                Next
                For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
                        If 合帳_dgv("所反", I).Value = False Then
                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
                        Else
                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                        End If
                    End If
                Next
                For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
                        If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
                        Else
                            合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                            合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                        End If
                    End If
                    If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
                        If 合帳_dgv("紅反", I).Value = False Then
                            If 紅利分表_dgv("反轉", II).Value = False Then
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
                            Else
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                            End If
                        Else
                            If 紅利分表_dgv("反轉", II).Value = False Then
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                            Else
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
                            End If
                        End If
                    End If
                Next

                Dim 水差加總 As Boolean = False
                For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                        If 合帳_dgv("所反", I).Value = False Then
                            合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString
                            合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
                        Else
                            合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
                            合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
                        End If
                    End If
                Next
                For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                    If 合帳_dgv("客戶", I).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
                        If 合帳_dgv("所反", I).Value = False Then
                            If 水差加總 = False Then
                                合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
                                合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
                            Else
                                If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
                                If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
                                合帳_dgv("水差", I).Value = CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                                合帳_dgv("水差1", I).Value = CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                            End If
                        Else
                            If 水差加總 = False Then
                                合帳_dgv("水差", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                                合帳_dgv("水差1", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                            Else
                                If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
                                If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
                                合帳_dgv("水差", I).Value = (CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                                合帳_dgv("水差1", I).Value = (CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                            End If
                        End If
                    End If
                Next
                '----------只有下收不要反帳-----------------------------------------------------------------------------------------------------------------
                If Val(合帳_dgv.Rows(I).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(I).Cells("應付1").Value) <> 0 Then
                    合帳_dgv.Rows(I).Cells("應收").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) * -1
                    合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
                    合帳_dgv.Rows(I).Cells("應付").Value = Val(合帳_dgv.Rows(I).Cells("應付").Value) * -1
                    合帳_dgv.Rows(I).Cells("應付1").Value = Val(合帳_dgv.Rows(I).Cells("應付1").Value) * -1
                ElseIf Val(合帳_dgv.Rows(I).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(I).Cells("應付1").Value) = 0 Then
                    合帳_dgv.Rows(I).Cells("應收").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) * -1
                    合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
                End If
            Next
            '-----------------自動帳務再算一次--------------------------------------------------------------------------------------------------------------
            If 自動正負反_ch.Checked = True Then
                If 依電板習慣_ch.Checked = True Then
                    For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
                        If CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
                            合帳_dgv("付反", I).Value = True : 合帳_dgv("收反", I).Value = False
                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
                        End If
                    Next
                ElseIf 依電板習慣_ch.Checked = False Then
                    For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
                        If CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) = 0 Then
                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = False
                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) <> 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
                            合帳_dgv("付反", I).Value = True : 合帳_dgv("收反", I).Value = True
                        ElseIf CInt(合帳_dgv.Rows(I).Cells("應付").Value) = 0 And CInt(合帳_dgv.Rows(I).Cells("應收").Value) <> 0 Then
                            合帳_dgv("付反", I).Value = False : 合帳_dgv("收反", I).Value = True
                        End If
                    Next
                End If
                For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
                    For II As Integer = 0 To 上繳名_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 上繳名_dgv("上繳", II).Value.ToString Then
                            If 合帳_dgv("付反", I).Value = False Then
                                合帳_dgv("應付", I).Value = 上繳名_dgv("交割金額", II).Value.ToString : 合帳_dgv("應付1", I).Value = 上繳名_dgv("交割金額", II).Value.ToString
                            Else
                                合帳_dgv("應付", I).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("應付1", I).Value = Val(上繳名_dgv("交割金額", II).Value.ToString) * -1
                            End If
                        End If
                    Next
                    For II As Integer = 0 To 下收名_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 下收名_dgv("下收", II).Value.ToString Then
                            If 合帳_dgv("收反", I).Value = False Then
                                合帳_dgv("應收", I).Value = 下收名_dgv("交割金額", II).Value.ToString : 合帳_dgv("應收1", I).Value = 下收名_dgv("交割金額", II).Value.ToString
                            Else
                                合帳_dgv("應收", I).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("應收1", I).Value = Val(下收名_dgv("交割金額", II).Value.ToString) * -1
                            End If
                        End If
                    Next
                    '----------------所得三重奏----------------------------------------------------------------------------------------------------------------------------------------------------------
                    合帳_dgv("個人所得", I).Value = "0" : 合帳_dgv("個人所得1", I).Value = "0"
                    For II As Integer = 0 To 所得名_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 所得名_dgv("所得", II).Value.ToString Then
                            If 合帳_dgv("所反", I).Value = False Then
                                合帳_dgv("個人所得", I).Value = 所得名_dgv("交割金額", II).Value.ToString
                                合帳_dgv("個人所得1", I).Value = 所得名_dgv("交割金額", II).Value.ToString
                            Else
                                合帳_dgv("個人所得", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                                合帳_dgv("個人所得1", I).Value = Val(所得名_dgv("交割金額", II).Value.ToString) * -1
                            End If
                        End If
                    Next
                    For II As Integer = 0 To 所得名1_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 所得名1_dgv("所得", II).Value.ToString Then
                            If 合帳_dgv("所反", I).Value = False Then
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 所得名1_dgv("交割金額", II).Value.ToString
                            Else
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + Val(所得名1_dgv("交割金額", II).Value.ToString) * -1
                            End If
                        End If
                    Next
                    For II As Integer = 0 To 紅利分表_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("所得戶", II).Value.ToString Then
                            If Val(紅利分表_dgv.Rows(II).Cells("股份").Value) < 0 Then
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
                            Else
                                合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                            End If
                        End If
                        If 合帳_dgv("客戶", I).Value.ToString = 紅利分表_dgv("股東", II).Value.ToString Then
                            If 合帳_dgv("紅反", I).Value = False Then
                                If 紅利分表_dgv("反轉", II).Value = False Then
                                    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                                    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
                                Else
                                    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                End If
                            Else
                                If 紅利分表_dgv("反轉", II).Value = False Then
                                    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value * -1
                                Else
                                    合帳_dgv("個人所得", I).Value = Val(合帳_dgv("個人所得", I).Value) + 紅利分表_dgv("紅利", II).Value
                                    合帳_dgv("個人所得1", I).Value = Val(合帳_dgv("個人所得1", I).Value) + 紅利分表_dgv("紅利", II).Value
                                End If
                            End If
                        End If
                    Next

                    Dim 水差加總 As Boolean = False
                    For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                            If 合帳_dgv("所反", I).Value = False Then
                                合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString
                                合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
                            Else
                                合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
                                合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
                            End If
                        End If
                    Next
                    For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
                            If 合帳_dgv("所反", I).Value = False Then
                                If 水差加總 = False Then
                                    合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
                                    合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
                                Else
                                    If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
                                    If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
                                    合帳_dgv("水差", I).Value = CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                                    合帳_dgv("水差1", I).Value = CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
                                End If
                            Else
                                If 水差加總 = False Then
                                    合帳_dgv("水差", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                                    合帳_dgv("水差1", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
                                Else
                                    If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
                                    If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
                                    合帳_dgv("水差", I).Value = (CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                                    合帳_dgv("水差1", I).Value = (CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
                                End If
                            End If
                        End If
                    Next
                    '----------只有下收不要反帳-----------------------------------------------------------------------------------------------------------------
                    If Val(合帳_dgv.Rows(I).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(I).Cells("應付1").Value) <> 0 Then
                        合帳_dgv.Rows(I).Cells("應收").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) * -1
                        合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
                        合帳_dgv.Rows(I).Cells("應付").Value = Val(合帳_dgv.Rows(I).Cells("應付").Value) * -1
                        合帳_dgv.Rows(I).Cells("應付1").Value = Val(合帳_dgv.Rows(I).Cells("應付1").Value) * -1
                    ElseIf Val(合帳_dgv.Rows(I).Cells("應收1").Value) <> 0 And Val(合帳_dgv.Rows(I).Cells("應付1").Value) = 0 Then
                        合帳_dgv.Rows(I).Cells("應收").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) * -1
                        合帳_dgv.Rows(I).Cells("應收1").Value = Val(合帳_dgv.Rows(I).Cells("應收1").Value) * -1
                    End If
                Next
            End If

            If 合帳_dgv.Rows.Count > 0 Then
                合帳_dgv.Sort(合帳_dgv.Columns("客戶"), System.ComponentModel.ListSortDirection.Descending)

                Dim DS3 As New DataSet : 紙帳導入_dgv.DataSource = Nothing : DS3.Clear()
                紙帳導入_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                紙帳導入_dgv.ColumnHeadersHeight = 25
                紙帳導入_dgv.AllowUserToAddRows = False
                SQL_紙帳流水查詢3()
                da.Fill(DS3) : 紙帳導入_dgv.DataSource = DS3.Tables(0) : conn.Close()
                For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
                    For II As Integer = 0 To 紙帳導入_dgv.Rows.Count - 1
                        If 合帳_dgv("客戶", I).Value.ToString = 紙帳導入_dgv("客戶", II).Value.ToString And 紙帳導入_dgv("商品", II).Value.ToString = "前期未收" Then
                            合帳_dgv("前期", I).Value = 紙帳導入_dgv("交收金額", II).Value.ToString
                        ElseIf 合帳_dgv("客戶", I).Value.ToString = 紙帳導入_dgv("客戶", II).Value.ToString And 紙帳導入_dgv("商品", II).Value.ToString <> "前期未收" Then
                            合帳_dgv("紙帳", I).Value = Val(合帳_dgv("紙帳", I).Value) + 紙帳導入_dgv("交收金額", II).Value.ToString
                        End If
                    Next
                    合帳_dgv.Rows(I).Cells("交收合計").Value = Val(合帳_dgv.Rows(I).Cells("應收").Value) + Val(合帳_dgv.Rows(I).Cells("應付").Value) +
                                                               Val(合帳_dgv.Rows(I).Cells("個人所得").Value) + Val(合帳_dgv.Rows(I).Cells("紙帳").Value) +
                                                               Val(合帳_dgv.Rows(I).Cells("前期").Value) + Val(合帳_dgv.Rows(I).Cells("水差").Value)
                    合帳_dgv.Rows(I).Cells("交收合計1").Value = 合帳_dgv.Rows(I).Cells("交收合計").Value
                    合帳1_tb.Text = Val(合帳1_tb.Text) + Val(合帳_dgv.Rows(I).Cells("交收合計1").Value)

                    合帳_dgv.Rows(I).Cells("前期").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("前期").Value), "#,##0")
                    合帳_dgv.Rows(I).Cells("紙帳").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("紙帳").Value), "#,##0")
                    合帳_dgv.Rows(I).Cells("應付").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("應付").Value), "#,##0")
                    合帳_dgv.Rows(I).Cells("應收").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("應收").Value), "#,##0")
                    合帳_dgv.Rows(I).Cells("個人所得").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("個人所得").Value), "#,##0")
                    合帳_dgv.Rows(I).Cells("水差").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("水差").Value), "#,##0")
                    合帳_dgv.Rows(I).Cells("交收合計").Value = Strings.Format(Val(合帳_dgv.Rows(I).Cells("交收合計").Value), "#,##0")
                Next
            End If
            合帳1_tb.Text = Strings.Format(Val(合帳1_tb.Text), "#,##0")
            手工帳資料自動判斷() : 查詢()
        End If
    End Sub
    Private Sub 控制隱藏讀取()
        If File.Exists(Str + "\HXSTYLE.txt") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXSTYLE.txt", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            If Strings.Left(Text, 1) = "B" Then : 控制隱藏_ch.Checked = False
            ElseIf Strings.Left(Text, 1) = "W" Then : 控制隱藏_ch.Checked = True : End If
        Else : 控制隱藏_ch.Checked = False : End If
        If 控制隱藏_ch.Checked = False Then
            合帳_dgv.Columns("付反").Visible = True : 合帳_dgv.Columns("收反").Visible = True : 合帳_dgv.Columns("所反").Visible = True
            合帳_dgv.Columns("水反").Visible = True : 合帳_dgv.Columns("紅反").Visible = True
        Else
            合帳_dgv.Columns("付反").Visible = False : 合帳_dgv.Columns("收反").Visible = False : 合帳_dgv.Columns("所反").Visible = False
            合帳_dgv.Columns("水反").Visible = False : 合帳_dgv.Columns("紅反").Visible = False
        End If
    End Sub
    Private Sub 控制隱藏_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 控制隱藏_ch.Click
        If 控制隱藏_ch.Checked = False Then
            控制隱藏_ch.Checked = False
            Dim strDirName As String : Dim Strs As String = Application.StartupPath
            If File.Exists(Strs & "\HXSTYLE.txt") Then : File.Delete(Strs & "\HXSTYLE.txt") : End If
            strDirName = Strs & "\HXSTYLE.txt"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str1 As String = "B"
                        sw.WriteLine(str1)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
        Else
            控制隱藏_ch.Checked = True
            Dim strDirName As String : Dim Strs As String = Application.StartupPath
            If File.Exists(Strs & "\HXSTYLE.txt") Then : File.Delete(Strs & "\HXSTYLE.txt") : End If
            strDirName = Strs & "\HXSTYLE.txt"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str1 As String = "W"
                        sw.WriteLine(str1)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
        End If
        If 合帳_dgv.Rows.Count > 0 Then : 控制隱藏讀取() : End If
    End Sub
    Private Sub 其他操作功能_bt_Click(sender As Object, e As EventArgs) Handles 其他操作功能_bt.Click
        If 其他控制 = False Then : 視窗4_pl.Location = New System.Drawing.Point(150, 300) : 視窗4_pl.BringToFront() : 其他控制 = True : Else : 視窗4_pl.SendToBack() : 其他控制 = False : End If
    End Sub
    Private Sub 自動正負反_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 自動正負反_ch.Click
        If 自動正負反_ch.Checked = True Then
            MsgBox("啟動系統自動判斷正負反之後，計算量會增加，資料讀取變慢屬正常現象!!")
            自動正負反_ch.Checked = True : 依電板習慣_ch.Checked = True : 依球版習慣_ch.Checked = False
        Else
            MsgBox("去除自動判斷之後系統只會依照就有的正負反紀錄計算!!")
            自動正負反_ch.Checked = False : 依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = False
        End If
    End Sub
    Private Sub 依電板習慣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依電板習慣_ch.Click
        依電板習慣_ch.Checked = True : 依球版習慣_ch.Checked = False
    End Sub
    Private Sub 依球版習慣_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 依球版習慣_ch.Click
        依電板習慣_ch.Checked = False : 依球版習慣_ch.Checked = True
    End Sub
    Private Sub 紙帳計算_bt_Click(sender As Object, e As EventArgs) Handles 紙帳計算_bt.Click
        Set_紙單出帳1() : 合帳_bt.PerformClick() : 紙帳計算()
        '手工帳資料自動判斷() : 紙帳計算()
    End Sub
    Private Sub 紙板帳務編輯_bt_Click(sender As Object, e As EventArgs) Handles 紙板帳務編輯_bt.Click
        SQL_暫存檔清空() : SQL2 = ""
        If 合帳_dgv.Rows.Count > 0 Then
            If 合帳_dgv.Rows.Count = 1 Then
                SQL2 = "('" & 合帳_dgv("客戶", 0).Value.ToString & "')"
            End If
            For i As Integer = 0 To 合帳_dgv.Rows.Count - 1
                If i = 合帳_dgv.Rows.Count - 1 Then
                    SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "')"
                Else
                    SQL2 += "('" & 合帳_dgv("客戶", i).Value.ToString & "'),"
                End If
            Next
            SQL_暫存檔新增()
        End If
        PA47 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") : 紙板帳務.Show()
    End Sub
    Private Sub 自動調整存檔_bt_Click_1(sender As Object, e As EventArgs) Handles 自動調整存檔_bt.Click
        SQL_自動正負反存檔() : 合帳_bt.PerformClick()
    End Sub
    Private Sub 手工帳務存檔_bt_Click(sender As Object, e As EventArgs) Handles 手工帳務存檔_bt.Click
        For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
            PA8 = 紙帳非前期_dgv.Rows(I).Cells("商品").Value : NN8 = 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value.ToString : SQL_紙帳流水修改()
        Next
        For I As Integer = 0 To 紙帳前期_dgv.Rows.Count - 1
            PA8 = 紙帳前期_dgv.Rows(I).Cells("商品").Value : NN8 = 紙帳前期_dgv.Rows(I).Cells("交收金額").Value.ToString : SQL_紙帳流水修改()
        Next
        MsgBox("存檔完成!!") : 紙帳存檔 = False
    End Sub
    Private Sub 手工帳資料自動判斷()
        '--------------手工帳客戶新增----------------------------------------------------------------------------------------------------------------------
        Dim DS1 As New DataSet : 電板客戶_dgv.DataSource = Nothing : DS1.Clear()
        電板客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        電板客戶_dgv.ColumnHeadersHeight = 25
        電板客戶_dgv.AllowUserToAddRows = False
        SQL_電板客戶查詢()
        da.Fill(DS1) : 電板客戶_dgv.DataSource = DS1.Tables(0) : conn.Close()

        Dim DS2 As New DataSet : 電板紙帳1_dgv.DataSource = Nothing : DS2.Clear()
        電板紙帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        電板紙帳1_dgv.ColumnHeadersHeight = 25
        電板紙帳1_dgv.AllowUserToAddRows = False
        SQL_電板紙帳查詢()
        da.Fill(DS2) : 電板紙帳1_dgv.DataSource = DS2.Tables(0) : conn.Close()

        Dim DS3 As New DataSet : 紙帳流水1_dgv.DataSource = Nothing : DS3.Clear()
        紙帳流水1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        紙帳流水1_dgv.ColumnHeadersHeight = 25
        紙帳流水1_dgv.AllowUserToAddRows = False
        SQL_紙帳流水查詢()
        da.Fill(DS3) : 紙帳流水1_dgv.DataSource = DS3.Tables(0) : conn.Close()

        Dim DS4 As New DataSet : 電板所得_dgv.DataSource = Nothing : DS4.Clear()
        電板所得_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        電板所得_dgv.ColumnHeadersHeight = 25
        電板所得_dgv.AllowUserToAddRows = False
        SQL_電板所得查詢()
        da.Fill(DS4) : 電板所得_dgv.DataSource = DS4.Tables(0) : conn.Close()

        Dim 核對客戶 As Boolean
        For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
            If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString <> "" Then
                '------------------------------電板客戶判斷新增-----------------------------------------------------------------------------------
                核對客戶 = False
                For II As Integer = 0 To 電板客戶_dgv.Rows.Count - 1
                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板客戶_dgv.Rows(II).Cells("客戶").Value.ToString Then : 核對客戶 = True : Exit For : End If
                Next
                If 核對客戶 = False Then
                    PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString
                    If PA43 = "" Or PA43 = ".無資料" Then : Else : SQL_電板客戶新增() : End If
                End If
                '------------------------------電板紙帳基礎設定判斷新增--------------------------------------------------------------------------
                核對客戶 = False
                For II As Integer = 0 To 電板紙帳1_dgv.Rows.Count - 1
                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板紙帳1_dgv.Rows(II).Cells("客戶").Value.ToString Then : 核對客戶 = True : Exit For : End If
                Next
                If 核對客戶 = False Then : PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_電板紙帳新增() : End If
                '------------------------------電板客戶所得判斷新增------------------------------------------------------------------------------
                核對客戶 = False
                For II As Integer = 0 To 電板所得_dgv.Rows.Count - 1
                    If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString = 電板所得_dgv.Rows(II).Cells("所得戶").Value.ToString Then : 核對客戶 = True : Exit For : End If
                Next
                If 核對客戶 = False Then
                    If 合帳_dgv.Rows(I).Cells("個人所得").Value.ToString <> "0" Then : PA43 = 合帳_dgv.Rows(I).Cells("客戶").Value.ToString : SQL_電板所得新增() : End If
                End If
            End If
        Next
        For I As Integer = 0 To 電板紙帳1_dgv.Rows.Count - 1
            核對客戶 = False
            For II As Integer = 0 To 紙帳流水1_dgv.Rows.Count - 1
                If 電板紙帳1_dgv.Rows(I).Cells("客戶").Value.ToString = 紙帳流水1_dgv.Rows(II).Cells("客戶").Value.ToString And
                    電板紙帳1_dgv.Rows(I).Cells("商品").Value.ToString = 紙帳流水1_dgv.Rows(II).Cells("商品").Value.ToString Then
                    核對客戶 = True : Exit For
                End If
            Next
            If 核對客戶 = False Then
                PA43 = 電板紙帳1_dgv.Rows(I).Cells("客戶").Value.ToString : PA44 = 電板紙帳1_dgv.Rows(I).Cells("商品").Value.ToString
                If 資料_cb.Text <> "" Then : SQL_紙帳流水新增() : End If
            End If
        Next
    End Sub
    Private Sub 截圖_bt_Click(sender As Object, e As EventArgs) Handles 截圖_bt.Click
        Dim bm = New Bitmap(Panel2.Width, Panel2.Height)
        Panel2.DrawToBitmap(bm, Panel2.ClientRectangle)
        My.Computer.Clipboard.SetImage(bm)
    End Sub
    Private Sub 股東紅利設定_bt_Click(sender As Object, e As EventArgs) Handles 股東紅利設定_bt.Click
        從彙總開 = True : 電板股東紅利設定.ShowDialog() : If 紅利修改 = True Then : 有無資料判斷() : 從彙總開 = False : 紅利修改 = False : End If
    End Sub
    Private Sub 股份表一_tb_Click(sender As Object, e As EventArgs) Handles 股份表一_tb.Click
        紅利支出_dgv.Visible = False : 紅利收入_dgv.Visible = False : 紅利整合_dgv.Visible = True
    End Sub
    Private Sub 股份表二_tb_Click(sender As Object, e As EventArgs) Handles 股份表二_tb.Click
        紅利支出_dgv.Visible = True : 紅利收入_dgv.Visible = True : 紅利整合_dgv.Visible = False
    End Sub
    Private Sub 正負調整存檔_bt_Click(sender As Object, e As EventArgs) Handles 正負調整存檔_bt.Click
        For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
            If 合帳_dgv.Rows(I).Cells("客戶").Value.ToString <> "" Then
                BL1 = 合帳_dgv.Rows(I).Cells("付反").Value : BL2 = 合帳_dgv.Rows(I).Cells("收反").Value
                BL3 = 合帳_dgv.Rows(I).Cells("所反").Value : BL4 = 合帳_dgv.Rows(I).Cells("水反").Value
                BL5 = 合帳_dgv.Rows(I).Cells("紅反").Value
                PA9 = 合帳_dgv.Rows(I).Cells("客戶").Value : SQL_電板客戶修改()
            End If
        Next
        MsgBox("存檔完成!!")
    End Sub
    Private Sub 報表_bt_Click(sender As Object, e As EventArgs) Handles 報表_bt.Click
        If 客戶_tb.Text = "" Then
            MsgBox("沒有選擇客戶資料!!")
        Else
            PA49 = "客戶 : " & 客戶_tb.Text & "  " & 開始日期_dtp.Text & " 到 " & 結束日期_dtp.Text
            For i As Integer = 0 To 1000 : A(i) = "" : B(i) = "" : C(i) = "" : D(i) = "" : F(i) = "" : Next : NN10 = 0
            For I As Integer = 0 To 上繳合帳_dgv.Rows.Count - 1
                NN10 += 1 : A(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("商品").Value
                If 上繳合帳_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
                ElseIf 上繳合帳_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("帳號").Value : End If
                D(NN10 - 1) = "上繳" : F(NN10 - 1) = 上繳合帳_dgv.Rows(I).Cells("應付.").Value
            Next
            For I As Integer = 0 To 下收合帳_dgv.Rows.Count - 1
                NN10 += 1 : A(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("商品").Value
                If 下收合帳_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
                ElseIf 下收合帳_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("帳號").Value
                ElseIf 下收合帳_dgv.Columns.Count = 6 Then : C(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("客戶").Value : End If
                D(NN10 - 1) = "下收" : F(NN10 - 1) = 下收合帳_dgv.Rows(I).Cells("應收.").Value
            Next
            For I As Integer = 0 To 所得合帳2_dgv.Rows.Count - 1
                NN10 += 1 : A(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("商品").Value
                If 所得合帳2_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
                ElseIf 所得合帳2_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("帳號").Value
                ElseIf 所得合帳2_dgv.Columns.Count = 6 Then : C(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("客戶").Value : End If
                D(NN10 - 1) = "所得" : F(NN10 - 1) = 所得合帳2_dgv.Rows(I).Cells("所得.").Value
            Next
            For I As Integer = 0 To 水差合帳_dgv.Rows.Count - 1
                NN10 += 1 : A(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("項次").Value : B(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("商品").Value
                If 水差合帳_dgv.Columns.Count = 4 Then : C(NN10 - 1) = ""
                ElseIf 水差合帳_dgv.Columns.Count = 5 Then : C(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("帳號").Value
                ElseIf 水差合帳_dgv.Columns.Count = 6 Then : C(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
                D(NN10 - 1) = "水差" : F(NN10 - 1) = 水差合帳_dgv.Rows(I).Cells("水差.").Value
            Next
            For I As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
                NN10 += 1 : A(NN10 - 1) = I + 1 : B(NN10 - 1) = 紅利整合_dgv.Rows(I).Cells("所得/股東").Value : C(NN10 - 1) = ""
                D(NN10 - 1) = "紅利計算" : F(NN10 - 1) = 紅利整合_dgv.Rows(I).Cells("紅利收支").Value
            Next
            For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
                NN10 += 1 : A(NN10 - 1) = I + 1 : B(NN10 - 1) = 紙帳非前期_dgv.Rows(I).Cells("商品").Value : C(NN10 - 1) = ""
                D(NN10 - 1) = "紙帳" : F(NN10 - 1) = 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value
            Next
            If 紙帳前期_dgv.Rows.Count > 0 Then
                NN10 += 1 : A(NN10 - 1) = "" : B(NN10 - 1) = 紙帳前期_dgv.Rows(0).Cells("商品").Value : C(NN10 - 1) = ""
                D(NN10 - 1) = "前期" : F(NN10 - 1) = 紙帳前期_dgv.Rows(0).Cells("交收金額").Value
            End If
        End If
        Dim NH As Integer
        For i As Integer = 0 To NN10 - 1 : If CInt(F(i)) <> 0 Then : NH += 1 : End If : Next
        NH = 140 + (NH * 19)
        If NH > Screen.PrimaryScreen.Bounds.Height - 60 Then
            彙總報表預覽.Size = New Size(448, Screen.PrimaryScreen.Bounds.Height - 60) : 彙總報表預覽.ShowDialog()
        Else
            彙總報表預覽.Size = New Size(448, NH) : 彙總報表預覽.ShowDialog()
        End If
    End Sub
    Private Sub 查詢_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 查詢_tb.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then : 查詢() : End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        查詢()
    End Sub
    Private Sub 查詢()
        Dim keyword As String = 查詢_tb.Text.Trim() : Dim startingRowIndex As Integer = 0
        If 合帳_dgv.SelectedCells.Count > 0 Then
            startingRowIndex = 合帳_dgv.SelectedCells(0).RowIndex + 1
            If startingRowIndex >= 合帳_dgv.Rows.Count Then : 合帳_dgv.ClearSelection() : startingRowIndex = 0 : End If
        End If : 合帳_dgv.ClearSelection()
        For i As Integer = startingRowIndex To 合帳_dgv.Rows.Count - 1 : Dim row As DataGridViewRow = 合帳_dgv.Rows(i)
            If row.Cells("客戶").Value.ToString().IndexOf(keyword, StringComparison.OrdinalIgnoreCase) >= 0 Then
                row.Selected = True : 合帳_dgv.FirstDisplayedScrollingRowIndex = row.Index : Exit For
            End If
        Next
        If 合帳_dgv.SelectedCells.Count = 0 Then : startingRowIndex = 0 : 合帳_dgv.ClearSelection()
            For i As Integer = startingRowIndex To 合帳_dgv.Rows.Count - 1 : Dim row As DataGridViewRow = 合帳_dgv.Rows(i)
                If row.Cells("客戶").Value.ToString().IndexOf(keyword, StringComparison.OrdinalIgnoreCase) >= 0 Then
                    row.Selected = True : 合帳_dgv.FirstDisplayedScrollingRowIndex = row.Index : Exit For
                End If
            Next : 合帳計算()
        Else : 合帳計算() : End If
    End Sub
    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        列印選擇.ShowDialog()
        If 是否PDF = False Then
            Try
                xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
                SaveFileDialog1.Filter = "Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
                SaveFileDialog1.FilterIndex = 1
                SaveFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
                SaveFileDialog1.FileName = 客戶_tb.Text
                If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    xlBook = xlApp.Workbooks.Add
                    xlApp.DisplayAlerts = True
                    xlApp.Visible = True
                    xlApp.Application.WindowState = xlMaximized
                    '-------------------------------------------------------------------------------------------------------------------------------------------------------------------
                    xlSheet = NewMethod(xlBook)
                    If xlApp.Sheets(1).Name = "工作表2" Then : xlApp.Sheets("工作表2").Select : xlApp.Sheets("工作表2").Name = "結帳單據"
                    Else : xlApp.Sheets("sheet2").Select : xlApp.Sheets("sheet2").Name = "結帳單據" : End If
                    xlBook.Activate() : xlSheet.Activate()
                    NH1 = 0
                    xlSheet.Cells(1, 2) = "客戶 : " : xlSheet.Cells(1, 3) = 客戶_tb.Text : xlSheet.Cells(1, 4) = 開始日期_dtp.Text & " 到 " & 結束日期_dtp.Text
                    xlSheet.Cells(2, 2) = "項次" : xlSheet.Cells(2, 3) = "商品" : xlSheet.Cells(2, 4) = "帳號" : xlSheet.Cells(2, 5) = "階級"
                    xlSheet.Cells(2, 6) = "交收金額"
                    For I As Integer = 0 To 上繳合帳_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(3 + I, 2) = 上繳合帳_dgv.Rows(I).Cells("項次").Value : xlSheet.Cells(3 + I, 3) = 上繳合帳_dgv.Rows(I).Cells("商品").Value
                        If 上繳合帳_dgv.Columns.Count = 4 Then : xlSheet.Cells(3 + I, 4) = ""
                        ElseIf 上繳合帳_dgv.Columns.Count = 5 Then : xlSheet.Cells(3 + I, 4) = 上繳合帳_dgv.Rows(I).Cells("帳號").Value : End If
                        xlSheet.Cells(3 + I, 5) = "上繳" : xlSheet.Cells(3 + I, 6) = 上繳合帳_dgv.Rows(I).Cells("應付.").Value
                    Next
                    For I As Integer = 0 To 下收合帳_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = 下收合帳_dgv.Rows(I).Cells("項次").Value : xlSheet.Cells(2 + NH1, 3) = 下收合帳_dgv.Rows(I).Cells("商品").Value
                        If 下收合帳_dgv.Columns.Count = 4 Then : xlSheet.Cells(2 + NH1, 4) = ""
                        ElseIf 下收合帳_dgv.Columns.Count = 5 Then : xlSheet.Cells(2 + NH1, 4) = 下收合帳_dgv.Rows(I).Cells("帳號").Value
                        ElseIf 下收合帳_dgv.Columns.Count = 6 Then : xlSheet.Cells(2 + NH1, 4) = 下收合帳_dgv.Rows(I).Cells("客戶").Value : End If
                        xlSheet.Cells(2 + NH1, 5) = "下收" : xlSheet.Cells(2 + NH1, 6) = 下收合帳_dgv.Rows(I).Cells("應收.").Value
                    Next
                    For I As Integer = 0 To 所得合帳2_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = 所得合帳2_dgv.Rows(I).Cells("項次").Value : xlSheet.Cells(2 + NH1, 3) = 所得合帳2_dgv.Rows(I).Cells("商品").Value
                        If 所得合帳2_dgv.Columns.Count = 4 Then : xlSheet.Cells(2 + NH1, 4) = ""
                        ElseIf 所得合帳2_dgv.Columns.Count = 5 Then : xlSheet.Cells(2 + NH1, 4) = 所得合帳2_dgv.Rows(I).Cells("帳號").Value
                        ElseIf 所得合帳2_dgv.Columns.Count = 6 Then : xlSheet.Cells(2 + NH1, 4) = 所得合帳2_dgv.Rows(I).Cells("客戶").Value : End If
                        xlSheet.Cells(2 + NH1, 5) = "所得" : xlSheet.Cells(2 + NH1, 6) = 所得合帳2_dgv.Rows(I).Cells("所得.").Value
                    Next
                    For I As Integer = 0 To 水差合帳_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = 水差合帳_dgv.Rows(I).Cells("項次").Value : xlSheet.Cells(2 + NH1, 3) = 水差合帳_dgv.Rows(I).Cells("商品").Value
                        If 水差合帳_dgv.Columns.Count = 4 Then : xlSheet.Cells(2 + NH1, 4) = ""
                        ElseIf 水差合帳_dgv.Columns.Count = 5 Then : xlSheet.Cells(2 + NH1, 4) = 水差合帳_dgv.Rows(I).Cells("帳號").Value
                        ElseIf 水差合帳_dgv.Columns.Count = 6 Then : xlSheet.Cells(2 + NH1, 4) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
                        xlSheet.Cells(2 + NH1, 5) = "水差" : xlSheet.Cells(2 + NH1, 6) = 水差合帳_dgv.Rows(I).Cells("水差.").Value
                    Next
                    For I As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = I + 1 : xlSheet.Cells(2 + NH1, 3) = 紅利整合_dgv.Rows(I).Cells("所得/股東").Value
                        xlSheet.Cells(2 + NH1, 4) = ""
                        xlSheet.Cells(2 + NH1, 5) = "紅利計算" : xlSheet.Cells(2 + NH1, 6) = 紅利整合_dgv.Rows(I).Cells("紅利收支").Value
                    Next
                    For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = I + 1 : xlSheet.Cells(2 + NH1, 3) = 紙帳非前期_dgv.Rows(I).Cells("商品").Value
                        xlSheet.Cells(2 + NH1, 4) = ""
                        xlSheet.Cells(2 + NH1, 5) = "紙帳" : xlSheet.Cells(2 + NH1, 6) = 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value
                    Next
                    If 紙帳前期_dgv.Rows.Count > 0 Then
                        NH1 += 1 : xlSheet.Cells(2 + NH1, 2) = "" : xlSheet.Cells(2 + NH1, 3) = 紙帳前期_dgv.Rows(0).Cells("商品").Value : xlSheet.Cells(2 + NH1, 4) = ""
                        xlSheet.Cells(2 + NH1, 5) = "前期" : xlSheet.Cells(2 + NH1, 6) = 紙帳前期_dgv.Rows(0).Cells("交收金額").Value
                    End If

                    NH1 += 1 : xlSheet.Cells(3 + NH1, 5) = "交收合計"
                    xlSheet.Cells(3 + NH1, 6) = "=SUM(F2:F" & NH1 + 2 & ")"
                    主要格式2(xlApp, xlSheet)

                    xlApp.Sheets(2).Delete
                    xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() : xlSheet.Range("B1").Select()
                    xlApp.Application.WindowState = xlMinimized : xlSheet.SaveAs(SaveFileDialog1.FileName)
                    xlBook.Close() : xlApp.Quit()
                    ReleaseObject(xlApp) : ReleaseObject(xlBook) : ReleaseObject(xlSheet)
                    MessageBox.Show("存檔成功 !!!" & vbCrLf & "檔案儲存於 : " & SaveFileDialog1.FileName, "存檔資訊", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Catch ex As Exception
                MsgBox("你的EXCEL版本不支援，或是沒有安裝!!!，按下確認後用其他方式呈現!!") : 列印_非excel()
            End Try
        Else
            列印_非excel()
        End If
    End Sub
    Private Sub 列印_非excel()
        For I As Integer = 0 To 300 : PB1(I) = "" : PB2(I) = "" : PB3(I) = "" : PB4(I) = "" : PB5(I) = "" : Next
        NN5 = 0 : NN7 = 0 : PA5 = 開始日期_dtp.Text : PA6 = 結束日期_dtp.Text : PA7 = 客戶_tb.Text
        For I As Integer = 0 To 上繳合帳_dgv.Rows.Count - 1
            PB5(NN7) = 上繳合帳_dgv.Rows(I).Cells("項次").Value : PB1(NN7) = 上繳合帳_dgv.Rows(I).Cells("商品").Value
            If 上繳合帳_dgv.Columns.Count = 4 Then : PB2(NN7) = "" : ElseIf 上繳合帳_dgv.Columns.Count = 5 Then : PB2(NN7) = 上繳合帳_dgv.Rows(I).Cells("帳號").Value : End If
            PB3(NN7) = "上繳" : PB4(NN7) = 上繳合帳_dgv.Rows(I).Cells("應付.").Value : NN5 += 上繳合帳_dgv.Rows(I).Cells("應付").Value : NN7 += 1
        Next
        For I As Integer = 0 To 下收合帳_dgv.Rows.Count - 1
            PB5(NN7) = 下收合帳_dgv.Rows(I).Cells("項次").Value : PB1(NN7) = 下收合帳_dgv.Rows(I).Cells("商品").Value
            If 下收合帳_dgv.Columns.Count = 4 Then : PB2(NN7) = ""
            ElseIf 下收合帳_dgv.Columns.Count = 5 Then : PB2(NN7) = 下收合帳_dgv.Rows(I).Cells("帳號").Value
            ElseIf 下收合帳_dgv.Columns.Count = 6 Then : PB2(NN7) = 下收合帳_dgv.Rows(I).Cells("客戶").Value : End If
            PB3(NN7) = "下收" : PB4(NN7) = 下收合帳_dgv.Rows(I).Cells("應收.").Value : NN5 += 下收合帳_dgv.Rows(I).Cells("應收").Value : NN7 += 1
        Next
        For I As Integer = 0 To 所得合帳2_dgv.Rows.Count - 1
            PB5(NN7) = 所得合帳2_dgv.Rows(I).Cells("項次").Value : PB1(NN7) = 所得合帳2_dgv.Rows(I).Cells("商品").Value
            If 所得合帳2_dgv.Columns.Count = 4 Then : PB2(NN7) = ""
            ElseIf 所得合帳2_dgv.Columns.Count = 5 Then : PB2(NN7) = 所得合帳2_dgv.Rows(I).Cells("帳號").Value
            ElseIf 所得合帳2_dgv.Columns.Count = 6 Then : PB2(NN7) = 所得合帳2_dgv.Rows(I).Cells("客戶").Value : End If
            PB3(NN7) = "所得" : PB4(NN7) = 所得合帳2_dgv.Rows(I).Cells("所得.").Value : NN5 += 所得合帳2_dgv.Rows(I).Cells("所得").Value : NN7 += 1
        Next
        For I As Integer = 0 To 水差合帳_dgv.Rows.Count - 1
            PB5(NN7) = 水差合帳_dgv.Rows(I).Cells("項次").Value : PB1(NN7) = 水差合帳_dgv.Rows(I).Cells("商品").Value
            If 水差合帳_dgv.Columns.Count = 4 Then : PB2(NN7) = ""
            ElseIf 水差合帳_dgv.Columns.Count = 5 Then : PB2(NN7) = 水差合帳_dgv.Rows(I).Cells("帳號").Value
            ElseIf 水差合帳_dgv.Columns.Count = 6 Then : PB2(NN7) = 水差合帳_dgv.Rows(I).Cells("客戶").Value : End If
            PB3(NN7) = "水差" : PB4(NN7) = 水差合帳_dgv.Rows(I).Cells("水差.").Value : NN5 += 水差合帳_dgv.Rows(I).Cells("水差").Value : NN7 += 1
        Next
        For I As Integer = 0 To 紅利整合_dgv.Rows.Count - 1
            PB5(NN7) = I + 1 : PB1(NN7) = 紅利整合_dgv.Rows(I).Cells("所得/股東").Value : PB2(NN7) = ""
            PB3(NN7) = "紅利計算" : PB4(NN7) = 紅利整合_dgv.Rows(I).Cells("紅利收支").Value : NN5 += 紅利整合_dgv.Rows(I).Cells("紅利收支").Value : NN7 += 1
        Next
        For I As Integer = 0 To 紙帳非前期_dgv.Rows.Count - 1
            PB5(NN7) = I + 1 : PB1(NN7) = 紙帳非前期_dgv.Rows(I).Cells("商品").Value : PB2(NN7) = ""
            PB3(NN7) = "紙帳" : PB4(NN7) = Strings.Format(紙帳非前期_dgv.Rows(I).Cells("交收金額").Value, "#,##0") : NN5 += 紙帳非前期_dgv.Rows(I).Cells("交收金額").Value : NN7 += 1
        Next
        If 紙帳前期_dgv.Rows.Count > 0 Then
            PB5(NN7) = "" : PB1(NN7) = 紙帳前期_dgv.Rows(0).Cells("商品").Value : PB2(NN7) = ""
            PB3(NN7) = "前期" : PB4(NN7) = Strings.Format(紙帳前期_dgv.Rows(0).Cells("交收金額").Value, "#,##0") : NN5 += 紙帳前期_dgv.Rows(0).Cells("交收金額").Value : NN7 += 1
        End If
        PDF列印預覽1.ShowDialog()
    End Sub
    Private Sub 列印1_bt_Click(sender As Object, e As EventArgs) Handles 列印1_bt.Click
        列印選擇.ShowDialog()
        If 是否PDF = False Then
            Try
                xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
                SaveFileDialog1.Filter = "Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
                SaveFileDialog1.FilterIndex = 1
                SaveFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
                SaveFileDialog1.FileName = "帳務總表 " & Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " 到 " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    xlBook = xlApp.Workbooks.Add
                    xlApp.DisplayAlerts = True
                    xlApp.Visible = True
                    xlApp.Application.WindowState = xlMaximized
                    '-------------------------------------------------------------------------------------------------------------------------------------------------------------------
                    xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Name = "帳務總表" : xlBook.Activate() : xlSheet.Activate()
                    NH1 = 0
                    xlSheet.Cells(1, 3) = "帳務總表 : " : xlSheet.Cells(1, 4) = 開始日期_dtp.Text & " 到 " & 結束日期_dtp.Text
                    xlSheet.Cells(2, 2) = "項次" : xlSheet.Cells(2, 3) = "客戶" : xlSheet.Cells(2, 4) = "紙帳" : xlSheet.Cells(2, 5) = "應付" : xlSheet.Cells(2, 6) = "應收"
                    xlSheet.Cells(2, 7) = "所得" : xlSheet.Cells(2, 8) = "水差" : xlSheet.Cells(2, 9) = "前期未收" : xlSheet.Cells(2, 10) = "交收合計"
                    For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
                        NH1 += 1 : xlSheet.Cells(3 + I, 2) = I + 1
                        xlSheet.Cells(3 + I, 3) = 合帳_dgv.Rows(I).Cells("客戶").Value
                        xlSheet.Cells(3 + I, 4) = 合帳_dgv.Rows(I).Cells("紙帳").Value
                        xlSheet.Cells(3 + I, 5) = 合帳_dgv.Rows(I).Cells("應付").Value
                        xlSheet.Cells(3 + I, 6) = 合帳_dgv.Rows(I).Cells("應收").Value
                        xlSheet.Cells(3 + I, 7) = 合帳_dgv.Rows(I).Cells("個人所得").Value
                        xlSheet.Cells(3 + I, 8) = 合帳_dgv.Rows(I).Cells("水差").Value
                        xlSheet.Cells(3 + I, 9) = 合帳_dgv.Rows(I).Cells("前期").Value
                        xlSheet.Cells(3 + I, 10) = 合帳_dgv.Rows(I).Cells("交收合計").Value
                    Next
                    NH1 += 1 : xlSheet.Cells(3 + NH1, 5) = "合計"
                    xlSheet.Cells(3 + NH1, 4) = "=SUM(D2:D" & NH1 + 2 & ")"
                    xlSheet.Cells(3 + NH1, 5) = "=SUM(E2:E" & NH1 + 2 & ")"
                    xlSheet.Cells(3 + NH1, 6) = "=SUM(F2:F" & NH1 + 2 & ")"
                    xlSheet.Cells(3 + NH1, 7) = "=SUM(G2:G" & NH1 + 2 & ")"
                    xlSheet.Cells(3 + NH1, 8) = "=SUM(H2:H" & NH1 + 2 & ")"
                    xlSheet.Cells(3 + NH1, 9) = "=SUM(I2:I" & NH1 + 2 & ")"
                    xlSheet.Cells(3 + NH1, 10) = "=SUM(J2:J" & NH1 + 2 & ")"
                    主要格式1(xlApp, xlSheet)

                    xlApp.Sheets(2).Delete
                    xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() : xlSheet.Range("B1").Select()
                    xlApp.Application.WindowState = xlMinimized : xlSheet.SaveAs(SaveFileDialog1.FileName)
                    xlBook.Close() : xlApp.Quit()
                    ReleaseObject(xlApp) : ReleaseObject(xlBook) : ReleaseObject(xlSheet)
                    MessageBox.Show("存檔成功 !!!" & vbCrLf & "檔案儲存於 : " & SaveFileDialog1.FileName, "存檔資訊", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Catch ex As Exception
                MsgBox("你的EXCEL版本不支援，或是沒有安裝!!!，按下確認後用其他方式呈現!!") : 列印_非excel_2()
            End Try
        Else
            列印_非excel_2()
        End If
    End Sub
    Private Sub 列印_非excel_2()
        For I As Integer = 0 To 300 : PB1(I) = "" : PB2(I) = "" : PB3(I) = "" : PB4(I) = "" : PB5(I) = "" : PB6(I) = "" : PB7(I) = "" : PB8(I) = "" : Next
        NN1 = 0 : NN2 = 0 : NN3 = 0 : NN4 = 0 : NN5 = 0 : NN6 = 0 : NN7 = 0 : NN8 = 0 : PA5 = 開始日期_dtp.Text : PA6 = 結束日期_dtp.Text
        For I As Integer = 0 To 合帳_dgv.Rows.Count - 1
            PB8(NN7) = 合帳_dgv.Rows(NN7).Cells("客戶").Value : PB1(NN7) = 合帳_dgv.Rows(NN7).Cells("紙帳").Value : PB2(NN7) = 合帳_dgv.Rows(NN7).Cells("應付").Value
            PB3(NN7) = 合帳_dgv.Rows(NN7).Cells("應收").Value : PB4(NN7) = 合帳_dgv.Rows(NN7).Cells("個人所得").Value : PB5(NN7) = 合帳_dgv.Rows(NN7).Cells("水差").Value
            PB6(NN7) = 合帳_dgv.Rows(NN7).Cells("前期").Value : PB7(NN7) = 合帳_dgv.Rows(NN7).Cells("交收合計").Value
            NN1 += 合帳_dgv.Rows(NN7).Cells("紙帳").Value : NN2 += 合帳_dgv.Rows(NN7).Cells("應付1").Value : NN3 += 合帳_dgv.Rows(NN7).Cells("應收1").Value
            NN4 += 合帳_dgv.Rows(NN7).Cells("個人所得1").Value : NN5 += 合帳_dgv.Rows(NN7).Cells("水差1").Value : NN6 += 合帳_dgv.Rows(NN7).Cells("前期").Value
            NN8 += 合帳_dgv.Rows(NN7).Cells("交收合計1").Value : NN7 += 1
        Next
        PDF列印預覽2.ShowDialog()
    End Sub
    Private Sub ReleaseObject(ByVal obj As Object)
        Try : System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) : obj = Nothing
        Catch ex As Exception : obj = Nothing
        Finally : GC.Collect()
        End Try
    End Sub
    Dim OldX, OldY As Long : Dim drag As Boolean
    Private Sub CanceL4_bt_Click(sender As Object, e As EventArgs) Handles CanceL4_bt.Click
        If 其他控制 = True Then : 視窗4_pl.SendToBack() : 其他控制 = False : End If
    End Sub
    Private Sub 視窗4_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗4_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseMove
        If drag Then : 視窗4_pl.Left = 視窗4_pl.Left + e.X - OldX : 視窗4_pl.Top = 視窗4_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗4_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗4_pl.MouseUp
        drag = False
    End Sub
    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
    End Function
    Private Sub 主要格式1(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Columns("B:B").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Columns("C:C").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Columns("D:J").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 "

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

        xlSheet.Range("B" & NH1 + 2 & ":J" & NH1 + 2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("B1").Select() : myExcel.ActiveWindow.DisplayGridlines = False
        xlSheet.Columns("B:J").Select : xlSheet.Columns("B:J").EntireColumn.AutoFit

        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 12

        xlSheet.Range("B2:J" & 4 + NH1).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 3
    End Sub
    Private Sub 主要格式2(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Columns("B:B").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Columns("C:C").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Columns("F:F").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 "

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

        xlSheet.Range("B" & NH1 + 2 & ":F" & NH1 + 2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("B1").Select() : myExcel.ActiveWindow.DisplayGridlines = False
        xlSheet.Columns("B:F").Select : xlSheet.Columns("B:F").EntireColumn.AutoFit

        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 12

        xlSheet.Range("B2:F" & 4 + NH1).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 3
    End Sub
End Class