GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/01.人事系統管理/拆帳制薪資試算表.vb

Imports System.Drawing.Printing
Public Class 拆帳制薪資試算表
    Dim 位置 As Integer = 0
    Dim 是否有差額, 初始執行 As Boolean
    Private Sub Set_服務人員()
        年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text
        Set_加班計算() : Set_階級加給() : Set_轉場計算()
        If 月份_cb.Text = "01" Then : PA10 = CInt(年份_cb.Text) - 1 & "12"
        Else : If CInt(月份_cb.Text) < 11 Then : PA10 = 年份_cb.Text & "0" & CInt(月份_cb.Text) - 1 : Else : PA10 = 年份_cb.Text & CInt(月份_cb.Text) - 1 : End If : End If
        SQL_查差額() : If dr.Read Then : 是否有差額 = True : SQL_讀差額() : Set_差額() : Else : 是否有差額 = False : SQL_放差額() : Set_差額() : End If
        For i As Integer = 0 To 11 : Ao(i) = "" : Next : For i As Integer = 0 To 11 : Bo(i) = "" : Next : Co(0) = ""
        For i As Integer = 0 To 表頭_dgv.Rows.Count - 1
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Ao(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Bo(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "C01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Co(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : C01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString
                C01_1_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Dq(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
            If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then
                Eo(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If
        Next
        Dim ds As New DataSet : Dgv.DataSource = Nothing : ds.Clear()
        Dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        Dgv.ColumnHeadersHeight = 80 : Dgv.AllowUserToAddRows = False : Dgv.RowTemplate.Height = 25
        PA1 = 年份_cb.Text & 月份_cb.Text : SQL2 = "人事拆帳制A碼項目清冊" : SQL_薪資彙總表_仁寶()
        da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : conn.Close()
        Dgv.EditMode = DataGridViewEditMode.EditOnEnter

        SQL_查最低薪資()
        If dr.Read Then : 扣除狀態_ch.Checked = dr("AA扣除").ToString : 轉場薪資_tb.Text = CInt(dr("最低薪資").ToString) : 最低薪資_lb.Text = 轉場薪資_tb.Text
        Else : 扣除狀態_ch.Checked = True : Dim AA As String = InputBox("請輸入轉場薪資!!") : 轉場薪資_tb.Text = AA : 最低薪資_lb.Text = 轉場薪資_tb.Text : SQL_最低薪資新增() : End If

        Dgv.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("BA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("BA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(25).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("GA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("GA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("GA加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("GA加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("其他").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("其他").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("主薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("主薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("AA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("AA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("AA").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("AA").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("副薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("副薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(32).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("總薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("總薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平日工時").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平日工時").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("總時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("總時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("休3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("休3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("休0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("休0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("服務津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("服務津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("轉場津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("轉場津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("餘額比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(42).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("餘額比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(42).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("加班費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(43).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("加班費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(43).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(44).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("總服務時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(45).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("總服務時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(45).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("總轉場時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(46).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("總轉場時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(46).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(47).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(47).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("假日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(48).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("假日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(48).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平0-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(49).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平0-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(49).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平9-10").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(50).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平9-10").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(50).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平11-12").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns("國0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平11-12").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns("國0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(77).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(77).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(78).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(78).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(79).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(79).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(80).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(80).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(81).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(81).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(82).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(82).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(83).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(83).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(84).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(84).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(85).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(85).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(86).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(86).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(87).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(87).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(88).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(88).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(89).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(89).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(90).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(90).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(91).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(91).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(92).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(92).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(93).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(93).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(94).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(94).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(95).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(95).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(96).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(96).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(97).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(97).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(98).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(98).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(99).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(99).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(100).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(100).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(101).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(101).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(102).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(102).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns(103).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(103).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("國3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("國3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("正常班平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("正常班平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平日加班扣除額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平日加班扣除額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平日平均時薪/含平日加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平日平均時薪/含平日加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平日月薪/不含加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平日月薪/不含加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("BA+GA+AA_總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("BA+GA+AA_總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("修正後月薪+Ａ+津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        Dgv.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休加班1.34").DefaultCellStyle.Format = "#,##0.000"
        Dgv.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("正常班轉場").DefaultCellStyle.Format = "#,##0.000"
        Dgv.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("平加班1.34").DefaultCellStyle.Format = "#,##0.000"
        Dgv.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("其他").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("平加班1.67").DefaultCellStyle.Format = "#,##0.000"
        Dgv.Columns("轉場薪資").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("平薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休加班1.67").DefaultCellStyle.Format = "#,##0.000"
        Dgv.Columns("平薪資1.67").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休薪資1.67").DefaultCellStyle.Format = "#,##0"
        Dgv.Columns("國薪資2.00").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("國加班2.00").DefaultCellStyle.Format = "#,##0.000" : Dgv.Columns("實際總薪資").DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(25).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(103).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(28).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(31).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(34).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(35).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(36).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(37).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(38).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(39).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(40).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(41).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(42).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(43).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(44).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(45).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(46).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(47).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(48).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(49).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(50).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(77).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(78).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(79).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(80).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(81).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(82).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(83).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(84).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(85).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(86).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(87).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(88).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(89).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(90).DefaultCellStyle.Format = "#,##0"
        Dgv.Columns(91).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(92).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(93).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(94).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(95).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(96).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(97).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(98).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(99).DefaultCellStyle.Format = "#,##0.0"
        Dgv.Columns(100).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(101).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(102).DefaultCellStyle.Format = "#,##0.0"

        Dgv.Columns("GAM1").Visible = False : Dgv.Columns("GAM2").Visible = False : Dgv.Columns("BA").Visible = False : Dgv.Columns("GA").Visible = False
        Set_分頁()

        For i As Integer = 0 To 73 : Dgv.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv.Columns(i).ReadOnly = False : Next
        For i As Integer = 77 To 88 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv.Columns(i).ReadOnly = False : Next
        For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv.Columns(i).ReadOnly = True : Next
        Dgv.Columns("服務轉場比").ReadOnly = False : Dgv.Columns("總服務時數").ReadOnly = False : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
        Dgv.Columns("總轉場時數").ReadOnly = False : Dgv.Columns("公司負擔總計").ReadOnly = True : Dgv.Columns("薪資加項總計").ReadOnly = True
        Dgv.Columns("總服務時數").ReadOnly = True : Dgv.Columns("總轉場時數").ReadOnly = True : Dgv.Columns("服務轉場比").ReadOnly = True : Dgv.Columns("實際總薪資").ReadOnly = True
        Dgv.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
        Dgv.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
        Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
        Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean
        For i As Integer = 0 To Dgv.Rows.Count - 1 : 新增 = False
            If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
            For ii As Integer = 0 To BA比1_dgv.Rows.Count - 1
                If Dgv.Rows(i).Cells("姓名").Value.ToString = BA比1_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If
            Next
            If 新增 = True Then
                SQL2 = "(N'', N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "', N'0.5')"
                SQL_BA比_新增() : 重讀 = True
            End If
        Next : If 重讀 = True Then : Set_BA比1() : End If
        Set_BA比2() : 重讀 = False
        For i As Integer = 0 To BA比1_dgv.Rows.Count - 1 : 新增 = False
            If BA比_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
            For ii As Integer = 0 To BA比_dgv.Rows.Count - 1
                If BA比1_dgv.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If
            Next
            If 新增 = True Then
                SQL2 = "(N'" & PA1 & "', N'" & BA比1_dgv.Rows(i).Cells("姓名").Value.ToString & "', N'" & BA比1_dgv.Rows(i).Cells("BA").Value.ToString & "')"
                SQL_BA比_新增() : 重讀 = True
            End If
        Next : If 重讀 = True Then : Set_BA比2() : End If
        For i As Integer = 0 To Dgv.Rows.Count - 1
            Dgv.Rows(i).Cells("正常班轉場").Value = "0" : Dgv.Rows(i).Cells("平加班1.34").Value = "0" : Dgv.Rows(i).Cells("平加班1.67").Value = "0"
            Dgv.Rows(i).Cells("休加班1.34").Value = "0" : Dgv.Rows(i).Cells("休加班1.67").Value = "0" : Dgv.Rows(i).Cells("國加班2.00").Value = "0"
            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(ii).Cells("星期").Value.ToString <> "星期日" And 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期六" Then
                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1 Then
                            Dgv.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
                            Dgv.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
                            Dgv.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 2 Then
                            Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        End If
                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期六" Then
                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
                            Dgv.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
                            Dgv.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 2 Then
                            Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        End If
                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期日" Then
                        Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                    End If
                End If
            Next
            Dgv.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value) / 60 : Dgv.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value) / 60
            Dgv.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value) / 60 : Dgv.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value) / 60
            Dgv.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value) / 60 : Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) / 60

            Dgv.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value.ToString) * CInt(最低薪資_lb.Text)
            Dgv.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value.ToString) * CInt(最低薪資_lb.Text) * 1.34
            Dgv.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value.ToString) * CInt(最低薪資_lb.Text) * 1.67
            Dgv.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value.ToString) * CInt(最低薪資_lb.Text) * 1.34
            Dgv.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value.ToString) * CInt(最低薪資_lb.Text) * 1.67
            Dgv.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value.ToString) * CInt(最低薪資_lb.Text) * 2
        Next
        Set_薪資計算()
    End Sub
    Private Sub Set_分頁()
        If 主表_ch.Checked = True And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False
            Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False
            Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False
            Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

            Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = True
            Dgv.Columns("GA加給").Visible = True : Dgv.Columns("其他").Visible = True : Dgv.Columns("主薪").Visible = True
            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True : Dgv.Columns("實際總薪資").Visible = True
            Dgv.Columns("總薪").Visible = True : Dgv.Columns("平日工時").Visible = True : Dgv.Columns("平日平均時薪/含平日加班").Visible = True
            Dgv.Columns("平日加班扣除額").Visible = True : Dgv.Columns("平日月薪/不含加班").Visible = True : Dgv.Columns("正常班平均時薪").Visible = True
            Dgv.Columns("服務津貼").Visible = True : Dgv.Columns("轉場津貼").Visible = True : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
            Dgv.Columns("加班費計算時薪標準").Visible = True : Dgv.Columns("加班費").Visible = True : Dgv.Columns("總薪資").Visible = True

            Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False
            Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False
            Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

            Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False
            Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False
            Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

            Dgv.Columns(77).Visible = False : Dgv.Columns(78).Visible = False : Dgv.Columns(79).Visible = False : Dgv.Columns(80).Visible = False : Dgv.Columns(81).Visible = False
            Dgv.Columns(82).Visible = False : Dgv.Columns(83).Visible = False : Dgv.Columns(84).Visible = False : Dgv.Columns(85).Visible = False : Dgv.Columns(86).Visible = False
            Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

            Dgv.Columns(91).Visible = False : Dgv.Columns(92).Visible = False : Dgv.Columns(93).Visible = False : Dgv.Columns(94).Visible = False : Dgv.Columns(95).Visible = False
            Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
            Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

            Dgv.Columns(50).Visible = False

            Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
            Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = True And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False
            Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False
            Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False
            Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

            Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
            Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").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("平日月薪/不含加班").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("總薪資").Visible = False

            Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False
            Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False
            Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

            Dgv.Columns(37).Visible = True : Dgv.Columns(38).Visible = True : Dgv.Columns(39).Visible = True : Dgv.Columns(40).Visible = True : Dgv.Columns(41).Visible = True
            Dgv.Columns(42).Visible = True : Dgv.Columns(43).Visible = True : Dgv.Columns(44).Visible = True : Dgv.Columns(45).Visible = True : Dgv.Columns(46).Visible = True
            Dgv.Columns(47).Visible = True : Dgv.Columns(48).Visible = True : Dgv.Columns(49).Visible = True

            Dgv.Columns(77).Visible = False : Dgv.Columns(78).Visible = False : Dgv.Columns(79).Visible = False : Dgv.Columns(80).Visible = False : Dgv.Columns(81).Visible = False
            Dgv.Columns(82).Visible = False : Dgv.Columns(83).Visible = False : Dgv.Columns(84).Visible = False : Dgv.Columns(85).Visible = False : Dgv.Columns(86).Visible = False
            Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

            Dgv.Columns(91).Visible = False : Dgv.Columns(92).Visible = False : Dgv.Columns(93).Visible = False : Dgv.Columns(94).Visible = False : Dgv.Columns(95).Visible = False
            Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
            Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

            Dgv.Columns(50).Visible = True

            Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
            Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = True And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False
            Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False
            Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False
            Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

            Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
            Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").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("平日月薪/不含加班").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("總薪資").Visible = False

            Dgv.Columns(24).Visible = True : Dgv.Columns(25).Visible = True : Dgv.Columns(26).Visible = True : Dgv.Columns(27).Visible = True : Dgv.Columns(28).Visible = True
            Dgv.Columns(29).Visible = True : Dgv.Columns(30).Visible = True : Dgv.Columns(31).Visible = True : Dgv.Columns(32).Visible = True : Dgv.Columns(33).Visible = True
            Dgv.Columns(34).Visible = True : Dgv.Columns(35).Visible = True : Dgv.Columns(36).Visible = True

            Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False
            Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False
            Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

            Dgv.Columns(77).Visible = False : Dgv.Columns(78).Visible = False : Dgv.Columns(79).Visible = False : Dgv.Columns(80).Visible = False : Dgv.Columns(81).Visible = False
            Dgv.Columns(82).Visible = False : Dgv.Columns(83).Visible = False : Dgv.Columns(84).Visible = False : Dgv.Columns(85).Visible = False : Dgv.Columns(86).Visible = False
            Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

            Dgv.Columns(91).Visible = False : Dgv.Columns(92).Visible = False : Dgv.Columns(93).Visible = False : Dgv.Columns(94).Visible = False : Dgv.Columns(95).Visible = False
            Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
            Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

            Dgv.Columns(50).Visible = True

            Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
            Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = True And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = True : Dgv.Columns("平0-8").Visible = True : Dgv.Columns("平9-10").Visible = True
            Dgv.Columns("平11-12").Visible = True : Dgv.Columns("國0-2").Visible = True : Dgv.Columns("國3-8").Visible = True
            Dgv.Columns("休0-2").Visible = True : Dgv.Columns("休3-8").Visible = True : Dgv.Columns("假日轉場").Visible = True
            Dgv.Columns("總服務時數").Visible = True : Dgv.Columns("總轉場時數").Visible = True

            Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
            Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").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("平日月薪/不含加班").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("總薪資").Visible = False

            Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False
            Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False
            Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

            Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False
            Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False
            Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

            Dgv.Columns(77).Visible = False : Dgv.Columns(78).Visible = False : Dgv.Columns(79).Visible = False : Dgv.Columns(80).Visible = False : Dgv.Columns(81).Visible = False
            Dgv.Columns(82).Visible = False : Dgv.Columns(83).Visible = False : Dgv.Columns(84).Visible = False : Dgv.Columns(85).Visible = False : Dgv.Columns(86).Visible = False
            Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

            Dgv.Columns(91).Visible = False : Dgv.Columns(92).Visible = False : Dgv.Columns(93).Visible = False : Dgv.Columns(94).Visible = False : Dgv.Columns(95).Visible = False
            Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
            Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

            Dgv.Columns(106).Visible = True : Dgv.Columns(107).Visible = True : Dgv.Columns(108).Visible = True : Dgv.Columns(109).Visible = True : Dgv.Columns(110).Visible = True
            Dgv.Columns(111).Visible = True : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

            Dgv.Columns(50).Visible = False

            Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
            Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = True
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False
            Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False
            Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False
            Dgv.Columns("總服務時數").Visible = True : Dgv.Columns("總轉場時數").Visible = True

            Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = False
            Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
            Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = True
            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("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
            Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = True : Dgv.Columns("總薪資").Visible = True

            Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False
            Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False
            Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

            Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False
            Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False
            Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

            Dgv.Columns(77).Visible = False : Dgv.Columns(78).Visible = False : Dgv.Columns(79).Visible = False : Dgv.Columns(80).Visible = False : Dgv.Columns(81).Visible = False
            Dgv.Columns(82).Visible = False : Dgv.Columns(83).Visible = False : Dgv.Columns(84).Visible = False : Dgv.Columns(85).Visible = False : Dgv.Columns(86).Visible = False
            Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

            Dgv.Columns(91).Visible = False : Dgv.Columns(92).Visible = False : Dgv.Columns(93).Visible = False : Dgv.Columns(94).Visible = False : Dgv.Columns(95).Visible = False
            Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
            Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

            Dgv.Columns(50).Visible = False

            Dgv.Columns("總時數").Visible = True : Dgv.Columns("平均時薪").Visible = True : Dgv.Columns("BA+GA+AA_總額").Visible = True : Dgv.Columns("餘額").Visible = True
            Dgv.Columns("餘額比").Visible = True : Dgv.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False
            Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False
            Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False
            Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

            Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
            Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").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("平日月薪/不含加班").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("總薪資").Visible = False

            Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False
            Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False
            Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

            Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False
            Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False
            Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

            Dgv.Columns(77).Visible = True : Dgv.Columns(78).Visible = True : Dgv.Columns(79).Visible = True : Dgv.Columns(80).Visible = True : Dgv.Columns(81).Visible = True
            Dgv.Columns(82).Visible = True : Dgv.Columns(83).Visible = True : Dgv.Columns(84).Visible = True : Dgv.Columns(85).Visible = True : Dgv.Columns(86).Visible = True
            Dgv.Columns(87).Visible = True : Dgv.Columns(88).Visible = True : Dgv.Columns(89).Visible = True : Dgv.Columns(90).Visible = True

            Dgv.Columns(91).Visible = False : Dgv.Columns(92).Visible = False : Dgv.Columns(93).Visible = False : Dgv.Columns(94).Visible = False : Dgv.Columns(95).Visible = False
            Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
            Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
            Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

            Dgv.Columns(50).Visible = False

            Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
            Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
              薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = True Then
            Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False
            Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False
            Dgv.Columns("AA11").Visible = False

            Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False
            Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False
            Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False
            Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

            Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
            Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
            Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").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("平日月薪/不含加班").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("總薪資").Visible = False

            Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False
            Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False
            Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

            Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False
            Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False
            Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

            Dgv.Columns(77).Visible = False : Dgv.Columns(78).Visible = False : Dgv.Columns(79).Visible = False : Dgv.Columns(80).Visible = False : Dgv.Columns(81).Visible = False
            Dgv.Columns(82).Visible = False : Dgv.Columns(83).Visible = False : Dgv.Columns(84).Visible = False : Dgv.Columns(85).Visible = False : Dgv.Columns(86).Visible = False
            Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

            Dgv.Columns(91).Visible = True : Dgv.Columns(92).Visible = True : Dgv.Columns(93).Visible = True : Dgv.Columns(94).Visible = True : Dgv.Columns(95).Visible = True
            Dgv.Columns(96).Visible = True : Dgv.Columns(97).Visible = True : Dgv.Columns(98).Visible = True : Dgv.Columns(99).Visible = True : Dgv.Columns(100).Visible = True
            Dgv.Columns(101).Visible = True : Dgv.Columns(102).Visible = True : Dgv.Columns(103).Visible = True

            Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
            Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = True : Dgv.Columns(113).Visible = True : Dgv.Columns(114).Visible = True : Dgv.Columns(115).Visible = True
            Dgv.Columns(116).Visible = True : Dgv.Columns(117).Visible = True

            Dgv.Columns(50).Visible = False

            Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
            Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
        End If
        Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False : Dgv.Columns("總薪").Visible = False : Dgv.Columns("AA剃除").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("修正後月薪+Ａ+津貼").Visible = False : Dgv.Columns("AA07").Visible = False : Dgv.Columns("AA09").Visible = False
        Dgv.Columns("BAORSC").Visible = False : Dgv.Columns("AA長短").Visible = False : Dgv.Columns("BAORSC仁").Visible = False : Dgv.Columns("AA長短仁").Visible = False
    End Sub
    Private Sub Set_薪資計算()
        Dim 分子(8), 分母(8) As Double
        BA正_tb.Text = "0" : GA正_tb.Text = "0" : GA加_tb.Text = "0" : 其他_tb.Text = "0" : 主薪_tb.Text = "0" : AA_tb.Text = "0" : 副薪_tb.Text = "0" : 總薪_tb.Text = "0"
        加班扣除_tb.Text = "0" : 平日月薪_tb.Text = "0" : 服務_tb.Text = "0" : 轉場_tb.Text = "0" : 修正月_tb.Text = "0" : 加班費_tb.Text = "0" : 總薪資_tb.Text = "0" : AA1_tb.Text = "0"
        A01_tb.Text = "0" : A02_tb.Text = "0" : A03_tb.Text = "0" : A04_tb.Text = "0" : A05_tb.Text = "0" : A06_tb.Text = "0" : A07_tb.Text = "0" : A08_tb.Text = "0" : A09_tb.Text = "0"
        A10_tb.Text = "0" : A11_tb.Text = "0" : A12_tb.Text = "0" : 加項總計_tb.Text = "0" : 減項總計_tb.Text = "0" : C01_tb.Text = "0" : C01_1_tb.Text = "0" : BA正1_tb.Text = "0"
        B01_tb.Text = "0" : B02_tb.Text = "0" : B03_tb.Text = "0" : B04_tb.Text = "0" : B05_tb.Text = "0" : B06_tb.Text = "0" : B07_tb.Text = "0" : B08_tb.Text = "0" : B09_tb.Text = "0"
        B10_tb.Text = "0" : B11_tb.Text = "0" : B12_tb.Text = "0" : 總時數_tb.Text = "0" : 修正月1_tb.Text = "0" : 加班費1_tb.Text = "0" : 總薪資1_tb.Text = "0" : 平均時薪_tb.Text = "0"
        BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
        D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
        E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資1_tb.Text = "0" : 實際薪資_tb.Text = "0"
        If 是否有差額 = True Then
            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 CDbl(差異_dgv.Rows(II).Cells("差額").Value.ToString) > 0 Then
                            Dgv.Rows(i).Cells("上月薪資差額(加)").Value = CDbl(差異_dgv.Rows(II).Cells("差額").Value.ToString)
                        Else
                            Dgv.Rows(i).Cells("上月薪資差額(減)").Value = CDbl(差異_dgv.Rows(II).Cells("差額").Value.ToString) * -1
                        End If : Exit For
                    End If
                Next
            Next
        End If
        For i As Integer = 0 To Dgv.Rows.Count - 1
            For ii As Integer = 0 To BA比_dgv.Rows.Count - 1
                If Dgv.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                    Dgv.Rows(i).Cells("BA比例").Value = BA比_dgv.Rows(ii).Cells("BA").Value.ToString
                End If
            Next
            If IsDBNull(Dgv.Rows(i).Cells(24).Value) = True Then : Dgv.Rows(i).Cells(24).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(25).Value) = True Then : Dgv.Rows(i).Cells(25).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(26).Value) = True Then : Dgv.Rows(i).Cells(26).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(27).Value) = True Then : Dgv.Rows(i).Cells(27).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(28).Value) = True Then : Dgv.Rows(i).Cells(28).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(29).Value) = True Then : Dgv.Rows(i).Cells(29).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(30).Value) = True Then : Dgv.Rows(i).Cells(30).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(31).Value) = True Then : Dgv.Rows(i).Cells(31).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(32).Value) = True Then : Dgv.Rows(i).Cells(32).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(33).Value) = True Then : Dgv.Rows(i).Cells(33).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(34).Value) = True Then : Dgv.Rows(i).Cells(34).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(35).Value) = True Then : Dgv.Rows(i).Cells(35).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(36).Value) = True Then : Dgv.Rows(i).Cells(36).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(37).Value) = True Then : Dgv.Rows(i).Cells(37).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(38).Value) = True Then : Dgv.Rows(i).Cells(38).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(39).Value) = True Then : Dgv.Rows(i).Cells(39).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(40).Value) = True Then : Dgv.Rows(i).Cells(40).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(41).Value) = True Then : Dgv.Rows(i).Cells(41).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(42).Value) = True Then : Dgv.Rows(i).Cells(42).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(43).Value) = True Then : Dgv.Rows(i).Cells(43).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(44).Value) = True Then : Dgv.Rows(i).Cells(44).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(45).Value) = True Then : Dgv.Rows(i).Cells(45).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(46).Value) = True Then : Dgv.Rows(i).Cells(46).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(47).Value) = True Then : Dgv.Rows(i).Cells(47).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(48).Value) = True Then : Dgv.Rows(i).Cells(48).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(49).Value) = True Then : Dgv.Rows(i).Cells(49).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(50).Value) = True Then : Dgv.Rows(i).Cells(50).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(77).Value) = True Then : Dgv.Rows(i).Cells(77).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(78).Value) = True Then : Dgv.Rows(i).Cells(78).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(79).Value) = True Then : Dgv.Rows(i).Cells(79).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(80).Value) = True Then : Dgv.Rows(i).Cells(80).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(81).Value) = True Then : Dgv.Rows(i).Cells(81).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(82).Value) = True Then : Dgv.Rows(i).Cells(82).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(83).Value) = True Then : Dgv.Rows(i).Cells(83).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(84).Value) = True Then : Dgv.Rows(i).Cells(84).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(85).Value) = True Then : Dgv.Rows(i).Cells(85).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(86).Value) = True Then : Dgv.Rows(i).Cells(86).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(87).Value) = True Then : Dgv.Rows(i).Cells(87).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(88).Value) = True Then : Dgv.Rows(i).Cells(88).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(89).Value) = True Then : Dgv.Rows(i).Cells(89).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(90).Value) = True Then : Dgv.Rows(i).Cells(90).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(91).Value) = True Then : Dgv.Rows(i).Cells(91).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(92).Value) = True Then : Dgv.Rows(i).Cells(92).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(93).Value) = True Then : Dgv.Rows(i).Cells(93).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(94).Value) = True Then : Dgv.Rows(i).Cells(94).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(95).Value) = True Then : Dgv.Rows(i).Cells(95).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(96).Value) = True Then : Dgv.Rows(i).Cells(96).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(97).Value) = True Then : Dgv.Rows(i).Cells(97).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(98).Value) = True Then : Dgv.Rows(i).Cells(98).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(99).Value) = True Then : Dgv.Rows(i).Cells(99).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(100).Value) = True Then : Dgv.Rows(i).Cells(100).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(101).Value) = True Then : Dgv.Rows(i).Cells(101).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells(102).Value) = True Then : Dgv.Rows(i).Cells(102).Value = 0 : End If : If IsDBNull(Dgv.Rows(i).Cells(103).Value) = True Then : Dgv.Rows(i).Cells(103).Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("其他").Value) = True Then : Dgv.Rows(i).Cells("其他").Value = 0 : End If
            Dgv.Rows(i).Cells("主薪").Value = "0" : Dgv.Rows(i).Cells("AA比例").Value = "0.5" : Dgv.Rows(i).Cells("總時數").Value = "0"
            Dgv.Rows(i).Cells("平均時薪").Value = "0" : Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = "0" : Dgv.Rows(i).Cells("餘額").Value = "0"
            Dgv.Rows(i).Cells("加班費").Value = "0" : Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = "0" : Dgv.Rows(i).Cells("GA正常").Value = "0"
            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("總服務時數").Value = "0" : 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("BA正常").Value = "0" : Dgv.Rows(i).Cells("餘額比").Value = "0" : Dgv.Rows(i).Cells("實際總薪資").Value = "0"
            Dgv.Rows(i).Cells(89).Value = Dgv.Rows(i).Cells(77).Value + Dgv.Rows(i).Cells(78).Value + Dgv.Rows(i).Cells(79).Value + Dgv.Rows(i).Cells(80).Value + Dgv.Rows(i).Cells(81).Value +
                                          Dgv.Rows(i).Cells(82).Value + Dgv.Rows(i).Cells(83).Value + Dgv.Rows(i).Cells(84).Value + Dgv.Rows(i).Cells(85).Value + Dgv.Rows(i).Cells(86).Value +
                                          Dgv.Rows(i).Cells(87).Value + Dgv.Rows(i).Cells(88).Value
            Dgv.Rows(i).Cells(103).Value = Dgv.Rows(i).Cells(91).Value + Dgv.Rows(i).Cells(92).Value + Dgv.Rows(i).Cells(93).Value + Dgv.Rows(i).Cells(94).Value + Dgv.Rows(i).Cells(95).Value +
                                           Dgv.Rows(i).Cells(96).Value + Dgv.Rows(i).Cells(97).Value + Dgv.Rows(i).Cells(98).Value + Dgv.Rows(i).Cells(99).Value + Dgv.Rows(i).Cells(100).Value +
                                           Dgv.Rows(i).Cells(101).Value + Dgv.Rows(i).Cells(102).Value + Dgv.Rows(i).Cells("國薪資2.00").Value + Dgv.Rows(i).Cells("轉場薪資").Value +
                                           Dgv.Rows(i).Cells("平薪資1.34").Value + Dgv.Rows(i).Cells("平薪資1.67").Value + Dgv.Rows(i).Cells("休薪資1.34").Value + Dgv.Rows(i).Cells("休薪資1.67").Value
            If IsDBNull(Dgv.Rows(i).Cells("BA").Value) = True Then : Dgv.Rows(i).Cells("BA").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("GA").Value) = True Then : Dgv.Rows(i).Cells("GA").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("GAM1").Value) = True Then : Dgv.Rows(i).Cells("GAM1").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("GAM2").Value) = True Then : Dgv.Rows(i).Cells("GAM2").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA03").Value) = True Then : Dgv.Rows(i).Cells("AA03").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA04").Value) = True Then : Dgv.Rows(i).Cells("AA04").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA05").Value) = True Then : Dgv.Rows(i).Cells("AA05").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA06").Value) = True Then : Dgv.Rows(i).Cells("AA06").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA08").Value) = True Then : Dgv.Rows(i).Cells("AA08").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA10").Value) = True Then : Dgv.Rows(i).Cells("AA10").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA11").Value) = True Then : Dgv.Rows(i).Cells("AA11").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA07").Value) = True Then : Dgv.Rows(i).Cells("AA07").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA09").Value) = True Then : Dgv.Rows(i).Cells("AA09").Value = 0 : End If
            Dgv.Rows(i).Cells("BA正常").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) * CDbl(Dgv.Rows(i).Cells("BA比例").Value.ToString)
            Dgv.Rows(i).Cells("GA正常").Value = CDbl(Dgv.Rows(i).Cells("GA").Value.ToString) * CDbl(Dgv.Rows(i).Cells("BA比例").Value.ToString)
            Dgv.Rows(i).Cells("GA加給").Value = CDbl(Dgv.Rows(i).Cells("GAM1").Value.ToString) * CDbl(Dgv.Rows(i).Cells("GAM2").Value.ToString) * CDbl(Dgv.Rows(i).Cells("GA比").Value.ToString)
            Dgv.Rows(i).Cells("主薪").Value = CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString) +
                                                   CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString) + CDbl(Dgv.Rows(i).Cells("其他").Value.ToString) + CDbl(Dgv.Rows(i).Cells(89).Value.ToString)
            Dgv.Rows(i).Cells("AA").Value = (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) +
                                                    CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) +
                                                    CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) +
                                                    CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString)
            Dim 開啟扣除 As Boolean = 扣除狀態_ch.Checked : Dim 剃除總額 As Double = 0
            For K As Integer = 0 To AA剃除_dgv.Rows.Count - 1
                If Dgv.Rows(i).Cells("姓名").Value.ToString = AA剃除_dgv.Rows(K).Cells("居服員姓名").Value.ToString Then
                    剃除總額 += CDbl(AA剃除_dgv.Rows(K).Cells("剃除金額").Value.ToString)
                End If
            Next : Dgv.Rows(i).Cells("AA剃除").Value = 剃除總額
            If 開啟扣除 = True Then : Dgv.Rows(i).Cells("AA").Value = CDbl(Dgv.Rows(i).Cells("AA").Value) - 剃除總額 : End If
            If CDbl(Dgv.Rows(i).Cells("AA").Value) < 0 Then : Dgv.Rows(i).Cells("AA").Value = 0 : Dgv.Rows(i).Cells("AA剃除").Value = "0" : End If

            Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)
            For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1
                If Dgv.Rows(i).Cells("姓名").Value.ToString = 加班計算_dgv.Rows(II).Cells("姓名").Value.ToString And CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString) > 0 Then
                    Dgv.Rows(i).Cells("平日加班扣除額").Value = CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString) + CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString)
                End If
            Next
            Dgv.Rows(i).Cells("平日月薪/不含加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) - CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString)
            Dgv.Rows(i).Cells("正常班平均時薪").Value = (CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) -
                                                           CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString)) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)
            Dgv.Rows(i).Cells("總服務時數").Value = CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) +
                                                         CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) + CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) +
                                                         CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) +
                                                         CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString)
            Dgv.Rows(i).Cells("總轉場時數").Value = CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) + CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString)
            For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1
                If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "服務津貼" Then
                    If CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then
                        Dgv.Rows(i).Cells("服務津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For
                    End If
                End If
            Next
            For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1
                If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "轉場津貼" Then
                    If CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then
                        Dgv.Rows(i).Cells("轉場津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For
                    End If
                End If
            Next
            Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) +
                                                                   CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString)
            Dgv.Rows(i).Cells("加班費計算時薪標準").Value = CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)
            If CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv.Rows(i).Cells("加班費計算時薪標準").Value = "190" : End If
            Dgv.Rows(i).Cells("加班費").Value = ((CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) * 1.34) +
                                                (CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) * 1.67) +
                                                (CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) * 1.34) +
                                                (CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString) * 1.67) +
                                                (CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) * 2) +
                                                (CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) * 2)) * CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value.ToString)
            Dgv.Rows(i).Cells("副薪").Value = CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString)
            Dgv.Rows(i).Cells("總薪").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) + CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString)
            Dgv.Rows(i).Cells("總薪資").Value = CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString)
            Dgv.Rows(i).Cells(36).Value = Dgv.Rows(i).Cells(24).Value + Dgv.Rows(i).Cells(25).Value + Dgv.Rows(i).Cells(26).Value + Dgv.Rows(i).Cells(27).Value + Dgv.Rows(i).Cells(28).Value +
                                          Dgv.Rows(i).Cells(29).Value + Dgv.Rows(i).Cells(30).Value + Dgv.Rows(i).Cells(31).Value + Dgv.Rows(i).Cells(32).Value + Dgv.Rows(i).Cells(33).Value +
                                          Dgv.Rows(i).Cells(34).Value + Dgv.Rows(i).Cells(35).Value
            Dgv.Rows(i).Cells(49).Value = Dgv.Rows(i).Cells(37).Value + Dgv.Rows(i).Cells(38).Value + Dgv.Rows(i).Cells(39).Value + Dgv.Rows(i).Cells(40).Value + Dgv.Rows(i).Cells(41).Value +
                                          Dgv.Rows(i).Cells(42).Value + Dgv.Rows(i).Cells(43).Value + Dgv.Rows(i).Cells(44).Value + Dgv.Rows(i).Cells(45).Value + Dgv.Rows(i).Cells(46).Value +
                                          Dgv.Rows(i).Cells(47).Value + Dgv.Rows(i).Cells(48).Value
            Dgv.Rows(i).Cells("總時數").Value = CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString)
            Dgv.Rows(i).Cells("平均時薪").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString)
            If CDbl(最低薪資_lb.Text) = 0 Then
                Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString)
            Else
                Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休薪資1.67").Value.ToString) +
                                      CDbl(Dgv.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場薪資").Value.ToString) +
                                      CDbl(Dgv.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平薪資1.67").Value.ToString) +
                                      CDbl(Dgv.Rows(i).Cells("休薪資1.34").Value.ToString)
            End If

            If IsDBNull(Dgv.Rows(i).Cells("BAORSC").Value) = True Then : Dgv.Rows(i).Cells("BAORSC").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA長短").Value) = True Then : Dgv.Rows(i).Cells("AA長短").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv.Rows(i).Cells("BAORSC仁").Value = 0 : End If
            If IsDBNull(Dgv.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv.Rows(i).Cells("AA長短仁").Value = 0 : End If
            If CDbl(Dgv.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv.Rows(i).Cells("AA長短").Value) = 0 Then
                Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv.Rows(i).Cells("AA長短仁").Value)
            Else
                Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv.Rows(i).Cells("AA長短").Value)
            End If
            Dgv.Rows(i).Cells("餘額").Value = CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) -
                                              CDbl(Dgv.Rows(i).Cells(103).Value.ToString)
            Dgv.Rows(i).Cells("餘額比").Value = CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)

            BA正_tb.Text = Strings.Format(CDbl(BA正_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")
            BA正1_tb.Text = Strings.Format(CDbl(BA正1_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")
            GA正_tb.Text = Strings.Format(CDbl(GA正_tb.Text) + CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")
            GA加_tb.Text = Strings.Format(CDbl(GA加_tb.Text) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString), "#,##0.0")
            其他_tb.Text = Strings.Format(CDbl(其他_tb.Text) + CDbl(Dgv.Rows(i).Cells("其他").Value.ToString), "#,##0.0")
            主薪_tb.Text = Strings.Format(CDbl(主薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")
            AA_tb.Text = Strings.Format(CDbl(AA_tb.Text) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")
            AA1_tb.Text = Strings.Format(CDbl(AA1_tb.Text) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")
            副薪_tb.Text = Strings.Format(CDbl(副薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")
            總薪_tb.Text = Strings.Format(CDbl(總薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")
            加班扣除_tb.Text = Strings.Format(CDbl(加班扣除_tb.Text) + CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")
            平日月薪_tb.Text = Strings.Format(CDbl(平日月薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")
            服務_tb.Text = Strings.Format(CDbl(服務_tb.Text) + CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")
            轉場_tb.Text = Strings.Format(CDbl(轉場_tb.Text) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")
            修正月_tb.Text = Strings.Format(CDbl(修正月_tb.Text) + CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")
            修正月1_tb.Text = Strings.Format(CDbl(修正月1_tb.Text) + CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")
            加班費_tb.Text = Strings.Format(CDbl(加班費_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
            加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
            總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
            總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
            實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
            實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
            A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv.Rows(i).Cells(24).Value.ToString), "#,##0.0")
            A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv.Rows(i).Cells(25).Value.ToString), "#,##0.0")
            A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv.Rows(i).Cells(26).Value.ToString), "#,##0.0")
            A04_tb.Text = Strings.Format(CDbl(A04_tb.Text) + CDbl(Dgv.Rows(i).Cells(27).Value.ToString), "#,##0.0")
            A05_tb.Text = Strings.Format(CDbl(A05_tb.Text) + CDbl(Dgv.Rows(i).Cells(28).Value.ToString), "#,##0.0")
            A06_tb.Text = Strings.Format(CDbl(A06_tb.Text) + CDbl(Dgv.Rows(i).Cells(29).Value.ToString), "#,##0.0")
            A07_tb.Text = Strings.Format(CDbl(A07_tb.Text) + CDbl(Dgv.Rows(i).Cells(30).Value.ToString), "#,##0.0")
            A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv.Rows(i).Cells(31).Value.ToString), "#,##0.0")
            A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv.Rows(i).Cells(32).Value.ToString), "#,##0.0")
            A10_tb.Text = Strings.Format(CDbl(A10_tb.Text) + CDbl(Dgv.Rows(i).Cells(33).Value.ToString), "#,##0.0")
            A11_tb.Text = Strings.Format(CDbl(A11_tb.Text) + CDbl(Dgv.Rows(i).Cells(34).Value.ToString), "#,##0.0")
            A12_tb.Text = Strings.Format(CDbl(A12_tb.Text) + CDbl(Dgv.Rows(i).Cells(35).Value.ToString), "#,##0.0")
            減項總計_tb.Text = Strings.Format(CDbl(減項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(36).Value.ToString), "#,##0.0")
            B01_tb.Text = Strings.Format(CDbl(B01_tb.Text) + CDbl(Dgv.Rows(i).Cells(37).Value.ToString), "#,##0.0")
            B02_tb.Text = Strings.Format(CDbl(B02_tb.Text) + CDbl(Dgv.Rows(i).Cells(38).Value.ToString), "#,##0.0")
            B03_tb.Text = Strings.Format(CDbl(B03_tb.Text) + CDbl(Dgv.Rows(i).Cells(39).Value.ToString), "#,##0.0")
            B04_tb.Text = Strings.Format(CDbl(B04_tb.Text) + CDbl(Dgv.Rows(i).Cells(40).Value.ToString), "#,##0.0")
            B05_tb.Text = Strings.Format(CDbl(B05_tb.Text) + CDbl(Dgv.Rows(i).Cells(41).Value.ToString), "#,##0.0")
            B06_tb.Text = Strings.Format(CDbl(B06_tb.Text) + CDbl(Dgv.Rows(i).Cells(42).Value.ToString), "#,##0.0")
            B07_tb.Text = Strings.Format(CDbl(B07_tb.Text) + CDbl(Dgv.Rows(i).Cells(43).Value.ToString), "#,##0.0")
            B08_tb.Text = Strings.Format(CDbl(B08_tb.Text) + CDbl(Dgv.Rows(i).Cells(44).Value.ToString), "#,##0.0")
            B09_tb.Text = Strings.Format(CDbl(B09_tb.Text) + CDbl(Dgv.Rows(i).Cells(45).Value.ToString), "#,##0.0")
            B10_tb.Text = Strings.Format(CDbl(B10_tb.Text) + CDbl(Dgv.Rows(i).Cells(46).Value.ToString), "#,##0.0")
            B11_tb.Text = Strings.Format(CDbl(B11_tb.Text) + CDbl(Dgv.Rows(i).Cells(47).Value.ToString), "#,##0.0")
            B12_tb.Text = Strings.Format(CDbl(B12_tb.Text) + CDbl(Dgv.Rows(i).Cells(48).Value.ToString), "#,##0.0")
            加項總計_tb.Text = Strings.Format(CDbl(加項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(49).Value.ToString), "#,##0.0")
            D01_tb.Text = Strings.Format(CDbl(D01_tb.Text) + CDbl(Dgv.Rows(i).Cells(77).Value.ToString), "#,##0.0")
            D02_tb.Text = Strings.Format(CDbl(D02_tb.Text) + CDbl(Dgv.Rows(i).Cells(78).Value.ToString), "#,##0.0")
            D03_tb.Text = Strings.Format(CDbl(D03_tb.Text) + CDbl(Dgv.Rows(i).Cells(79).Value.ToString), "#,##0.0")
            D04_tb.Text = Strings.Format(CDbl(D04_tb.Text) + CDbl(Dgv.Rows(i).Cells(80).Value.ToString), "#,##0.0")
            D05_tb.Text = Strings.Format(CDbl(D05_tb.Text) + CDbl(Dgv.Rows(i).Cells(81).Value.ToString), "#,##0.0")
            D06_tb.Text = Strings.Format(CDbl(D06_tb.Text) + CDbl(Dgv.Rows(i).Cells(82).Value.ToString), "#,##0.0")
            D07_tb.Text = Strings.Format(CDbl(D07_tb.Text) + CDbl(Dgv.Rows(i).Cells(83).Value.ToString), "#,##0.0")
            D08_tb.Text = Strings.Format(CDbl(D08_tb.Text) + CDbl(Dgv.Rows(i).Cells(84).Value.ToString), "#,##0.0")
            D09_tb.Text = Strings.Format(CDbl(D09_tb.Text) + CDbl(Dgv.Rows(i).Cells(85).Value.ToString), "#,##0.0")
            D10_tb.Text = Strings.Format(CDbl(D10_tb.Text) + CDbl(Dgv.Rows(i).Cells(86).Value.ToString), "#,##0.0")
            D11_tb.Text = Strings.Format(CDbl(D11_tb.Text) + CDbl(Dgv.Rows(i).Cells(87).Value.ToString), "#,##0.0")
            D12_tb.Text = Strings.Format(CDbl(D12_tb.Text) + CDbl(Dgv.Rows(i).Cells(88).Value.ToString), "#,##0.0")
            薪資加項總計_tb.Text = Strings.Format(CDbl(薪資加項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(89).Value.ToString), "#,##0.0")
            E01_tb.Text = Strings.Format(CDbl(E01_tb.Text) + CDbl(Dgv.Rows(i).Cells(91).Value.ToString), "#,##0.0")
            E02_tb.Text = Strings.Format(CDbl(E02_tb.Text) + CDbl(Dgv.Rows(i).Cells(92).Value.ToString), "#,##0.0")
            E03_tb.Text = Strings.Format(CDbl(E03_tb.Text) + CDbl(Dgv.Rows(i).Cells(93).Value.ToString), "#,##0.0")
            E04_tb.Text = Strings.Format(CDbl(E04_tb.Text) + CDbl(Dgv.Rows(i).Cells(94).Value.ToString), "#,##0.0")
            E05_tb.Text = Strings.Format(CDbl(E05_tb.Text) + CDbl(Dgv.Rows(i).Cells(95).Value.ToString), "#,##0.0")
            E06_tb.Text = Strings.Format(CDbl(E06_tb.Text) + CDbl(Dgv.Rows(i).Cells(96).Value.ToString), "#,##0.0")
            E07_tb.Text = Strings.Format(CDbl(E07_tb.Text) + CDbl(Dgv.Rows(i).Cells(97).Value.ToString), "#,##0.0")
            E08_tb.Text = Strings.Format(CDbl(E08_tb.Text) + CDbl(Dgv.Rows(i).Cells(98).Value.ToString), "#,##0.0")
            E09_tb.Text = Strings.Format(CDbl(E09_tb.Text) + CDbl(Dgv.Rows(i).Cells(99).Value.ToString), "#,##0.0")
            E10_tb.Text = Strings.Format(CDbl(E10_tb.Text) + CDbl(Dgv.Rows(i).Cells(100).Value.ToString), "#,##0.0")
            E11_tb.Text = Strings.Format(CDbl(E11_tb.Text) + CDbl(Dgv.Rows(i).Cells(101).Value.ToString), "#,##0.0")
            E12_tb.Text = Strings.Format(CDbl(E12_tb.Text) + CDbl(Dgv.Rows(i).Cells(102).Value.ToString), "#,##0.0")
            公司負擔總計_tb.Text = Strings.Format(CDbl(公司負擔總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(103).Value.ToString), "#,##0.0")
            C01_tb.Text = Strings.Format(CDbl(C01_tb.Text) + CDbl(Dgv.Rows(i).Cells(50).Value.ToString), "#,##0.0")
            C01_1_tb.Text = Strings.Format(CDbl(C01_1_tb.Text) + CDbl(Dgv.Rows(i).Cells(50).Value.ToString), "#,##0.0")
            總時數_tb.Text = Strings.Format(CDbl(總時數_tb.Text) + CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString), "#,##0.0")
            平均時薪_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) / CDbl(總時數_tb.Text), "#,##0.0")
            BAAA加_tb.Text = Strings.Format(CDbl(BAAA加_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString), "#,##0.0")
            餘額_tb.Text = Strings.Format(CDbl(餘額_tb.Text) + CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")
            餘額比_tb.Text = Strings.Format((CDbl(餘額_tb.Text) / CDbl(BAAA加_tb.Text) * 100), "#,##0.0") & " %"

            Dgv.Rows(i).Cells("BA正常").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("GA正常").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("主薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("AA").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("加班費").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("副薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("總薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("平日工時").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString), "##0.00")
            Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("平日加班扣除額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("平日月薪/不含加班").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("正常班平均時薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("正常班平均時薪").Value.ToString), "##0.00")
            Dgv.Rows(i).Cells("總服務時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString), "##0.00")
            Dgv.Rows(i).Cells("總轉場時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString), "##0.00")
            Dgv.Rows(i).Cells("服務津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("轉場津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("加班費計算時薪標準").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("總薪資").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("總時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString), "##0.00")
            Dgv.Rows(i).Cells("平均時薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平均時薪").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("餘額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")
            Dgv.Rows(i).Cells("餘額比").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("餘額比").Value.ToString) * 100, "#,##0.0") & " %"
            Dgv.Rows(i).Cells("BA比例").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA比例").Value.ToString) * 100, "#,##0.0") & " %"
            Dgv.Rows(i).Cells("AA比例").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString) * 100, "#,##0.0") & " %"
            Dgv.Rows(i).Cells("服務轉場比").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString) /
                                                                  CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) * 100, "#,##0.0") & " %"

            If CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) = 0 Then : Else : 分母(0) += 1 : 分子(0) += CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString) = 0 Then : Else : 分母(1) += 1 : 分子(1) += CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString) = 0 Then : Else : 分母(2) += 1 : 分子(2) += CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) = 0 Then : Else : 分母(3) += 1 : 分子(3) += CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) = 0 Then : Else : 分母(4) += 1 : 分子(4) += CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) = 0 Then : Else : 分母(5) += 1 : 分子(5) += CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) = 0 Then : Else : 分母(6) += 1 : 分子(6) += CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) = 0 Then : Else : 分母(7) += 1 : 分子(7) += CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) : End If
            If CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString) = 0 Then : Else : 分母(8) += 1 : 分子(8) += CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString) : End If
        Next
        If 分子(0) = 0 Then : 平均1_tb.Text = "0.0 [ " & 分母(0) & "人 ]" : Else : 平均1_tb.Text = Strings.Format(分子(0) / 分母(0), "#,##0.0") & " [ " & 分母(0) & "人 ]" : End If
        If 分子(1) = 0 Then : 平均2_tb.Text = "0.0 [ " & 分母(1) & "人 ]" : Else : 平均2_tb.Text = Strings.Format(分子(1) / 分母(1), "#,##0.0") & " [ " & 分母(1) & "人 ]" : End If
        If 分子(2) = 0 Then : 平均3_tb.Text = "0.0 [ " & 分母(2) & "人 ]" : Else : 平均3_tb.Text = Strings.Format(分子(2) / 分母(2), "#,##0.0") & " [ " & 分母(2) & "人 ]" : End If
        If 分子(3) = 0 Then : 平均4_tb.Text = "0.0 [ " & 分母(3) & "人 ]" : Else : 平均4_tb.Text = Strings.Format(分子(3) / 分母(3), "#,##0.0") & " [ " & 分母(3) & "人 ]" : End If
        If 分子(4) = 0 Then : 平均5_tb.Text = "0.0 [ " & 分母(4) & "人 ]" : Else : 平均5_tb.Text = Strings.Format(分子(4) / 分母(4), "#,##0.0") & " [ " & 分母(4) & "人 ]" : End If
        If 分子(5) = 0 Then : 平均6_tb.Text = "0.0 [ " & 分母(5) & "人 ]" : Else : 平均6_tb.Text = Strings.Format(分子(5) / 分母(5), "#,##0.0") & " [ " & 分母(5) & "人 ]" : End If
        If 分子(6) = 0 Then : 平均7_tb.Text = "0.0 [ " & 分母(6) & "人 ]" : Else : 平均7_tb.Text = Strings.Format(分子(6) / 分母(6), "#,##0.0") & " [ " & 分母(6) & "人 ]" : End If
        If 分子(7) = 0 Then : 平均8_tb.Text = "0.0 [ " & 分母(7) & "人 ]" : Else : 平均8_tb.Text = Strings.Format(分子(7) / 分母(7), "#,##0.0") & " [ " & 分母(7) & "人 ]" : End If
        If 分子(8) = 0 Then : 平均9_tb.Text = "0.0 [ " & 分母(8) & "人 ]" : Else : 平均9_tb.Text = Strings.Format(分子(8) / 分母(8), "#,##0.0") & " [ " & 分母(8) & "人 ]" : End If
    End Sub
    Private Sub Set_服務人員1()
        年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text
        Dim ds As New DataSet : Dgv1.DataSource = Nothing : ds.Clear()
        Dgv1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        Dgv1.ColumnHeadersHeight = 80 : Dgv1.AllowUserToAddRows = False : Dgv1.RowTemplate.Height = 25
        PA1 = 年份_cb.Text & 月份_cb.Text : SQL2 = "人事拆帳制A碼項目長照所" : SQL_薪資彙總表_仁寶()
        da.Fill(ds) : Dgv1.DataSource = ds.Tables(0) : conn.Close()
        Dgv1.EditMode = DataGridViewEditMode.EditOnEnter

        Dgv1.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("BA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("BA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(25).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("GA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("GA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("GA加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("GA加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("其他").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("其他").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("主薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("主薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("AA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("AA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("AA").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("AA").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("副薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("副薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(32).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("總薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("總薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平日工時").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平日工時").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("總時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("總時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("休3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("休3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("休0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("休0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("服務津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("服務津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("轉場津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("轉場津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("餘額比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(42).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("餘額比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(42).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("加班費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(43).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("加班費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(43).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(44).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("總服務時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(45).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("總服務時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(45).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("總轉場時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(46).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("總轉場時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(46).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(47).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(47).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("假日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(48).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("假日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(48).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平0-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(49).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平0-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(49).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平9-10").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(50).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平9-10").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(50).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平11-12").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns("國0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平11-12").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns("國0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(77).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(77).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(78).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(78).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(79).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(79).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(80).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(80).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(81).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(81).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(82).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(82).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(83).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(83).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(84).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(84).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(85).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(85).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(86).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(86).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(87).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(87).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(88).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(88).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(89).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(89).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(90).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(90).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(91).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(91).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(92).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(92).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(93).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(93).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(94).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(94).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(95).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(95).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(96).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(96).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(97).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(97).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(98).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(98).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(99).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(99).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(100).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(100).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(101).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(101).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(102).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(102).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns(103).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(103).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("國3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("國3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("正常班平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("正常班平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平日加班扣除額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平日加班扣除額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平日平均時薪/含平日加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平日平均時薪/含平日加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平日月薪/不含加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平日月薪/不含加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("BA+GA+AA_總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("BA+GA+AA_總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("修正後月薪+Ａ+津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Dgv1.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dgv1.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        Dgv1.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv1.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休加班1.34").DefaultCellStyle.Format = "#,##0.000"
        Dgv1.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("正常班轉場").DefaultCellStyle.Format = "#,##0.000"
        Dgv1.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("平加班1.34").DefaultCellStyle.Format = "#,##0.000"
        Dgv1.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("其他").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("平加班1.67").DefaultCellStyle.Format = "#,##0.000"
        Dgv1.Columns("轉場薪資").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("平薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休加班1.67").DefaultCellStyle.Format = "#,##0.000"
        Dgv1.Columns("平薪資1.67").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休薪資1.67").DefaultCellStyle.Format = "#,##0"
        Dgv1.Columns("國薪資2.00").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("國加班2.00").DefaultCellStyle.Format = "#,##0.000" : Dgv1.Columns("實際總薪資").DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(25).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(103).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(28).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(31).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(34).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(35).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(36).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(37).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(38).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(39).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(40).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(41).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(42).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(43).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(44).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(45).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(46).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(47).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(48).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(49).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(50).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(77).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(78).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(79).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(80).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(81).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(82).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(83).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(84).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(85).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(86).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(87).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(88).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(89).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(90).DefaultCellStyle.Format = "#,##0"
        Dgv1.Columns(91).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(92).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(93).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(94).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(95).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(96).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(97).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(98).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(99).DefaultCellStyle.Format = "#,##0.0"
        Dgv1.Columns(100).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(101).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(102).DefaultCellStyle.Format = "#,##0.0"

        Dgv1.Columns("GAM1").Visible = False : Dgv1.Columns("GAM2").Visible = False : Dgv1.Columns("BA").Visible = False : Dgv1.Columns("GA").Visible = False
        Set_分頁1()

        For i As Integer = 0 To 73 : Dgv1.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv1.Columns(i).ReadOnly = False : Next
        For i As Integer = 77 To 88 : Dgv1.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv1.Columns(i).ReadOnly = False : Next
        For i As Integer = 37 To 48 : Dgv1.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv1.Columns(i).ReadOnly = True : Next
        Dgv1.Columns("服務轉場比").ReadOnly = False : Dgv1.Columns("總服務時數").ReadOnly = False : Dgv1.Columns("其他").ReadOnly = False : Dgv1.Columns(50).ReadOnly = False
        Dgv1.Columns("總轉場時數").ReadOnly = False : Dgv1.Columns("公司負擔總計").ReadOnly = True : Dgv1.Columns("薪資加項總計").ReadOnly = True
        Dgv1.Columns("總服務時數").ReadOnly = True : Dgv1.Columns("總轉場時數").ReadOnly = True : Dgv1.Columns("服務轉場比").ReadOnly = True : Dgv1.Columns("實際總薪資").ReadOnly = True
        Dgv1.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
        Dgv1.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
        Dgv1.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
        Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean
        For i As Integer = 0 To Dgv1.Rows.Count - 1 : 新增 = False
            If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
            For ii As Integer = 0 To BA比1_dgv.Rows.Count - 1
                If Dgv1.Rows(i).Cells("姓名").Value.ToString = BA比1_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If
            Next
            If 新增 = True Then
                SQL2 = "(N'', N'" & Dgv1.Rows(i).Cells("姓名").Value.ToString & "', N'" & Dgv1.Rows(i).Cells("BA比例").Value.ToString & "')"
                SQL_BA比_新增() : 重讀 = True
            End If
        Next : If 重讀 = True Then : Set_BA比1() : End If
        Set_BA比2() : 重讀 = False
        For i As Integer = 0 To BA比1_dgv.Rows.Count - 1 : 新增 = False
            If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
            For ii As Integer = 0 To BA比1_dgv.Rows.Count - 1
                If BA比1_dgv.Rows(i).Cells("姓名").Value.ToString = BA比1_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If
            Next
            If 新增 = True Then
                SQL2 = "(N'" & PA1 & "', N'" & BA比1_dgv.Rows(i).Cells("姓名").Value.ToString & "', N'" & BA比1_dgv.Rows(i).Cells("BA").Value.ToString & "')"
                SQL_BA比_新增() : 重讀 = True
            End If
        Next : If 重讀 = True Then : Set_BA比2() : End If
        For i As Integer = 0 To Dgv1.Rows.Count - 1
            Dgv1.Rows(i).Cells("正常班轉場").Value = "0" : Dgv1.Rows(i).Cells("平加班1.34").Value = "0" : Dgv1.Rows(i).Cells("平加班1.67").Value = "0"
            Dgv1.Rows(i).Cells("休加班1.34").Value = "0" : Dgv1.Rows(i).Cells("休加班1.67").Value = "0" : Dgv1.Rows(i).Cells("國加班2.00").Value = "0"
            For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
                If Dgv1.Rows(i).Cells("姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                    If 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期日" And 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期六" Then
                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1 Then
                            Dgv1.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
                            Dgv1.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
                            Dgv1.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        End If
                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期六" Then
                        If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
                            Dgv1.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
                            Dgv1.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                        End If
                    ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期日" Then
                        Dgv1.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
                    End If
                End If
            Next
            Dgv1.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value) / 60 : Dgv1.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value) / 60
            Dgv1.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value) / 60 : Dgv1.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value) / 60
            Dgv1.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value) / 60 : Dgv1.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value) / 60

            Dgv1.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value.ToString) * 198
            Dgv1.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value.ToString) * 198 * 1.34
            Dgv1.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value.ToString) * 198 * 1.67
            Dgv1.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value.ToString) * 198 * 1.34
            Dgv1.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value.ToString) * 198 * 1.67
            Dgv1.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value.ToString) * 198 * 2
        Next
        Set_薪資計算1()
    End Sub
    Private Sub Set_分頁1()
        If 主表_ch.Checked = True And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False
            Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False
            Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False
            Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

            Dgv1.Columns("BA比例").Visible = True : Dgv1.Columns("BA正常").Visible = True : Dgv1.Columns("GA正常").Visible = True
            Dgv1.Columns("GA加給").Visible = True : Dgv1.Columns("其他").Visible = True : Dgv1.Columns("主薪").Visible = True
            Dgv1.Columns("AA比例").Visible = True : Dgv1.Columns("AA").Visible = True : Dgv1.Columns("副薪").Visible = True
            Dgv1.Columns("總薪").Visible = True : Dgv1.Columns("平日工時").Visible = True : Dgv1.Columns("平日平均時薪/含平日加班").Visible = True
            Dgv1.Columns("平日加班扣除額").Visible = True : Dgv1.Columns("平日月薪/不含加班").Visible = True : Dgv1.Columns("正常班平均時薪").Visible = True
            Dgv1.Columns("服務津貼").Visible = True : Dgv1.Columns("轉場津貼").Visible = True : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = True
            Dgv1.Columns("加班費計算時薪標準").Visible = True : Dgv1.Columns("加班費").Visible = True : Dgv1.Columns("總薪資").Visible = True

            Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False
            Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False
            Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

            Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False
            Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False
            Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

            Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
            Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False

            Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
            Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
            Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False

            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False

            Dgv1.Columns(50).Visible = False

            Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = True And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False
            Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False
            Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False
            Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

            Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False
            Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False
            Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False
            Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False
            Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False
            Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False
            Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

            Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False
            Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False
            Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

            Dgv1.Columns(37).Visible = True : Dgv1.Columns(38).Visible = True : Dgv1.Columns(39).Visible = True : Dgv1.Columns(40).Visible = True : Dgv1.Columns(41).Visible = True
            Dgv1.Columns(42).Visible = True : Dgv1.Columns(43).Visible = True : Dgv1.Columns(44).Visible = True : Dgv1.Columns(45).Visible = True : Dgv1.Columns(46).Visible = True
            Dgv1.Columns(47).Visible = True : Dgv1.Columns(48).Visible = True : Dgv1.Columns(49).Visible = True

            Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
            Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False

            Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
            Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
            Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False

            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False

            Dgv1.Columns(50).Visible = True

            Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = True And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False
            Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False
            Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False
            Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

            Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False
            Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False
            Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False
            Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False
            Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False
            Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False
            Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

            Dgv1.Columns(24).Visible = True : Dgv1.Columns(25).Visible = True : Dgv1.Columns(26).Visible = True : Dgv1.Columns(27).Visible = True : Dgv1.Columns(28).Visible = True
            Dgv1.Columns(29).Visible = True : Dgv1.Columns(30).Visible = True : Dgv1.Columns(31).Visible = True : Dgv1.Columns(32).Visible = True : Dgv1.Columns(33).Visible = True
            Dgv1.Columns(34).Visible = True : Dgv1.Columns(35).Visible = True : Dgv1.Columns(36).Visible = True

            Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False
            Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False
            Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

            Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
            Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False

            Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
            Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
            Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False

            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False

            Dgv1.Columns(50).Visible = True

            Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = True And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = True : Dgv1.Columns("平0-8").Visible = True : Dgv1.Columns("平9-10").Visible = True
            Dgv1.Columns("平11-12").Visible = True : Dgv1.Columns("國0-2").Visible = True : Dgv1.Columns("國3-8").Visible = True
            Dgv1.Columns("休0-2").Visible = True : Dgv1.Columns("休3-8").Visible = True : Dgv1.Columns("假日轉場").Visible = True
            Dgv1.Columns("總服務時數").Visible = True : Dgv1.Columns("總轉場時數").Visible = True

            Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False
            Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False
            Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False
            Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False
            Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False
            Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False
            Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

            Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False
            Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False
            Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

            Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False
            Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False
            Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

            Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
            Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False

            Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
            Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
            Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False

            Dgv1.Columns(106).Visible = True : Dgv1.Columns(107).Visible = True : Dgv1.Columns(108).Visible = True : Dgv1.Columns(109).Visible = True : Dgv1.Columns(110).Visible = True
            Dgv1.Columns(111).Visible = True : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False

            Dgv1.Columns(50).Visible = False

            Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = True
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True And
            薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False
            Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False
            Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False
            Dgv1.Columns("總服務時數").Visible = True : Dgv1.Columns("總轉場時數").Visible = True

            Dgv1.Columns("BA比例").Visible = True : Dgv1.Columns("BA正常").Visible = True : Dgv1.Columns("GA正常").Visible = False
            Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False
            Dgv1.Columns("AA比例").Visible = True : Dgv1.Columns("AA").Visible = True : Dgv1.Columns("副薪").Visible = False
            Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False
            Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False
            Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = True
            Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = True : Dgv1.Columns("總薪資").Visible = True

            Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False
            Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False
            Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

            Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False
            Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False
            Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

            Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
            Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False

            Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
            Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
            Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False

            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False

            Dgv1.Columns(50).Visible = False

            Dgv1.Columns("總時數").Visible = True : Dgv1.Columns("平均時薪").Visible = True : Dgv1.Columns("BA+GA+AA_總額").Visible = True : Dgv1.Columns("餘額").Visible = True
            Dgv1.Columns("餘額比").Visible = True : Dgv1.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
            薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False
            Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False
            Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False
            Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

            Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False
            Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False
            Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False
            Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False
            Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False
            Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False
            Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

            Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False
            Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False
            Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

            Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False
            Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False
            Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

            Dgv1.Columns(77).Visible = True : Dgv1.Columns(78).Visible = True : Dgv1.Columns(79).Visible = True : Dgv1.Columns(80).Visible = True : Dgv1.Columns(81).Visible = True
            Dgv1.Columns(82).Visible = True : Dgv1.Columns(83).Visible = True : Dgv1.Columns(84).Visible = True : Dgv1.Columns(85).Visible = True : Dgv1.Columns(86).Visible = True
            Dgv1.Columns(87).Visible = True : Dgv1.Columns(88).Visible = True : Dgv1.Columns(89).Visible = True : Dgv1.Columns(90).Visible = True

            Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
            Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
            Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False

            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
            Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False

            Dgv1.Columns(50).Visible = False

            Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
        ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
              薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = True Then
            Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
            Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
            Dgv1.Columns("AA11").Visible = False

            Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False
            Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False
            Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False
            Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

            Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False
            Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False
            Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False
            Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False
            Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False
            Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False
            Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

            Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False
            Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False
            Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

            Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False
            Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False
            Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

            Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
            Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
            Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False

            Dgv1.Columns(91).Visible = True : Dgv1.Columns(92).Visible = True : Dgv1.Columns(93).Visible = True : Dgv1.Columns(94).Visible = True : Dgv1.Columns(95).Visible = True
            Dgv1.Columns(96).Visible = True : Dgv1.Columns(97).Visible = True : Dgv1.Columns(98).Visible = True : Dgv1.Columns(99).Visible = True : Dgv1.Columns(100).Visible = True
            Dgv1.Columns(101).Visible = True : Dgv1.Columns(102).Visible = True : Dgv1.Columns(103).Visible = True

            Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
            Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = True : Dgv1.Columns(113).Visible = True : Dgv1.Columns(114).Visible = True : Dgv1.Columns(115).Visible = True
            Dgv1.Columns(116).Visible = True : Dgv1.Columns(117).Visible = True

            Dgv1.Columns(50).Visible = False

            Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
            Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
        End If
        Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False : Dgv1.Columns("總薪").Visible = False
        Dgv1.Columns("正常班平均時薪").Visible = False : Dgv1.Columns("副薪").Visible = False : Dgv1.Columns("平日工時").Visible = False
        Dgv1.Columns("平日平均時薪/含平日加班").Visible = False : Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False
        Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv1.Columns("AA07").Visible = False : Dgv1.Columns("AA09").Visible = False
        Dgv1.Columns("BAORSC").Visible = False : Dgv1.Columns("AA長短").Visible = False : Dgv1.Columns("BAORSC仁").Visible = False : Dgv1.Columns("AA長短仁").Visible = False
    End Sub
    Private Sub Set_薪資計算1()
        BA正_tb.Text = "0" : GA正_tb.Text = "0" : GA加_tb.Text = "0" : 其他_tb.Text = "0" : 主薪_tb.Text = "0" : AA_tb.Text = "0" : 副薪_tb.Text = "0" : 總薪_tb.Text = "0"
        加班扣除_tb.Text = "0" : 平日月薪_tb.Text = "0" : 服務_tb.Text = "0" : 轉場_tb.Text = "0" : 修正月_tb.Text = "0" : 加班費_tb.Text = "0" : 總薪資_tb.Text = "0" : AA1_tb.Text = "0"
        A01_tb.Text = "0" : A02_tb.Text = "0" : A03_tb.Text = "0" : A04_tb.Text = "0" : A05_tb.Text = "0" : A06_tb.Text = "0" : A07_tb.Text = "0" : A08_tb.Text = "0" : A09_tb.Text = "0"
        A10_tb.Text = "0" : A11_tb.Text = "0" : A12_tb.Text = "0" : 加項總計_tb.Text = "0" : 減項總計_tb.Text = "0" : C01_tb.Text = "0" : C01_1_tb.Text = "0" : BA正1_tb.Text = "0"
        B01_tb.Text = "0" : B02_tb.Text = "0" : B03_tb.Text = "0" : B04_tb.Text = "0" : B05_tb.Text = "0" : B06_tb.Text = "0" : B07_tb.Text = "0" : B08_tb.Text = "0" : B09_tb.Text = "0"
        B10_tb.Text = "0" : B11_tb.Text = "0" : B12_tb.Text = "0" : 總時數_tb.Text = "0" : 修正月1_tb.Text = "0" : 加班費1_tb.Text = "0" : 總薪資1_tb.Text = "0" : 平均時薪_tb.Text = "0"
        BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
        D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
        E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
        E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資1_tb.Text = "0" : 實際薪資_tb.Text = "0"
        For i As Integer = 0 To Dgv1.Rows.Count - 1
            For ii As Integer = 0 To BA比_dgv.Rows.Count - 1
                If Dgv1.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                    Dgv1.Rows(i).Cells("BA比例").Value = BA比_dgv.Rows(ii).Cells("BA").Value.ToString
                End If
            Next
            If IsDBNull(Dgv1.Rows(i).Cells(24).Value) = True Then : Dgv1.Rows(i).Cells(24).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(25).Value) = True Then : Dgv1.Rows(i).Cells(25).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(26).Value) = True Then : Dgv1.Rows(i).Cells(26).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(27).Value) = True Then : Dgv1.Rows(i).Cells(27).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(28).Value) = True Then : Dgv1.Rows(i).Cells(28).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(29).Value) = True Then : Dgv1.Rows(i).Cells(29).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(30).Value) = True Then : Dgv1.Rows(i).Cells(30).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(31).Value) = True Then : Dgv1.Rows(i).Cells(31).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(32).Value) = True Then : Dgv1.Rows(i).Cells(32).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(33).Value) = True Then : Dgv1.Rows(i).Cells(33).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(34).Value) = True Then : Dgv1.Rows(i).Cells(34).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(35).Value) = True Then : Dgv1.Rows(i).Cells(35).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(36).Value) = True Then : Dgv1.Rows(i).Cells(36).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(37).Value) = True Then : Dgv1.Rows(i).Cells(37).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(38).Value) = True Then : Dgv1.Rows(i).Cells(38).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(39).Value) = True Then : Dgv1.Rows(i).Cells(39).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(40).Value) = True Then : Dgv1.Rows(i).Cells(40).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(41).Value) = True Then : Dgv1.Rows(i).Cells(41).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(42).Value) = True Then : Dgv1.Rows(i).Cells(42).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(43).Value) = True Then : Dgv1.Rows(i).Cells(43).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(44).Value) = True Then : Dgv1.Rows(i).Cells(44).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(45).Value) = True Then : Dgv1.Rows(i).Cells(45).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(46).Value) = True Then : Dgv1.Rows(i).Cells(46).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(47).Value) = True Then : Dgv1.Rows(i).Cells(47).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(48).Value) = True Then : Dgv1.Rows(i).Cells(48).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(49).Value) = True Then : Dgv1.Rows(i).Cells(49).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(50).Value) = True Then : Dgv1.Rows(i).Cells(50).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(77).Value) = True Then : Dgv1.Rows(i).Cells(77).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(78).Value) = True Then : Dgv1.Rows(i).Cells(78).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(79).Value) = True Then : Dgv1.Rows(i).Cells(79).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(80).Value) = True Then : Dgv1.Rows(i).Cells(80).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(81).Value) = True Then : Dgv1.Rows(i).Cells(81).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(82).Value) = True Then : Dgv1.Rows(i).Cells(82).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(83).Value) = True Then : Dgv1.Rows(i).Cells(83).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(84).Value) = True Then : Dgv1.Rows(i).Cells(84).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(85).Value) = True Then : Dgv1.Rows(i).Cells(85).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(86).Value) = True Then : Dgv1.Rows(i).Cells(86).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(87).Value) = True Then : Dgv1.Rows(i).Cells(87).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(88).Value) = True Then : Dgv1.Rows(i).Cells(88).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(89).Value) = True Then : Dgv1.Rows(i).Cells(89).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(90).Value) = True Then : Dgv1.Rows(i).Cells(90).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(91).Value) = True Then : Dgv1.Rows(i).Cells(91).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(92).Value) = True Then : Dgv1.Rows(i).Cells(92).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(93).Value) = True Then : Dgv1.Rows(i).Cells(93).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(94).Value) = True Then : Dgv1.Rows(i).Cells(94).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(95).Value) = True Then : Dgv1.Rows(i).Cells(95).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(96).Value) = True Then : Dgv1.Rows(i).Cells(96).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(97).Value) = True Then : Dgv1.Rows(i).Cells(97).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(98).Value) = True Then : Dgv1.Rows(i).Cells(98).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(99).Value) = True Then : Dgv1.Rows(i).Cells(99).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(100).Value) = True Then : Dgv1.Rows(i).Cells(100).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(101).Value) = True Then : Dgv1.Rows(i).Cells(101).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells(102).Value) = True Then : Dgv1.Rows(i).Cells(102).Value = 0 : End If : If IsDBNull(Dgv1.Rows(i).Cells(103).Value) = True Then : Dgv1.Rows(i).Cells(103).Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("其他").Value) = True Then : Dgv1.Rows(i).Cells("其他").Value = 0 : End If
            Dgv1.Rows(i).Cells("主薪").Value = "0" : Dgv1.Rows(i).Cells("AA比例").Value = "0.5" : Dgv1.Rows(i).Cells("總時數").Value = "0"
            Dgv1.Rows(i).Cells("平均時薪").Value = "0" : Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = "0" : Dgv1.Rows(i).Cells("餘額").Value = "0"
            Dgv1.Rows(i).Cells("加班費").Value = "0" : Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = "0" : Dgv1.Rows(i).Cells("GA正常").Value = "0"
            Dgv1.Rows(i).Cells("平日加班扣除額").Value = "0" : Dgv1.Rows(i).Cells("轉場津貼").Value = "0" : Dgv1.Rows(i).Cells("總轉場時數").Value = "0"
            Dgv1.Rows(i).Cells("正常班平均時薪").Value = "0" : Dgv1.Rows(i).Cells("總服務時數").Value = "0" : Dgv1.Rows(i).Cells("服務津貼").Value = "0"
            Dgv1.Rows(i).Cells("總服務時數").Value = "0" : Dgv1.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv1.Rows(i).Cells("總薪資").Value = "0"
            Dgv1.Rows(i).Cells("BA正常").Value = "0" : Dgv1.Rows(i).Cells("餘額比").Value = "0"
            Dgv1.Rows(i).Cells(89).Value = Dgv1.Rows(i).Cells(77).Value + Dgv1.Rows(i).Cells(78).Value + Dgv1.Rows(i).Cells(79).Value + Dgv1.Rows(i).Cells(80).Value + Dgv1.Rows(i).Cells(81).Value +
                                          Dgv1.Rows(i).Cells(82).Value + Dgv1.Rows(i).Cells(83).Value + Dgv1.Rows(i).Cells(84).Value + Dgv1.Rows(i).Cells(85).Value + Dgv1.Rows(i).Cells(86).Value +
                                          Dgv1.Rows(i).Cells(87).Value + Dgv1.Rows(i).Cells(88).Value
            Dgv1.Rows(i).Cells(103).Value = Dgv1.Rows(i).Cells(91).Value + Dgv1.Rows(i).Cells(92).Value + Dgv1.Rows(i).Cells(93).Value + Dgv1.Rows(i).Cells(94).Value + Dgv1.Rows(i).Cells(95).Value +
                                           Dgv1.Rows(i).Cells(96).Value + Dgv1.Rows(i).Cells(97).Value + Dgv1.Rows(i).Cells(98).Value + Dgv1.Rows(i).Cells(99).Value + Dgv1.Rows(i).Cells(100).Value +
                                           Dgv1.Rows(i).Cells(101).Value + Dgv1.Rows(i).Cells(102).Value + Dgv1.Rows(i).Cells("國薪資2.00").Value + Dgv1.Rows(i).Cells("轉場薪資").Value +
                                           Dgv1.Rows(i).Cells("平薪資1.34").Value + Dgv1.Rows(i).Cells("平薪資1.67").Value + Dgv1.Rows(i).Cells("休薪資1.34").Value + Dgv1.Rows(i).Cells("休薪資1.67").Value
            If IsDBNull(Dgv1.Rows(i).Cells("BA").Value) = True Then : Dgv1.Rows(i).Cells("BA").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("GA").Value) = True Then : Dgv1.Rows(i).Cells("GA").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("GAM1").Value) = True Then : Dgv1.Rows(i).Cells("GAM1").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("GAM2").Value) = True Then : Dgv1.Rows(i).Cells("GAM2").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA03").Value) = True Then : Dgv1.Rows(i).Cells("AA03").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA04").Value) = True Then : Dgv1.Rows(i).Cells("AA04").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA05").Value) = True Then : Dgv1.Rows(i).Cells("AA05").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA06").Value) = True Then : Dgv1.Rows(i).Cells("AA06").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA08").Value) = True Then : Dgv1.Rows(i).Cells("AA08").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA10").Value) = True Then : Dgv1.Rows(i).Cells("AA10").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA11").Value) = True Then : Dgv1.Rows(i).Cells("AA11").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA07").Value) = True Then : Dgv1.Rows(i).Cells("AA07").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA09").Value) = True Then : Dgv1.Rows(i).Cells("AA09").Value = 0 : End If
            Dgv1.Rows(i).Cells("BA正常").Value = CDbl(Dgv1.Rows(i).Cells("BA").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("BA比例").Value.ToString)
            Dgv1.Rows(i).Cells("GA正常").Value = CDbl(Dgv1.Rows(i).Cells("GA").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("BA比例").Value.ToString)
            Dgv1.Rows(i).Cells("GA加給").Value = CDbl(Dgv1.Rows(i).Cells("GAM1").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("GAM2").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("GA比").Value.ToString)
            Dgv1.Rows(i).Cells("主薪").Value = CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("GA正常").Value.ToString) +
                                                   CDbl(Dgv1.Rows(i).Cells("GA加給").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("其他").Value.ToString) + CDbl(Dgv1.Rows(i).Cells(89).Value.ToString)
            Dgv1.Rows(i).Cells("AA").Value = (CDbl(Dgv1.Rows(i).Cells("AA03").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA04").Value.ToString) +
                                                    CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) +
                                                    CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) +
                                                    CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv1.Rows(i).Cells("AA比例").Value.ToString)
            Dim 開啟扣除 As Boolean = 扣除狀態_ch.Checked : Dim 剃除總額 As Double = 0
            For K As Integer = 0 To AA剃除_dgv.Rows.Count - 1
                If Dgv1.Rows(i).Cells("姓名").Value.ToString = AA剃除_dgv.Rows(K).Cells("居服員姓名").Value.ToString Then
                    剃除總額 += CDbl(AA剃除_dgv.Rows(K).Cells("剃除金額").Value.ToString)
                End If
            Next : Dgv1.Rows(i).Cells("AA剃除").Value = 剃除總額
            If 開啟扣除 = True Then : Dgv1.Rows(i).Cells("AA").Value = CDbl(Dgv1.Rows(i).Cells("AA").Value) - 剃除總額 : End If
            If CDbl(Dgv1.Rows(i).Cells("AA").Value) < 0 Then : Dgv1.Rows(i).Cells("AA").Value = 0 : Dgv1.Rows(i).Cells("AA剃除").Value = "0" : End If

            Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)
            For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1
                If Dgv1.Rows(i).Cells("姓名").Value.ToString = 加班計算_dgv.Rows(II).Cells("姓名").Value.ToString And CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString) > 0 Then
                    Dgv1.Rows(i).Cells("平日加班扣除額").Value = CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString) + CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString)
                End If
            Next
            Dgv1.Rows(i).Cells("平日月薪/不含加班").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) - CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString)
            Dgv1.Rows(i).Cells("正常班平均時薪").Value = CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)
            Dgv1.Rows(i).Cells("總服務時數").Value = CDbl(Dgv1.Rows(i).Cells("平0-8").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("平9-10").Value.ToString) +
                                                         CDbl(Dgv1.Rows(i).Cells("平11-12").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("國0-2").Value.ToString) +
                                                         CDbl(Dgv1.Rows(i).Cells("國3-8").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("休0-2").Value.ToString) +
                                                         CDbl(Dgv1.Rows(i).Cells("休3-8").Value.ToString)
            Dgv1.Rows(i).Cells("總轉場時數").Value = CDbl(Dgv1.Rows(i).Cells("平日轉場").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("假日轉場").Value.ToString)
            For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1
                If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "服務津貼" Then
                    If CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then
                        Dgv1.Rows(i).Cells("服務津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For
                    End If
                End If
            Next
            For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1
                If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "轉場津貼" Then
                    If CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then
                        Dgv1.Rows(i).Cells("轉場津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For
                    End If
                End If
            Next
            Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString) +
                                                                   CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString)
            Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)
            If CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = "190" : End If
            Dgv1.Rows(i).Cells("加班費").Value = ((CDbl(Dgv1.Rows(i).Cells("平9-10").Value.ToString) * 1.34) + (CDbl(Dgv1.Rows(i).Cells("平11-12").Value.ToString) * 1.67) +
                                                      (CDbl(Dgv1.Rows(i).Cells("休0-2").Value.ToString) * 1.34) + (CDbl(Dgv1.Rows(i).Cells("休3-8").Value.ToString) * 1.67) +
                                                      (CDbl(Dgv1.Rows(i).Cells("國0-2").Value.ToString) * 2) + (CDbl(Dgv1.Rows(i).Cells("國3-8").Value.ToString) * 2)) *
                                                      CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value.ToString)
            Dgv1.Rows(i).Cells("副薪").Value = CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString)
            Dgv1.Rows(i).Cells("總薪").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("副薪").Value.ToString)
            Dgv1.Rows(i).Cells("總薪資").Value = CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString)
            Dgv1.Rows(i).Cells(36).Value = Dgv1.Rows(i).Cells(24).Value + Dgv1.Rows(i).Cells(25).Value + Dgv1.Rows(i).Cells(26).Value + Dgv1.Rows(i).Cells(27).Value + Dgv1.Rows(i).Cells(28).Value +
                                          Dgv1.Rows(i).Cells(29).Value + Dgv1.Rows(i).Cells(30).Value + Dgv1.Rows(i).Cells(31).Value + Dgv1.Rows(i).Cells(35).Value + Dgv1.Rows(i).Cells(33).Value +
                                          Dgv1.Rows(i).Cells(34).Value + Dgv1.Rows(i).Cells(35).Value
            Dgv1.Rows(i).Cells(49).Value = Dgv1.Rows(i).Cells(37).Value + Dgv1.Rows(i).Cells(38).Value + Dgv1.Rows(i).Cells(39).Value + Dgv1.Rows(i).Cells(40).Value + Dgv1.Rows(i).Cells(41).Value +
                                          Dgv1.Rows(i).Cells(42).Value + Dgv1.Rows(i).Cells(43).Value + Dgv1.Rows(i).Cells(44).Value + Dgv1.Rows(i).Cells(45).Value + Dgv1.Rows(i).Cells(46).Value +
                                          Dgv1.Rows(i).Cells(47).Value + Dgv1.Rows(i).Cells(48).Value
            Dgv1.Rows(i).Cells("總時數").Value = CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString)
            Dgv1.Rows(i).Cells("平均時薪").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString)
            Dgv1.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("休薪資1.67").Value.ToString) +
                                                     CDbl(Dgv1.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("轉場薪資").Value.ToString) +
                                                     CDbl(Dgv1.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("平薪資1.67").Value.ToString) +
                                                     CDbl(Dgv1.Rows(i).Cells("休薪資1.34").Value.ToString)

            If IsDBNull(Dgv1.Rows(i).Cells("BAORSC").Value) = True Then : Dgv1.Rows(i).Cells("BAORSC").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA長短").Value) = True Then : Dgv1.Rows(i).Cells("AA長短").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv1.Rows(i).Cells("BAORSC仁").Value = 0 : End If
            If IsDBNull(Dgv1.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv1.Rows(i).Cells("AA長短仁").Value = 0 : End If
            If CDbl(Dgv1.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv1.Rows(i).Cells("AA長短").Value) = 0 Then
                Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv1.Rows(i).Cells("AA長短仁").Value)
            Else
                Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv1.Rows(i).Cells("AA長短").Value)
            End If
            Dgv1.Rows(i).Cells("餘額").Value = CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) -
                                               CDbl(Dgv1.Rows(i).Cells(103).Value.ToString)
            Dgv1.Rows(i).Cells("餘額比").Value = CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)

            BA正_tb.Text = Strings.Format(CDbl(BA正_tb.Text) + CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")
            BA正1_tb.Text = Strings.Format(CDbl(BA正1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")
            GA正_tb.Text = Strings.Format(CDbl(GA正_tb.Text) + CDbl(Dgv1.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")
            GA加_tb.Text = Strings.Format(CDbl(GA加_tb.Text) + CDbl(Dgv1.Rows(i).Cells("GA加給").Value.ToString), "#,##0.0")
            其他_tb.Text = Strings.Format(CDbl(其他_tb.Text) + CDbl(Dgv1.Rows(i).Cells("其他").Value.ToString), "#,##0.0")
            主薪_tb.Text = Strings.Format(CDbl(主薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")
            AA_tb.Text = Strings.Format(CDbl(AA_tb.Text) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString), "#,##0.0")
            AA1_tb.Text = Strings.Format(CDbl(AA1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString), "#,##0.0")
            副薪_tb.Text = Strings.Format(CDbl(副薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")
            總薪_tb.Text = Strings.Format(CDbl(總薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")
            加班扣除_tb.Text = Strings.Format(CDbl(加班扣除_tb.Text) + CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")
            平日月薪_tb.Text = Strings.Format(CDbl(平日月薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")
            服務_tb.Text = Strings.Format(CDbl(服務_tb.Text) + CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")
            轉場_tb.Text = Strings.Format(CDbl(轉場_tb.Text) + CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")
            修正月_tb.Text = Strings.Format(CDbl(修正月_tb.Text) + CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")
            修正月1_tb.Text = Strings.Format(CDbl(修正月1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")
            加班費_tb.Text = Strings.Format(CDbl(加班費_tb.Text) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
            加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
            總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
            總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
            實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
            實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
            A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(24).Value.ToString), "#,##0.0")
            A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(25).Value.ToString), "#,##0.0")
            A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(26).Value.ToString), "#,##0.0")
            A04_tb.Text = Strings.Format(CDbl(A04_tb.Text) + CDbl(Dgv1.Rows(i).Cells(27).Value.ToString), "#,##0.0")
            A05_tb.Text = Strings.Format(CDbl(A05_tb.Text) + CDbl(Dgv1.Rows(i).Cells(28).Value.ToString), "#,##0.0")
            A06_tb.Text = Strings.Format(CDbl(A06_tb.Text) + CDbl(Dgv1.Rows(i).Cells(29).Value.ToString), "#,##0.0")
            A07_tb.Text = Strings.Format(CDbl(A07_tb.Text) + CDbl(Dgv1.Rows(i).Cells(30).Value.ToString), "#,##0.0")
            A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(31).Value.ToString), "#,##0.0")
            A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(32).Value.ToString), "#,##0.0")
            A10_tb.Text = Strings.Format(CDbl(A10_tb.Text) + CDbl(Dgv1.Rows(i).Cells(33).Value.ToString), "#,##0.0")
            A11_tb.Text = Strings.Format(CDbl(A11_tb.Text) + CDbl(Dgv1.Rows(i).Cells(34).Value.ToString), "#,##0.0")
            A12_tb.Text = Strings.Format(CDbl(A12_tb.Text) + CDbl(Dgv1.Rows(i).Cells(35).Value.ToString), "#,##0.0")
            減項總計_tb.Text = Strings.Format(CDbl(減項總計_tb.Text) + CDbl(Dgv1.Rows(i).Cells(36).Value.ToString), "#,##0.0")
            B01_tb.Text = Strings.Format(CDbl(B01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(37).Value.ToString), "#,##0.0")
            B02_tb.Text = Strings.Format(CDbl(B02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(38).Value.ToString), "#,##0.0")
            B03_tb.Text = Strings.Format(CDbl(B03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(39).Value.ToString), "#,##0.0")
            B04_tb.Text = Strings.Format(CDbl(B04_tb.Text) + CDbl(Dgv1.Rows(i).Cells(40).Value.ToString), "#,##0.0")
            B05_tb.Text = Strings.Format(CDbl(B05_tb.Text) + CDbl(Dgv1.Rows(i).Cells(41).Value.ToString), "#,##0.0")
            B06_tb.Text = Strings.Format(CDbl(B06_tb.Text) + CDbl(Dgv1.Rows(i).Cells(42).Value.ToString), "#,##0.0")
            B07_tb.Text = Strings.Format(CDbl(B07_tb.Text) + CDbl(Dgv1.Rows(i).Cells(43).Value.ToString), "#,##0.0")
            B08_tb.Text = Strings.Format(CDbl(B08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(44).Value.ToString), "#,##0.0")
            B09_tb.Text = Strings.Format(CDbl(B09_tb.Text) + CDbl(Dgv1.Rows(i).Cells(45).Value.ToString), "#,##0.0")
            B10_tb.Text = Strings.Format(CDbl(B10_tb.Text) + CDbl(Dgv1.Rows(i).Cells(46).Value.ToString), "#,##0.0")
            B11_tb.Text = Strings.Format(CDbl(B11_tb.Text) + CDbl(Dgv1.Rows(i).Cells(47).Value.ToString), "#,##0.0")
            B12_tb.Text = Strings.Format(CDbl(B12_tb.Text) + CDbl(Dgv1.Rows(i).Cells(48).Value.ToString), "#,##0.0")
            加項總計_tb.Text = Strings.Format(CDbl(加項總計_tb.Text) + CDbl(Dgv1.Rows(i).Cells(49).Value.ToString), "#,##0.0")
            D01_tb.Text = Strings.Format(CDbl(D01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(77).Value.ToString), "#,##0.0")
            D02_tb.Text = Strings.Format(CDbl(D02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(78).Value.ToString), "#,##0.0")
            D03_tb.Text = Strings.Format(CDbl(D03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(79).Value.ToString), "#,##0.0")
            D04_tb.Text = Strings.Format(CDbl(D04_tb.Text) + CDbl(Dgv1.Rows(i).Cells(80).Value.ToString), "#,##0.0")
            D05_tb.Text = Strings.Format(CDbl(D05_tb.Text) + CDbl(Dgv1.Rows(i).Cells(81).Value.ToString), "#,##0.0")
            D06_tb.Text = Strings.Format(CDbl(D06_tb.Text) + CDbl(Dgv1.Rows(i).Cells(82).Value.ToString), "#,##0.0")
            D07_tb.Text = Strings.Format(CDbl(D07_tb.Text) + CDbl(Dgv1.Rows(i).Cells(83).Value.ToString), "#,##0.0")
            D08_tb.Text = Strings.Format(CDbl(D08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(84).Value.ToString), "#,##0.0")
            D09_tb.Text = Strings.Format(CDbl(D09_tb.Text) + CDbl(Dgv1.Rows(i).Cells(85).Value.ToString), "#,##0.0")
            D10_tb.Text = Strings.Format(CDbl(D10_tb.Text) + CDbl(Dgv1.Rows(i).Cells(86).Value.ToString), "#,##0.0")
            D11_tb.Text = Strings.Format(CDbl(D11_tb.Text) + CDbl(Dgv1.Rows(i).Cells(87).Value.ToString), "#,##0.0")
            D12_tb.Text = Strings.Format(CDbl(D12_tb.Text) + CDbl(Dgv1.Rows(i).Cells(88).Value.ToString), "#,##0.0")
            薪資加項總計_tb.Text = Strings.Format(CDbl(薪資加項總計_tb.Text) + CDbl(Dgv1.Rows(i).Cells(89).Value.ToString), "#,##0.0")
            E01_tb.Text = Strings.Format(CDbl(E01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(91).Value.ToString), "#,##0.0")
            E02_tb.Text = Strings.Format(CDbl(E02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(92).Value.ToString), "#,##0.0")
            E03_tb.Text = Strings.Format(CDbl(E03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(93).Value.ToString), "#,##0.0")
            E04_tb.Text = Strings.Format(CDbl(E04_tb.Text) + CDbl(Dgv1.Rows(i).Cells(94).Value.ToString), "#,##0.0")
            E05_tb.Text = Strings.Format(CDbl(E05_tb.Text) + CDbl(Dgv1.Rows(i).Cells(95).Value.ToString), "#,##0.0")
            E06_tb.Text = Strings.Format(CDbl(E06_tb.Text) + CDbl(Dgv1.Rows(i).Cells(96).Value.ToString), "#,##0.0")
            E07_tb.Text = Strings.Format(CDbl(E07_tb.Text) + CDbl(Dgv1.Rows(i).Cells(97).Value.ToString), "#,##0.0")
            E08_tb.Text = Strings.Format(CDbl(E08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(98).Value.ToString), "#,##0.0")
            E09_tb.Text = Strings.Format(CDbl(E09_tb.Text) + CDbl(Dgv1.Rows(i).Cells(99).Value.ToString), "#,##0.0")
            E10_tb.Text = Strings.Format(CDbl(E10_tb.Text) + CDbl(Dgv1.Rows(i).Cells(100).Value.ToString), "#,##0.0")
            E11_tb.Text = Strings.Format(CDbl(E11_tb.Text) + CDbl(Dgv1.Rows(i).Cells(101).Value.ToString), "#,##0.0")
            E12_tb.Text = Strings.Format(CDbl(E12_tb.Text) + CDbl(Dgv1.Rows(i).Cells(102).Value.ToString), "#,##0.0")
            公司負擔總計_tb.Text = Strings.Format(CDbl(公司負擔總計_tb.Text) + CDbl(Dgv1.Rows(i).Cells(103).Value.ToString), "#,##0.0")
            C01_tb.Text = Strings.Format(CDbl(C01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(50).Value.ToString), "#,##0.0")
            C01_1_tb.Text = Strings.Format(CDbl(C01_1_tb.Text) + CDbl(Dgv1.Rows(i).Cells(50).Value.ToString), "#,##0.0")
            總時數_tb.Text = Strings.Format(CDbl(總時數_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString), "#,##0.0")
            平均時薪_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) / CDbl(總時數_tb.Text), "#,##0.0")
            BAAA加_tb.Text = Strings.Format(CDbl(BAAA加_tb.Text) + CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString), "#,##0.0")
            餘額_tb.Text = Strings.Format(CDbl(餘額_tb.Text) + CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")
            餘額比_tb.Text = Strings.Format((CDbl(餘額_tb.Text) / CDbl(BAAA加_tb.Text) * 100), "#,##0.0") & " %"

            Dgv1.Rows(i).Cells("BA正常").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("GA正常").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("主薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("AA").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("加班費").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("副薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("總薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("平日工時").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString), "##0.00")
            Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("平日加班扣除額").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("平日月薪/不含加班").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("正常班平均時薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("正常班平均時薪").Value.ToString), "##0.00")
            Dgv1.Rows(i).Cells("總服務時數").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString), "##0.00")
            Dgv1.Rows(i).Cells("總轉場時數").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString), "##0.00")
            Dgv1.Rows(i).Cells("服務津貼").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("轉場津貼").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("總薪資").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("總時數").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString), "##0.00")
            Dgv1.Rows(i).Cells("平均時薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平均時薪").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("餘額").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")
            Dgv1.Rows(i).Cells("餘額比").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("餘額比").Value.ToString) * 100, "#,##0.0") & " %"
            Dgv1.Rows(i).Cells("BA比例").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("BA比例").Value.ToString) * 100, "#,##0.0") & " %"
            Dgv1.Rows(i).Cells("AA比例").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("AA比例").Value.ToString) * 100, "#,##0.0") & " %"
        Next
    End Sub
    Private Sub Set_加班計算()
        Set_服務資料()
        Dim ds As New DataSet : 加班計算_dgv.DataSource = Nothing : ds.Clear()
        加班計算_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        加班計算_dgv.ColumnHeadersHeight = 40 : 加班計算_dgv.AllowUserToAddRows = False : 加班計算_dgv.RowTemplate.Height = 25
        PA1 = 年份_cb.Text & 月份_cb.Text : SQL_加班計算_仁寶()
        da.Fill(ds) : 加班計算_dgv.DataSource = ds.Tables(0) : conn.Close()
        'For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Monday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "一" : End If
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Tuesday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "二" : End If
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Wednesday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "三" : End If
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Thursday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "四" : End If
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Friday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "五" : End If
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Saturday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "六" : End If
        '    If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Sunday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "日" : End If
        'Next
        For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1
            If 加班計算_dgv.Rows(i).Cells("開始加班").Value = "休息日班" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "六"
            ElseIf 加班計算_dgv.Rows(i).Cells("開始加班").Value = "國定假日" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "日"
            ElseIf 加班計算_dgv.Rows(i).Cells("開始加班").Value = "正常班" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "一" : End If
        Next
        For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1
            If 加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString = "" Then : 加班計算_dgv.Rows(i).Cells("服務時間_分").Value = 0 : End If
            If 加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value.ToString = "" Then : 加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value = 0 : End If
            加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = "0" : 加班計算_dgv.Rows(i).Cells("開始加班").Value = ""
            加班計算_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("驗2").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗3").Value = "0"
            加班計算_dgv.Rows(i).Cells("驗4").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗5").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗6").Value = "0"
            加班計算_dgv.Rows(i).Cells("退1").Value = "0" : 加班計算_dgv.Rows(i).Cells("退2").Value = "0" : 加班計算_dgv.Rows(i).Cells("退3").Value = "0"
            加班計算_dgv.Rows(i).Cells("退4").Value = "0" : 加班計算_dgv.Rows(i).Cells("退5").Value = "0" : 加班計算_dgv.Rows(i).Cells("退6").Value = "0"
            加班計算_dgv.Rows(i).Cells("A10").Value = "" : 加班計算_dgv.Rows(i).Cells("A11").Value = "0" : 加班計算_dgv.Rows(i).Cells("A12").Value = "0"
            加班計算_dgv.Rows(i).Cells("A20").Value = "" : 加班計算_dgv.Rows(i).Cells("A21").Value = "0" : 加班計算_dgv.Rows(i).Cells("A22").Value = "0"
            加班計算_dgv.Rows(i).Cells("A30").Value = "" : 加班計算_dgv.Rows(i).Cells("A31").Value = "0" : 加班計算_dgv.Rows(i).Cells("A32").Value = "0"
            加班計算_dgv.Rows(i).Cells("A40").Value = "" : 加班計算_dgv.Rows(i).Cells("A41").Value = "0" : 加班計算_dgv.Rows(i).Cells("A42").Value = "0"
            加班計算_dgv.Rows(i).Cells("A50").Value = "" : 加班計算_dgv.Rows(i).Cells("A51").Value = "0" : 加班計算_dgv.Rows(i).Cells("A52").Value = "0"
            加班計算_dgv.Rows(i).Cells("A60").Value = "" : 加班計算_dgv.Rows(i).Cells("A61").Value = "0" : 加班計算_dgv.Rows(i).Cells("A62").Value = "0"
            If i = 0 Then : 加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = 加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString : Else
                If 加班計算_dgv.Rows(i).Cells("日期").Value.ToString <> 加班計算_dgv.Rows(i - 1).Cells("日期").Value.ToString Then
                    加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = 加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString
                Else
                    If 加班計算_dgv.Rows(i - 1).Cells("上班時間累加/分").Value.ToString = "" Then : 加班計算_dgv.Rows(i - 1).Cells("上班時間累加/分").Value = "0" : End If
                    加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = CDbl(加班計算_dgv.Rows(i - 1).Cells("上班時間累加/分").Value.ToString) +
                                                                      CDbl(加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value.ToString) +
                                                                      CDbl(加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString)
                End If
            End If
            If CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value) > 480 And 加班計算_dgv.Rows(i).Cells("星期").Value.ToString <> "六" And
           加班計算_dgv.Rows(i).Cells("星期").Value.ToString <> "日" Then
                加班計算_dgv.Rows(i).Cells("開始加班").Value = "YES"
                If CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) >= 600 Then
                    加班計算_dgv.Rows(i).Cells("第一段").Value = "120"
                    If CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) > 720 Then : 加班計算_dgv.Rows(i).Cells("第二段").Value = "120"
                    Else : 加班計算_dgv.Rows(i).Cells("第二段").Value = CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) - 600 : End If
                Else : 加班計算_dgv.Rows(i).Cells("第一段").Value = CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) - 480 : End If
            End If
        Next : Dim AZ As Integer = 加班計算_dgv.Rows.Count - 1
        For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1
            If 加班計算_dgv.Rows(AZ - i).Cells("開始加班").Value = "YES" Then
                If 加班計算_dgv.Rows(AZ - i).Cells("第一段").Value.ToString <> "" Then
                    If 加班計算_dgv.Rows.Count - 2 - i < 0 Then : Else
                        If 加班計算_dgv.Rows(AZ - i).Cells("日期").Value.ToString = 加班計算_dgv.Rows(AZ - 1 - i).Cells("日期").Value.ToString Then
                            加班計算_dgv.Rows(AZ - i).Cells("第一段").Value = CDbl(加班計算_dgv.Rows(AZ - i).Cells("第一段").Value.ToString) -
                                                                              CDbl(加班計算_dgv.Rows(AZ - 1 - i).Cells("第一段").Value.ToString)
                        End If : End If : End If
                If 加班計算_dgv.Rows(AZ - i).Cells("第二段").Value.ToString <> "" Then
                    If 加班計算_dgv.Rows.Count - 2 - i < 0 Then : Else
                        If 加班計算_dgv.Rows(AZ - i).Cells("日期").Value.ToString = 加班計算_dgv.Rows(AZ - 1 - i).Cells("日期").Value.ToString Then
                            加班計算_dgv.Rows(AZ - i).Cells("第二段").Value = CDbl(加班計算_dgv.Rows(AZ - i).Cells("第二段").Value.ToString) -
                                                                              CDbl(加班計算_dgv.Rows(AZ - 1 - i).Cells("第二段").Value.ToString)
                        End If : End If : End If : End If
        Next
        For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1
            Dim 可用時間 As Integer = 0
            If 加班計算_dgv.Rows(i).Cells("開始加班").Value.ToString = "YES" Then
                可用時間 = CDbl(加班計算_dgv.Rows(i).Cells("第一段").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("第二段").Value.ToString) -
                           CDbl(加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value.ToString)
                For ii As Integer = 0 To 服務資料_dgv.Rows.Count - 1
                    If 加班計算_dgv.Rows(i).Cells("日期").Value.ToString = 服務資料_dgv.Rows(ii).Cells("服務日期").Value.ToString And
                       加班計算_dgv.Rows(i).Cells("姓名").Value.ToString = 服務資料_dgv.Rows(ii).Cells("居服員姓名").Value.ToString And
                       加班計算_dgv.Rows(i).Cells("服務個案").Value.ToString = 服務資料_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                        If 服務資料_dgv.Rows(ii).Cells("已使用").Value = "" Then
                            If 加班計算_dgv.Rows(i).Cells("A10").Value.ToString = "" Then
                                加班計算_dgv.Rows(i).Cells("A10").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString
                                加班計算_dgv.Rows(i).Cells("A11").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString
                                If Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 4) = "BA17" Then
                                    加班計算_dgv.Rows(i).Cells("A10").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 5)
                                Else
                                    加班計算_dgv.Rows(i).Cells("A10").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 4)
                                End If
                                For III As Integer = 0 To 碼別_dgv.Rows.Count - 1
                                    If 加班計算_dgv.Rows(i).Cells("A10").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then
                                        加班計算_dgv.Rows(i).Cells("A12").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString
                                    End If
                                Next
                            ElseIf 加班計算_dgv.Rows(i).Cells("A20").Value.ToString = "" Then
                                加班計算_dgv.Rows(i).Cells("A20").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString
                                加班計算_dgv.Rows(i).Cells("A21").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString
                                If Strings.Left(加班計算_dgv.Rows(i).Cells("A20").Value.ToString, 4) = "BA17" Then
                                    加班計算_dgv.Rows(i).Cells("A20").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A20").Value.ToString, 5)
                                Else
                                    加班計算_dgv.Rows(i).Cells("A20").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A20").Value.ToString, 4)
                                End If
                                For III As Integer = 0 To 碼別_dgv.Rows.Count - 1
                                    If 加班計算_dgv.Rows(i).Cells("A20").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then
                                        加班計算_dgv.Rows(i).Cells("A22").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString
                                    End If
                                Next
                            ElseIf 加班計算_dgv.Rows(i).Cells("A30").Value.ToString = "" Then
                                加班計算_dgv.Rows(i).Cells("A30").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString
                                加班計算_dgv.Rows(i).Cells("A31").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString
                                If Strings.Left(加班計算_dgv.Rows(i).Cells("A30").Value.ToString, 4) = "BA17" Then
                                    加班計算_dgv.Rows(i).Cells("A30").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A30").Value.ToString, 5)
                                Else
                                    加班計算_dgv.Rows(i).Cells("A30").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A30").Value.ToString, 4)
                                End If
                                For III As Integer = 0 To 碼別_dgv.Rows.Count - 1
                                    If 加班計算_dgv.Rows(i).Cells("A30").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then
                                        加班計算_dgv.Rows(i).Cells("A32").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString
                                    End If
                                Next
                            ElseIf 加班計算_dgv.Rows(i).Cells("A40").Value.ToString = "" Then
                                加班計算_dgv.Rows(i).Cells("A40").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString
                                加班計算_dgv.Rows(i).Cells("A41").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString
                                If Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 4) = "BA17" Then
                                    加班計算_dgv.Rows(i).Cells("A40").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A40").Value.ToString, 5)
                                Else
                                    加班計算_dgv.Rows(i).Cells("A40").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A40").Value.ToString, 4)
                                End If
                                For III As Integer = 0 To 碼別_dgv.Rows.Count - 1
                                    If 加班計算_dgv.Rows(i).Cells("A40").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then
                                        加班計算_dgv.Rows(i).Cells("A42").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString
                                    End If
                                Next
                            ElseIf 加班計算_dgv.Rows(i).Cells("A50").Value.ToString = "" Then
                                加班計算_dgv.Rows(i).Cells("A50").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString
                                加班計算_dgv.Rows(i).Cells("A51").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString
                                If Strings.Left(加班計算_dgv.Rows(i).Cells("A50").Value.ToString, 4) = "BA17" Then
                                    加班計算_dgv.Rows(i).Cells("A50").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A50").Value.ToString, 5)
                                Else
                                    加班計算_dgv.Rows(i).Cells("A50").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A50").Value.ToString, 4)
                                End If
                                For III As Integer = 0 To 碼別_dgv.Rows.Count - 1
                                    If 加班計算_dgv.Rows(i).Cells("A50").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then
                                        加班計算_dgv.Rows(i).Cells("A52").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString
                                    End If
                                Next
                            ElseIf 加班計算_dgv.Rows(i).Cells("A60").Value.ToString = "" Then
                                加班計算_dgv.Rows(i).Cells("A60").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString
                                加班計算_dgv.Rows(i).Cells("A61").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString
                                If Strings.Left(加班計算_dgv.Rows(i).Cells("A60").Value.ToString, 4) = "BA17" Then
                                    加班計算_dgv.Rows(i).Cells("A60").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A60").Value.ToString, 5)
                                Else
                                    加班計算_dgv.Rows(i).Cells("A60").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A60").Value.ToString, 4)
                                End If
                                For III As Integer = 0 To 碼別_dgv.Rows.Count - 1
                                    If 加班計算_dgv.Rows(i).Cells("A60").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then
                                        加班計算_dgv.Rows(i).Cells("A62").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString
                                    End If
                                Next
                            End If
                            可用時間 -= CDbl(服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString)
                            If 可用時間 <= 0 Then : Exit For : End If
                        End If
                    End If
                Next
                加班計算_dgv.Rows(i).Cells("驗6").Value = CDbl(加班計算_dgv.Rows(i).Cells("第一段").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("第二段").Value.ToString) -
                                                          CDbl(加班計算_dgv.Rows(i).Cells("A61").Value.ToString)
                加班計算_dgv.Rows(i).Cells("驗5").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗6").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A51").Value.ToString)
                加班計算_dgv.Rows(i).Cells("驗4").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗5").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A41").Value.ToString)
                加班計算_dgv.Rows(i).Cells("驗3").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗4").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A31").Value.ToString)
                加班計算_dgv.Rows(i).Cells("驗2").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗3").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A21").Value.ToString)
                加班計算_dgv.Rows(i).Cells("驗1").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗2").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A11").Value.ToString)
                If CDbl(加班計算_dgv.Rows(i).Cells("驗1").Value.ToString) < 0 Then
                    加班計算_dgv.Rows(i).Cells("退1").Value = CDbl(加班計算_dgv.Rows(i).Cells("A12").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A11").Value.ToString) +
                                                              CDbl(加班計算_dgv.Rows(i).Cells("驗1").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                Else
                    加班計算_dgv.Rows(i).Cells("退1").Value = CDbl(加班計算_dgv.Rows(i).Cells("A12").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A11").Value.ToString) *
                                                              CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                End If
                If CDbl(加班計算_dgv.Rows(i).Cells("驗2").Value.ToString) < 0 Then
                    加班計算_dgv.Rows(i).Cells("退2").Value = CDbl(加班計算_dgv.Rows(i).Cells("A22").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A21").Value.ToString) +
                                                              CDbl(加班計算_dgv.Rows(i).Cells("驗2").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                Else
                    加班計算_dgv.Rows(i).Cells("退2").Value = CDbl(加班計算_dgv.Rows(i).Cells("A22").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A21").Value.ToString) *
                                                              CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                End If
                If CDbl(加班計算_dgv.Rows(i).Cells("驗3").Value.ToString) < 0 Then
                    加班計算_dgv.Rows(i).Cells("退3").Value = CDbl(加班計算_dgv.Rows(i).Cells("A32").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A31").Value.ToString) +
                                                              CDbl(加班計算_dgv.Rows(i).Cells("驗3").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                Else
                    加班計算_dgv.Rows(i).Cells("退3").Value = CDbl(加班計算_dgv.Rows(i).Cells("A12").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A31").Value.ToString) *
                                                              CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                End If
                If CDbl(加班計算_dgv.Rows(i).Cells("驗4").Value.ToString) < 0 Then
                    加班計算_dgv.Rows(i).Cells("退4").Value = CDbl(加班計算_dgv.Rows(i).Cells("A42").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A41").Value.ToString) +
                                                              CDbl(加班計算_dgv.Rows(i).Cells("驗4").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                Else
                    加班計算_dgv.Rows(i).Cells("退4").Value = CDbl(加班計算_dgv.Rows(i).Cells("A42").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A41").Value.ToString) *
                                                              CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                End If
                If CDbl(加班計算_dgv.Rows(i).Cells("驗5").Value.ToString) < 0 Then
                    加班計算_dgv.Rows(i).Cells("退5").Value = CDbl(加班計算_dgv.Rows(i).Cells("A52").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A51").Value.ToString) +
                                                              CDbl(加班計算_dgv.Rows(i).Cells("驗5").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                Else
                    加班計算_dgv.Rows(i).Cells("退5").Value = CDbl(加班計算_dgv.Rows(i).Cells("A52").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A51").Value.ToString) *
                                                              CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                End If
                If CDbl(加班計算_dgv.Rows(i).Cells("驗6").Value.ToString) < 0 Then
                    加班計算_dgv.Rows(i).Cells("退6").Value = CDbl(加班計算_dgv.Rows(i).Cells("A62").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A61").Value.ToString) +
                                                              CDbl(加班計算_dgv.Rows(i).Cells("驗6").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                Else
                    加班計算_dgv.Rows(i).Cells("退6").Value = CDbl(加班計算_dgv.Rows(i).Cells("A62").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A61").Value.ToString) *
                                                              CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)
                End If
                加班計算_dgv.Rows(i).Cells("合退").Value = CDbl(加班計算_dgv.Rows(i).Cells("退1").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("退2").Value.ToString) +
                                                           CDbl(加班計算_dgv.Rows(i).Cells("退3").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("退4").Value.ToString) +
                                                           CDbl(加班計算_dgv.Rows(i).Cells("退5").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("退6").Value.ToString)
            End If
        Next
    End Sub
    Private Sub Set_服務資料()
        Dim ds As New DataSet : 服務資料_dgv.DataSource = Nothing : ds.Clear()
        服務資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        服務資料_dgv.ColumnHeadersHeight = 40 : 服務資料_dgv.AllowUserToAddRows = False : 服務資料_dgv.RowTemplate.Height = 25
        PA1 = 年份_cb.Text & 月份_cb.Text : SQL_服務資料_仁寶()
        da.Fill(ds) : 服務資料_dgv.DataSource = ds.Tables(0) : conn.Close()
        For i As Integer = 0 To 服務資料_dgv.Rows.Count - 1 : 服務資料_dgv.Rows(i).Cells("已使用").Value = "" : Next
    End Sub
    Private Sub Set_階級加給()
        Dim ds As New DataSet : 階級津貼_dgv.DataSource = Nothing : ds.Clear()
        階級津貼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        階級津貼_dgv.ColumnHeadersHeight = 40 : 階級津貼_dgv.AllowUserToAddRows = False : 階級津貼_dgv.RowTemplate.Height = 25
        SQL_階級加給()
        da.Fill(ds) : 階級津貼_dgv.DataSource = ds.Tables(0) : conn.Close()
        階級津貼_dgv.Columns("加給").DefaultCellStyle.Format = "#,##0" : 階級津貼_dgv.Columns("級數").DefaultCellStyle.Format = "#,##0"
        階級津貼_dgv.Columns("加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        階級津貼_dgv.Columns("加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        階級津貼_dgv.Columns("級數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        階級津貼_dgv.Columns("級數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        階級津貼_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        階級津貼_dgv.Columns("流水號").ReadOnly = False : 階級津貼_dgv.Columns("內容").ReadOnly = False : 階級津貼_dgv.Columns("級數1").Visible = False
        If 階級津貼_dgv.Rows.Count = 0 Then
            SQL_階級加給_預設() : da.Fill(ds) : 階級津貼_dgv.DataSource = ds.Tables(0) : conn.Close()
            For i As Integer = 0 To 階級津貼_dgv.Rows.Count - 1
                階級津貼_dgv.Rows(i).Cells("流水號").Value = 年份_cb.Text & 月份_cb.Text
                SQL2 = "(N'" & 階級津貼_dgv.Rows(i).Cells("流水號").Value.ToString & "', N'" & 階級津貼_dgv.Rows(i).Cells("內容").Value.ToString & "', 
                         N'" & 階級津貼_dgv.Rows(i).Cells("級數").Value.ToString & "', N'" & 階級津貼_dgv.Rows(i).Cells("加給").Value.ToString & "')"
                SQL_階級加給_新增()
            Next
        End If
    End Sub
    Private Sub Set_BA比1()
        Dim ds As New DataSet : BA比1_dgv.DataSource = Nothing : ds.Clear()
        BA比1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        BA比1_dgv.ColumnHeadersHeight = 40 : BA比1_dgv.AllowUserToAddRows = False : BA比1_dgv.RowTemplate.Height = 25
        SQL_BA比()
        da.Fill(ds) : BA比1_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_BA比2()
        Dim ds1 As New DataSet : BA比_dgv.DataSource = Nothing : ds1.Clear()
        BA比_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        BA比_dgv.ColumnHeadersHeight = 40 : BA比_dgv.AllowUserToAddRows = False : BA比_dgv.RowTemplate.Height = 25
        SQL_BA比_當月()
        da.Fill(ds1) : BA比_dgv.DataSource = ds1.Tables(0) : conn.Close()
        BA比_dgv.Columns(0).ReadOnly = False : BA比_dgv.Columns(1).ReadOnly = False
        BA比_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub Set_碼別()
        Dim ds As New DataSet : 碼別_dgv.DataSource = Nothing : ds.Clear()
        碼別_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        碼別_dgv.ColumnHeadersHeight = 40 : 碼別_dgv.AllowUserToAddRows = False : 碼別_dgv.RowTemplate.Height = 25
        SQL_碼別()
        da.Fill(ds) : 碼別_dgv.DataSource = ds.Tables(0) : conn.Close()
        碼別_dgv.Columns(1).DefaultCellStyle.Format = "#,##0.0"
        碼別_dgv.Columns(0).ReadOnly = False : 碼別_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub Set_表頭()
        Dim ds As New DataSet : 表頭_dgv.DataSource = Nothing : ds.Clear()
        表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        表頭_dgv.ColumnHeadersHeight = 40 : 表頭_dgv.AllowUserToAddRows = False : 表頭_dgv.RowTemplate.Height = 25
        SQL_表頭()
        da.Fill(ds) : 表頭_dgv.DataSource = ds.Tables(0) : conn.Close()
        表頭_dgv.Columns(0).FillWeight = 40 : 表頭_dgv.Columns(0).ReadOnly = False : 表頭_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub Set_轉場計算()
        Dim ds As New DataSet : 轉場加班_dgv.DataSource = Nothing : ds.Clear()
        轉場加班_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        轉場加班_dgv.ColumnHeadersHeight = 40 : 轉場加班_dgv.AllowUserToAddRows = False : 轉場加班_dgv.RowTemplate.Height = 25
        SQL_轉場計算()
        da.Fill(ds) : 轉場加班_dgv.DataSource = ds.Tables(0) : conn.Close()
        For i As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
            轉場加班_dgv.Rows(i).Cells(4).Value = "0" : 轉場加班_dgv.Rows(i).Cells(5).Value = "0"
            If i = 0 Then : 轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00" : Else
                If 轉場加班_dgv.Rows(i - 1).Cells(1).Value.ToString = 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
                    轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) + CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) +
                                                          CDbl(轉場加班_dgv.Rows(i).Cells(2).Value.ToString)
                    If 轉場加班_dgv.Rows(i).Cells(6).Value.ToString = "正常班" Then
                        If CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 480 Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00"
                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 600 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.34"
                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) > 600 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67" : End If
                    ElseIf 轉場加班_dgv.Rows(i).Cells(6).Value.ToString = "國定假日" Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "2"
                    Else
                        If CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 120 Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.34"
                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 240 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67"
                        ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) > 240 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67" : End If
                    End If
                Else
                    If 轉場加班_dgv.Rows(i - 1).Cells(5).Value.ToString = "0" Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = 轉場加班_dgv.Rows(i - 2).Cells(5).Value.ToString : End If
                    轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00"
                End If
            End If
            Dim dateValue As DateTime = DateTime.Parse(轉場加班_dgv.Rows(i).Cells(1).Value.ToString)
            Select Case dateValue.DayOfWeek
                Case DayOfWeek.Sunday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期日" : Case DayOfWeek.Monday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期一"
                Case DayOfWeek.Tuesday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期二" : Case DayOfWeek.Wednesday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期三"
                Case DayOfWeek.Thursday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期四" : Case DayOfWeek.Friday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期五"
                Case DayOfWeek.Saturday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期六"
            End Select
            If 轉場加班_dgv.Rows(i).Cells(7).Value = "星期日" Or 轉場加班_dgv.Rows(i).Cells(7).Value = "星期六" Then : 轉場加班_dgv.Rows(i).Cells(8).Value = "0" : Else
                If 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00" Then : 轉場加班_dgv.Rows(i).Cells(8).Value = 轉場加班_dgv.Rows(i).Cells(2).Value.ToString
                Else : 轉場加班_dgv.Rows(i).Cells(8).Value = "0" : End If
            End If
            If i = 0 Then : 轉場加班_dgv.Rows(i).Cells(9).Value = 轉場加班_dgv.Rows(i).Cells(8).Value.ToString : Else
                If 轉場加班_dgv.Rows(i - 1).Cells(1).Value.ToString = 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
                    轉場加班_dgv.Rows(i).Cells(9).Value = CDbl(轉場加班_dgv.Rows(i).Cells(8).Value.ToString) + CDbl(轉場加班_dgv.Rows(i - 1).Cells(9).Value.ToString)
                Else : 轉場加班_dgv.Rows(i).Cells(9).Value = 轉場加班_dgv.Rows(i).Cells(8).Value.ToString : End If
            End If
            If i = 轉場加班_dgv.Rows.Count - 1 Then : 轉場加班_dgv.Rows(i).Cells(10).Value = 轉場加班_dgv.Rows(i).Cells(9).Value : Else
                If 轉場加班_dgv.Rows(i + 1).Cells(1).Value.ToString <> 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
                    轉場加班_dgv.Rows(i).Cells(10).Value = 轉場加班_dgv.Rows(i).Cells(9).Value : Else : 轉場加班_dgv.Rows(i).Cells(10).Value = "0"
                End If
            End If
        Next
        Dim ds1 As New DataSet : AA剃除_dgv.DataSource = Nothing : ds1.Clear()
        AA剃除_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        AA剃除_dgv.ColumnHeadersHeight = 40 : AA剃除_dgv.AllowUserToAddRows = False : AA剃除_dgv.RowTemplate.Height = 25
        SQL_AA剔除計算()
        da.Fill(ds1) : AA剃除_dgv.DataSource = ds1.Tables(0) : conn.Close()
        For i As Integer = 0 To AA剃除_dgv.Rows.Count - 1
            AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = "0"
            If i = 0 Then
                For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
                    If AA剃除_dgv.Rows(i).Cells("居服員姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                        If AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("日期").Value.ToString Then
                            If CDbl(轉場加班_dgv.Rows(ii).Cells(10).Value.ToString) > 0 Then
                                AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = 轉場加班_dgv.Rows(ii).Cells(10).Value.ToString : Exit For
                            End If
                        End If
                    End If
                Next
            Else
                If AA剃除_dgv.Rows(i - 1).Cells("服務日期").Value.ToString = AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString Then : Else
                    For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
                        If AA剃除_dgv.Rows(i).Cells("居服員姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
                            If AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("日期").Value.ToString Then
                                If CDbl(轉場加班_dgv.Rows(ii).Cells(10).Value.ToString) > 0 Then
                                    AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = 轉場加班_dgv.Rows(ii).Cells(10).Value.ToString : Exit For
                                End If
                            End If
                        End If
                    Next
                End If
            End If
            If i = 0 Then : AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString) : Else
                If AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then : AA剃除_dgv.Rows(i).Cells("累計時間").Value = AA剃除_dgv.Rows(i - 1).Cells("累計時間").Value.ToString : Else
                    If AA剃除_dgv.Rows(i - 1).Cells("服務日期").Value.ToString <> AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString Then
                        AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString)
                    Else
                        AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString) +
                                                                     CDbl(AA剃除_dgv.Rows(i - 1).Cells("累計時間").Value.ToString)
                    End If
                End If
            End If
            If AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString <> "正常班" And AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then
                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) > 480 And
                   AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then
                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = AA剃除_dgv.Rows(i).Cells("申報費用").Value
            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) > 480 And
                   AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString <> "AA" Then
                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString <> "正常班" And AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString <> "AA" Then
                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
            ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) <= 480 Then
                AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
            End If
        Next
    End Sub
    Private Sub Set_差額()
        Dim ds As New DataSet : 差異_dgv.DataSource = Nothing : ds.Clear()
        差異_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        差異_dgv.ColumnHeadersHeight = 40 : 差異_dgv.AllowUserToAddRows = False : 差異_dgv.RowTemplate.Height = 25
        da.Fill(ds) : 差異_dgv.DataSource = ds.Tables(0) : conn.Close()
        差異_dgv.Columns(0).ReadOnly = False : 差異_dgv.Columns(1).ReadOnly = False : 差異_dgv.Columns(2).ReadOnly = False
        If 是否有差額 = False Then
            For I As Integer = 0 To 差異_dgv.Rows.Count - 1 : 差異_dgv.Rows(I).Cells(2).Value = "0" : Next
        End If : 差異_tb.Text = "0"
        For i As Integer = 0 To 差異_dgv.Rows.Count - 1
            差異_tb.Text = Strings.Format(CDbl(差異_tb.Text) + CDbl(差異_dgv.Rows(i).Cells("差額").Value.ToString), "#,##0")
        Next
    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("日期", e.RowIndex).Value.ToString <> 加班計算_dgv("日期", e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(加班計算_dgv.RowHeadersVisible, 加班計算_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 加班計算_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 加班計算_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
            End If
        End If
    End Sub
    Private Sub Dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles Dgv.CellEndEdit
        Set_薪資計算()
    End Sub
    Private Sub Dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv.CellClick
        If e.RowIndex = -1 Then : Else : 位置 = e.RowIndex : 寫入薪資條() : End If
    End Sub
    Private Sub 寫入薪資條()
        If Dgv.Rows.Count > 0 Then
            If Dgv.Rows.Count <= 位置 Then : 位置 = 0 : End If
            服務津貼1_lb.Text = Strings.Format(CDbl(Dgv("服務津貼", 位置).Value.ToString), "#,##0")
            If CDbl(服務津貼1_lb.Text) > 0 Then : 服務津貼_lb.Text = "服務津貼" : Else : 服務津貼_lb.Text = "" : End If
            轉場津貼1_lb.Text = Strings.Format(CDbl(Dgv("轉場津貼", 位置).Value.ToString), "#,##0")
            If CDbl(轉場津貼1_lb.Text) > 0 Then : 轉場津貼_lb.Text = "轉場津貼" : Else : 轉場津貼_lb.Text = "" : End If
            平時新_lb.Text = Strings.Format(CDbl(Dgv("加班費計算時薪標準", 位置).Value.ToString), "#,##0")
            D01_alb.Text = Strings.Format(CDbl(Dgv(77, 位置).Value.ToString), "#,##0") : If CDbl(D01_alb.Text) > 0 Then : D01_clb.Text = D01_lb.Text : Else : D01_clb.Text = "" : End If
            D02_alb.Text = Strings.Format(CDbl(Dgv(78, 位置).Value.ToString), "#,##0") : If CDbl(D02_alb.Text) > 0 Then : D02_clb.Text = D02_lb.Text : Else : D02_clb.Text = "" : End If
            D03_alb.Text = Strings.Format(CDbl(Dgv(79, 位置).Value.ToString), "#,##0") : If CDbl(D03_alb.Text) > 0 Then : D03_clb.Text = D03_lb.Text : Else : D03_clb.Text = "" : End If
            D04_alb.Text = Strings.Format(CDbl(Dgv(80, 位置).Value.ToString), "#,##0") : If CDbl(D04_alb.Text) > 0 Then : D04_clb.Text = D04_lb.Text : Else : D04_clb.Text = "" : End If
            D05_alb.Text = Strings.Format(CDbl(Dgv(81, 位置).Value.ToString), "#,##0") : If CDbl(D05_alb.Text) > 0 Then : D05_clb.Text = D05_lb.Text : Else : D05_clb.Text = "" : End If
            D06_alb.Text = Strings.Format(CDbl(Dgv(82, 位置).Value.ToString), "#,##0") : If CDbl(D06_alb.Text) > 0 Then : D06_clb.Text = D06_lb.Text : Else : D06_clb.Text = "" : End If
            D07_alb.Text = Strings.Format(CDbl(Dgv(83, 位置).Value.ToString), "#,##0") : If CDbl(D07_alb.Text) > 0 Then : D07_clb.Text = D07_lb.Text : Else : D07_clb.Text = "" : End If
            D08_alb.Text = Strings.Format(CDbl(Dgv(84, 位置).Value.ToString), "#,##0") : If CDbl(D08_alb.Text) > 0 Then : D08_clb.Text = D08_lb.Text : Else : D08_clb.Text = "" : End If
            D09_alb.Text = Strings.Format(CDbl(Dgv(85, 位置).Value.ToString), "#,##0") : If CDbl(D09_alb.Text) > 0 Then : D09_clb.Text = D09_lb.Text : Else : D09_clb.Text = "" : End If
            D10_alb.Text = Strings.Format(CDbl(Dgv(86, 位置).Value.ToString), "#,##0") : If CDbl(D10_alb.Text) > 0 Then : D10_clb.Text = D10_lb.Text : Else : D10_clb.Text = "" : End If
            D11_alb.Text = Strings.Format(CDbl(Dgv(87, 位置).Value.ToString), "#,##0") : If CDbl(D11_alb.Text) > 0 Then : D11_clb.Text = D11_lb.Text : Else : D11_clb.Text = "" : End If
            D12_alb.Text = Strings.Format(CDbl(Dgv(88, 位置).Value.ToString), "#,##0") : If CDbl(D12_alb.Text) > 0 Then : D12_clb.Text = D12_lb.Text : Else : D12_clb.Text = "" : End If
            小4_lb.Text = Strings.Format(CDbl(Dgv(89, 位置).Value.ToString), "#,##0") + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text)
            小41_lb.Text = 小4_lb.Text : 小42_lb.Text = 小4_lb.Text

            姓名_lb.Text = Dgv("姓名", 位置).Value.ToString
            正常_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
            正常1_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
            加班_lb.Text = Strings.Format(CDbl(Dgv("加班費", 位置).Value.ToString), "#,##0")
            AA1_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0") : AA2_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0")


            轉時1_lb.Text = Strings.Format(CDbl(Dgv("平加班1.34", 位置).Value.ToString), "#,##0.000") : 轉時2_lb.Text = Strings.Format(CDbl(Dgv("休加班1.34", 位置).Value.ToString), "#,##0.000")
            轉時3_lb.Text = Strings.Format(CDbl(Dgv("平加班1.67", 位置).Value.ToString), "#,##0.000") : 轉時4_lb.Text = Strings.Format(CDbl(Dgv("休加班1.67", 位置).Value.ToString), "#,##0.000")
            轉時5_lb.Text = Strings.Format(CDbl(Dgv("國加班2.00", 位置).Value.ToString), "#,##0.000")
            轉薪1_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪2_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0")
            轉薪3_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪4_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0")
            轉薪5_lb.Text = Strings.Format(2 * CDbl(最低薪資_lb.Text), "#,##0.0")
            If CDbl(最低薪資_lb.Text) = 0 Then
                轉費1_tb.Text = "0.0" : 轉費2_tb.Text = "0.0" : 轉費3_tb.Text = "0.0" : 轉費4_tb.Text = "0.0" : 轉費5_tb.Text = "0.0" : 正常轉時_lb.Text = "0.000" : 轉正常_lb.Text = "0.0"
            Else
                正常轉時_lb.Text = Strings.Format(CDbl(Dgv("正常班轉場", 位置).Value.ToString), "#,##0.000")
                轉正常_lb.Text = Strings.Format(CDbl(Dgv("轉場薪資", 位置).Value.ToString), "#,##0.0")
                轉費1_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.34").Value.ToString), "#,##0.0")
                轉費2_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.34").Value.ToString), "#,##0.0")
                轉費3_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.67").Value.ToString), "#,##0.0")
                轉費4_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.67").Value.ToString), "#,##0.0")
                轉費5_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("國薪資2.00").Value.ToString), "#,##0.0")
            End If
            小5_lb.Text = Strings.Format(CDbl(轉費1_tb.Text) + CDbl(轉費2_tb.Text) + CDbl(轉費3_tb.Text) + CDbl(轉費4_tb.Text) + CDbl(轉費5_tb.Text), "#,##0.0")
            小51_lb.Text = 小5_lb.Text

            時1_lb.Text = Strings.Format(CDbl(Dgv("平9-10", 位置).Value.ToString), "#,##0.000") : 時2_lb.Text = Strings.Format(CDbl(Dgv("休0-2", 位置).Value.ToString), "#,##0.000")
            時3_lb.Text = Strings.Format(CDbl(Dgv("平11-12", 位置).Value.ToString), "#,##0.000") : 時4_lb.Text = Strings.Format(CDbl(Dgv("休3-8", 位置).Value.ToString), "#,##0.000")
            時5_lb.Text = Strings.Format(CDbl(Dgv("國0-2", 位置).Value.ToString) + CDbl(Dgv("國3-8", 位置).Value.ToString), "#,##0.000")
            正常工_lb.Text = Strings.Format(CDbl(Dgv("平0-8", 位置).Value.ToString), "#,##0.0") : 特休_lb.Text = Strings.Format(CDbl(Dgv(50, 位置).Value.ToString), "#,##0.0")
            平日轉_lb.Text = Strings.Format(CDbl(Dgv("平日轉場", 位置).Value.ToString), "#,##0.0")
            薪1_lb.Text = Strings.Format(1.34 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            薪2_lb.Text = Strings.Format(1.34 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            薪3_lb.Text = Strings.Format(1.67 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            薪4_lb.Text = Strings.Format(1.67 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            薪5_lb.Text = Strings.Format(2 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
            費1_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("平9-10").Value.ToString) * CDbl(薪1_lb.Text)), "#,##0")
            費2_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休0-2").Value.ToString) * CDbl(薪2_lb.Text)), "#,##0")
            費3_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("平11-12").Value.ToString) * CDbl(薪3_lb.Text)), "#,##0")
            費4_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休3-8").Value.ToString) * CDbl(薪4_lb.Text)), "#,##0")
            費5_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("國0-2").Value.ToString + CDbl(Dgv.Rows(位置).Cells("國3-8").Value.ToString))) * CDbl(薪5_lb.Text), "#,##0")
            小1_lb.Text = Strings.Format((CDbl(費1_tb.Text) + CDbl(費2_tb.Text) + CDbl(費3_tb.Text) + CDbl(費4_tb.Text) + CDbl(費5_tb.Text)), "#,##0")
            合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(小41_lb.Text) + CDbl(小51_lb.Text) + CDbl(轉正常_lb.Text)), "#,##0")
            A01_alb.Text = Strings.Format(CDbl(Dgv(24, 位置).Value.ToString), "#,##0") : If CDbl(A01_alb.Text) > 0 Then : A01_clb.Text = A01_lb.Text : Else : A01_clb.Text = "" : End If
            A02_alb.Text = Strings.Format(CDbl(Dgv(25, 位置).Value.ToString), "#,##0") : If CDbl(A02_alb.Text) > 0 Then : A02_clb.Text = A02_lb.Text : Else : A02_clb.Text = "" : End If
            A03_alb.Text = Strings.Format(CDbl(Dgv(26, 位置).Value.ToString), "#,##0") : If CDbl(A03_alb.Text) > 0 Then : A03_clb.Text = A03_lb.Text : Else : A03_clb.Text = "" : End If
            A04_alb.Text = Strings.Format(CDbl(Dgv(27, 位置).Value.ToString), "#,##0") : If CDbl(A04_alb.Text) > 0 Then : A04_clb.Text = A04_lb.Text : Else : A04_clb.Text = "" : End If
            A05_alb.Text = Strings.Format(CDbl(Dgv(28, 位置).Value.ToString), "#,##0") : If CDbl(A05_alb.Text) > 0 Then : A05_clb.Text = A05_lb.Text : Else : A05_clb.Text = "" : End If
            A06_alb.Text = Strings.Format(CDbl(Dgv(29, 位置).Value.ToString), "#,##0") : If CDbl(A06_alb.Text) > 0 Then : A06_clb.Text = A06_lb.Text : Else : A06_clb.Text = "" : End If
            A07_alb.Text = Strings.Format(CDbl(Dgv(30, 位置).Value.ToString), "#,##0") : If CDbl(A07_alb.Text) > 0 Then : A07_clb.Text = A07_lb.Text : Else : A07_clb.Text = "" : End If
            A08_alb.Text = Strings.Format(CDbl(Dgv(31, 位置).Value.ToString), "#,##0") : If CDbl(A08_alb.Text) > 0 Then : A08_clb.Text = A08_lb.Text : Else : A08_clb.Text = "" : End If
            A09_alb.Text = Strings.Format(CDbl(Dgv(32, 位置).Value.ToString), "#,##0") : If CDbl(A09_alb.Text) > 0 Then : A09_clb.Text = A09_lb.Text : Else : A09_clb.Text = "" : End If
            A10_alb.Text = Strings.Format(CDbl(Dgv(33, 位置).Value.ToString), "#,##0") : If CDbl(A10_alb.Text) > 0 Then : A10_clb.Text = A10_lb.Text : Else : A10_clb.Text = "" : End If
            A11_alb.Text = Strings.Format(CDbl(Dgv(34, 位置).Value.ToString), "#,##0") : If CDbl(A11_alb.Text) > 0 Then : A11_clb.Text = A11_lb.Text : Else : A11_clb.Text = "" : End If
            A12_alb.Text = Strings.Format(CDbl(Dgv(35, 位置).Value.ToString), "#,##0") : If CDbl(A12_alb.Text) > 0 Then : A12_clb.Text = A12_lb.Text : Else : A12_clb.Text = "" : End If
            小2_lb.Text = Strings.Format((CDbl(A01_alb.Text) + CDbl(A02_alb.Text) + CDbl(A03_alb.Text) + CDbl(A04_alb.Text) + CDbl(A05_alb.Text) + CDbl(A06_alb.Text) + CDbl(A07_alb.Text) +
                                              CDbl(A08_alb.Text) + CDbl(A09_alb.Text) + CDbl(A10_alb.Text) + CDbl(A11_alb.Text) + CDbl(A12_alb.Text)), "#,##0")
            小21_lb.Text = 小2_lb.Text
            B01_alb.Text = Strings.Format(CDbl(Dgv(37, 位置).Value.ToString), "#,##0") : If CDbl(B01_alb.Text) > 0 Then : B01_clb.Text = B01_lb.Text : Else : B01_clb.Text = "" : End If
            B02_alb.Text = Strings.Format(CDbl(Dgv(38, 位置).Value.ToString), "#,##0") : If CDbl(B02_alb.Text) > 0 Then : B02_clb.Text = B02_lb.Text : Else : B02_clb.Text = "" : End If
            B03_alb.Text = Strings.Format(CDbl(Dgv(39, 位置).Value.ToString), "#,##0") : If CDbl(B03_alb.Text) > 0 Then : B03_clb.Text = B03_lb.Text : Else : B03_clb.Text = "" : End If
            B04_alb.Text = Strings.Format(CDbl(Dgv(40, 位置).Value.ToString), "#,##0") : If CDbl(B04_alb.Text) > 0 Then : B04_clb.Text = B04_lb.Text : Else : B04_clb.Text = "" : End If
            B05_alb.Text = Strings.Format(CDbl(Dgv(41, 位置).Value.ToString), "#,##0") : If CDbl(B05_alb.Text) > 0 Then : B05_clb.Text = B05_lb.Text : Else : B05_clb.Text = "" : End If
            B06_alb.Text = Strings.Format(CDbl(Dgv(42, 位置).Value.ToString), "#,##0") : If CDbl(B06_alb.Text) > 0 Then : B06_clb.Text = B06_lb.Text : Else : B06_clb.Text = "" : End If
            B07_alb.Text = Strings.Format(CDbl(Dgv(43, 位置).Value.ToString), "#,##0") : If CDbl(B07_alb.Text) > 0 Then : B07_clb.Text = B07_lb.Text : Else : B07_clb.Text = "" : End If
            B08_alb.Text = Strings.Format(CDbl(Dgv(44, 位置).Value.ToString), "#,##0") : If CDbl(B08_alb.Text) > 0 Then : B08_clb.Text = B08_lb.Text : Else : B08_clb.Text = "" : End If
            B09_alb.Text = Strings.Format(CDbl(Dgv(45, 位置).Value.ToString), "#,##0") : If CDbl(B09_alb.Text) > 0 Then : B09_clb.Text = B09_lb.Text : Else : B09_clb.Text = "" : End If
            B10_alb.Text = Strings.Format(CDbl(Dgv(46, 位置).Value.ToString), "#,##0") : If CDbl(B10_alb.Text) > 0 Then : B10_clb.Text = B10_lb.Text : Else : B10_clb.Text = "" : End If
            B11_alb.Text = Strings.Format(CDbl(Dgv(47, 位置).Value.ToString), "#,##0") : If CDbl(B11_alb.Text) > 0 Then : B11_clb.Text = B11_lb.Text : Else : B11_clb.Text = "" : End If
            B12_alb.Text = Strings.Format(CDbl(Dgv(48, 位置).Value.ToString), "#,##0") : If CDbl(B12_alb.Text) > 0 Then : B12_clb.Text = B12_lb.Text : Else : B12_clb.Text = "" : End If
            小3_lb.Text = Strings.Format((CDbl(B01_alb.Text) + CDbl(B02_alb.Text) + CDbl(B03_alb.Text) + CDbl(B04_alb.Text) + CDbl(B05_alb.Text) + CDbl(B06_alb.Text) + CDbl(B07_alb.Text) +
                                              CDbl(B08_alb.Text) + CDbl(B09_alb.Text) + CDbl(B10_alb.Text) + CDbl(B11_alb.Text) + CDbl(B12_alb.Text)), "#,##0")
            小31_lb.Text = 小3_lb.Text : 實領_lb.Text = Strings.Format((CDbl(合1_lb.Text) + CDbl(特休_lb.Text) - CDbl(小2_lb.Text) + CDbl(小3_lb.Text)), "#,##0")
        End If
    End Sub
    Private Sub 存檔3_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔3_bt.MouseEnter
        ToolTip1.SetToolTip(Me.存檔3_bt, "存檔")
    End Sub
    Private Sub 比對前_bt_MouseEnter(sender As Object, e As EventArgs) Handles 比對前_bt.MouseEnter
        ToolTip1.SetToolTip(Me.比對前_bt, "依 [仁寶A碼] 計算出的薪資表")
    End Sub
    Private Sub 比對後_bt_MouseEnter(sender As Object, e As EventArgs) Handles 比對後_bt.MouseEnter
        ToolTip1.SetToolTip(Me.比對後_bt, "依 [長照所A碼] 計算出的薪資表")
    End Sub
    Private Sub 薪資條_bt_MouseEnter(sender As Object, e As EventArgs) Handles 薪資條_bt.MouseEnter
        ToolTip1.SetToolTip(Me.薪資條_bt, "薪資條")
    End Sub
    Private Sub 人員向前_bt_MouseEnter(sender As Object, e As EventArgs) Handles 人員向前_bt.MouseEnter
        ToolTip1.SetToolTip(Me.人員向前_bt, "上一位人員")
    End Sub
    Private Sub 人員向後_bt_MouseEnter(sender As Object, e As EventArgs) Handles 人員向後_bt.MouseEnter
        ToolTip1.SetToolTip(Me.人員向後_bt, "下一位人員")
    End Sub
    Private Sub 重讀_bt_MouseEnter(sender As Object, e As EventArgs) Handles 重讀_bt.MouseEnter
        ToolTip1.SetToolTip(Me.重讀_bt, "重新讀取")
    End Sub
    Private Sub 設定1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 設定1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.設定1_bt, "系統設定")
    End Sub
    Private Sub 拆帳制薪資試算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : Panel1.Visible = False : 初始執行 = True
        Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront() : 其它_ch.Visible = CC(61)
        服務津貼_cb.Visible = CC(61) : 轉場津貼_cb.Visible = CC(61) : 服務津貼_cb.Checked = CC(15) : 轉場津貼_cb.Checked = CC(16)
        If gUserName = "李協叡" Then : 重讀2_bt.Visible = True : 查詢_bt.Visible = True : 扣除狀態_ch.Enabled = True
        Else : 重讀2_bt.Visible = False : 查詢_bt.Visible = False : 扣除狀態_ch.Enabled = False : End If
        Dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        Dgv1.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        階級津貼_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        BA比_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        碼別_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        表頭_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 拆帳制薪資試算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 服務津貼_cb.Checked = False Then : 服務津貼_lb.Text = "" : Else : 服務津貼_lb.Text = "服務津貼" : End If
        If 轉場津貼_cb.Checked = False Then : 轉場津貼_lb.Text = "" : Else : 轉場津貼_lb.Text = "轉場津貼" : End If
        SQL_讀取公司名稱() : If dr.Read() Then : 公司名_lb.Text = dr("公司名稱") & " 薪資條" : End If
        Set_碼別() : Set_表頭()
        SQL_營運成本收支單對帳表_查詢最後一筆年份清單() : 年份_cb.Items.Clear() : 年份_cb.Items.Add("") : While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While : conn.Close()
        SQL_資料日期01() : If dr.Read Then : 年份_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份_cb.Text = Strings.Right(dr("流水號").ToString, 2) : End If
        If 拆帳制考勤文件導入.年份_cb.Text <> "" Then : 年份_cb.Text = 拆帳制考勤文件導入.年份_cb.Text
        ElseIf 年份_cb.Text = "" Then : 年份_cb.Text = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4) : End If
        If 拆帳制考勤文件導入.月份_cb.Text <> "" Then : 月份_cb.Text = 拆帳制考勤文件導入.月份_cb.Text
        ElseIf 月份_cb.Text = "" Then : 月份_cb.Text = Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) : End If
        分流計算.Enabled = True
    End Sub
    Private Sub 分流計算_Tick(sender As Object, e As EventArgs) Handles 分流計算.Tick
        PA1 = 年份_cb.Text & 月份_cb.Text : SQL_查最低薪資()
        If dr.Read Then : 扣除狀態_ch.Checked = dr("AA扣除").ToString : 轉場薪資_tb.Text = CInt(dr("最低薪資").ToString) : 最低薪資_lb.Text = 轉場薪資_tb.Text
        Else : 扣除狀態_ch.Checked = True : Dim AA As String = InputBox("請輸入轉場薪資!!") : 轉場薪資_tb.Text = AA : 最低薪資_lb.Text = 轉場薪資_tb.Text : SQL_最低薪資新增() : End If
        Set_服務人員() : 首次開啟 = False : 初始執行 = False : 分流計算.Enabled = False
    End Sub
    Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
        If 初始執行 = False Then
            PA1 = 年份_cb.Text & 月份_cb.Text : SQL_查最低薪資()
            If dr.Read Then : 扣除狀態_ch.Checked = dr("AA扣除").ToString : 轉場薪資_tb.Text = CInt(dr("最低薪資").ToString) : 最低薪資_lb.Text = 轉場薪資_tb.Text
            Else : 扣除狀態_ch.Checked = True : Dim AA As String = InputBox("請輸入轉場薪資!!") : 轉場薪資_tb.Text = AA : 最低薪資_lb.Text = 轉場薪資_tb.Text : SQL_最低薪資新增() : End If
        End If
    End Sub
    Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
        If 初始執行 = False Then
            PA1 = 年份_cb.Text & 月份_cb.Text : SQL_查最低薪資()
            If dr.Read Then : 扣除狀態_ch.Checked = dr("AA扣除").ToString : 轉場薪資_tb.Text = CInt(dr("最低薪資").ToString) : 最低薪資_lb.Text = 轉場薪資_tb.Text
            Else : 扣除狀態_ch.Checked = True : Dim AA As String = InputBox("請輸入轉場薪資!!") : 轉場薪資_tb.Text = AA : 最低薪資_lb.Text = 轉場薪資_tb.Text : SQL_最低薪資新增() : End If
            Set_服務人員()
        End If
    End Sub
    Private Sub 比對前_bt_Click(sender As Object, e As EventArgs) Handles 比對前_bt.Click
        Dgv.BringToFront() : Set_薪資計算() : Set_分頁()
    End Sub
    Private Sub 比對後_bt_Click(sender As Object, e As EventArgs) Handles 比對後_bt.Click
        SQL_確認BA碼長照() : If dr.Read Then
            SQL_確認A碼長照() : If dr.Read Then : Dgv1.BringToFront() : Set_服務人員1() : 算差額()
            Else : MsgBox("系統內無長照所A碼資料!!") : End If
        Else : MsgBox("系統內無長照所BA或SC碼資料!!") : End If
    End Sub
    Private Sub 算差額()
        差異_tb.Text = "0" : SQL2 = "" : SQL_差額刪除()
        For I As Integer = 0 To Dgv.Rows.Count - 1
            For II As Integer = 0 To Dgv1.Rows.Count - 1
                If Dgv.Rows(I).Cells("姓名").Value.ToString = Dgv1.Rows(II).Cells("姓名").Value.ToString Then
                    For III As Integer = 0 To 差異_dgv.Rows.Count - 1
                        If Dgv.Rows(I).Cells("姓名").Value.ToString = 差異_dgv.Rows(III).Cells("姓名").Value.ToString Then
                            差異_dgv.Rows(III).Cells("差額").Value = Strings.Format(CDbl(Dgv1.Rows(II).Cells("總薪資").Value.ToString) -
                                                                                    CDbl(Dgv.Rows(I).Cells("總薪資").Value.ToString), "#,##0")
                            差異_tb.Text = Strings.Format(CDbl(差異_tb.Text) + CDbl(差異_dgv.Rows(III).Cells("差額").Value.ToString), "#,##0")
                            差異_dgv.Rows(III).Cells("流水號").Value = 年份_cb.Text & 月份_cb.Text
                            SQL2 &= "(N'" & 年份_cb.Text & 月份_cb.Text & "',N'" & 差異_dgv.Rows(III).Cells("姓名").Value.ToString & "',
                                      N'" & 差異_dgv.Rows(III).Cells("差額").Value.ToString & "')," : Exit For
                        End If
                    Next : Exit For
                End If
            Next
        Next : If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If : SQL_差額新增() : SQL2 = ""
    End Sub
    Private Sub 設定1_bt_Click(sender As Object, e As EventArgs) Handles 設定1_bt.Click
        If Panel2.Visible = True Then
            Panel2.Visible = False : Dgv.BringToFront() : Set_薪資計算() : Set_分頁()
        Else
            Panel2.Visible = True : Panel2.BringToFront()
        End If
    End Sub
    Private Sub 薪資條_bt_Click(sender As Object, e As EventArgs) Handles 薪資條_bt.Click
        If Panel4.Visible = True Then
            Panel4.Visible = False : Dgv.BringToFront() : Set_薪資計算() : Set_分頁() : 寫入薪資條()
        Else
            Panel4.Visible = True : Panel4.BringToFront() : 寫入薪資條()
        End If
    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
            PA1 = 階級津貼_dgv.Rows(i).Cells("流水號").Value.ToString : PA10 = 階級津貼_dgv.Rows(i).Cells("級數").Value.ToString : PA11 = 階級津貼_dgv.Rows(i).Cells("級數1").Value.ToString
            PA20 = 階級津貼_dgv.Rows(i).Cells("加給").Value.ToString : PA30 = 階級津貼_dgv.Rows(i).Cells("內容").Value.ToString
            SQL_階級加給_修改()
        Next : MsgBox("係數修改完畢!!")
        Set_階級加給() : Set_薪資計算()
    End Sub
    Private Sub 存檔1_bt_Click(sender As Object, e As EventArgs) Handles 存檔1_bt.Click
        For i As Integer = 0 To BA比_dgv.Rows.Count - 1
            PA1 = "" : PA2 = BA比_dgv.Rows(i).Cells("姓名").Value.ToString : PA3 = BA比_dgv.Rows(i).Cells("BA").Value.ToString : SQL_BA比_修改()
            PA1 = BA比_dgv.Rows(i).Cells("流水號").Value.ToString : SQL_BA比_修改()
        Next : MsgBox("係數修改完畢!!") : Set_BA比1() : Set_BA比2() : Set_薪資計算()
    End Sub
    Private Sub 存檔2_bt_Click(sender As Object, e As EventArgs) Handles 存檔2_bt.Click
        For i As Integer = 0 To 表頭_dgv.Rows.Count - 1
            PA2 = 表頭_dgv.Rows(i).Cells("對應").Value.ToString : PA3 = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : SQL_表頭_修改()
        Next : MsgBox("係數修改完畢!!") : Set_服務人員()
    End Sub
    Private Sub 存檔3_bt_Click(sender As Object, e As EventArgs) Handles 存檔3_bt.Click
        PA1 = 年份_cb.Text & 月份_cb.Text : SQL_其他表查詢() : Dim 需要新增 As Boolean = True : If dr.Read Then : 需要新增 = False : End If : SQL_彙總表_刪除()
        For i As Integer = 0 To Dgv.Rows.Count - 1
            If 需要新增 = True Then
                SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells(24).Value & "',
                         N'" & Dgv.Rows(i).Cells(25).Value & "',N'" & Dgv.Rows(i).Cells(26).Value & "',N'" & Dgv.Rows(i).Cells(27).Value & "',N'" & Dgv.Rows(i).Cells(28).Value & "',
                         N'" & Dgv.Rows(i).Cells(29).Value & "',N'" & Dgv.Rows(i).Cells(30).Value & "',N'" & Dgv.Rows(i).Cells(31).Value & "',N'" & Dgv.Rows(i).Cells(32).Value & "',
                         N'" & Dgv.Rows(i).Cells(33).Value & "',N'" & Dgv.Rows(i).Cells(34).Value & "',N'" & Dgv.Rows(i).Cells(35).Value & "',N'" & Dgv.Rows(i).Cells(37).Value & "',
                         N'" & Dgv.Rows(i).Cells(38).Value & "',N'" & Dgv.Rows(i).Cells(39).Value & "',N'" & Dgv.Rows(i).Cells(40).Value & "',N'" & Dgv.Rows(i).Cells(41).Value & "',
                         N'" & Dgv.Rows(i).Cells(42).Value & "',N'" & Dgv.Rows(i).Cells(43).Value & "',N'" & Dgv.Rows(i).Cells(44).Value & "',N'" & Dgv.Rows(i).Cells(45).Value & "',
                         N'" & Dgv.Rows(i).Cells(46).Value & "',N'" & Dgv.Rows(i).Cells(47).Value & "',N'" & Dgv.Rows(i).Cells(48).Value & "',N'" & Dgv.Rows(i).Cells(50).Value & "',
                         N'" & Dgv.Rows(i).Cells("其他").Value & "',N'" & Dgv.Rows(i).Cells(77).Value & "',N'" & Dgv.Rows(i).Cells(78).Value & "',N'" & Dgv.Rows(i).Cells(79).Value & "',
                         N'" & Dgv.Rows(i).Cells(80).Value & "',N'" & Dgv.Rows(i).Cells(81).Value & "',N'" & Dgv.Rows(i).Cells(82).Value & "',N'" & Dgv.Rows(i).Cells(83).Value & "',
                         N'" & Dgv.Rows(i).Cells(84).Value & "',N'" & Dgv.Rows(i).Cells(85).Value & "',N'" & Dgv.Rows(i).Cells(86).Value & "',N'" & Dgv.Rows(i).Cells(87).Value & "',
                         N'" & Dgv.Rows(i).Cells(88).Value & "',N'" & Dgv.Rows(i).Cells(90).Value & "',N'" & Dgv.Rows(i).Cells(91).Value & "',N'" & Dgv.Rows(i).Cells(92).Value & "',
                         N'" & Dgv.Rows(i).Cells(93).Value & "',N'" & Dgv.Rows(i).Cells(94).Value & "',N'" & Dgv.Rows(i).Cells(95).Value & "',N'" & Dgv.Rows(i).Cells(96).Value & "',
                         N'" & Dgv.Rows(i).Cells(97).Value & "',N'" & Dgv.Rows(i).Cells(98).Value & "',N'" & Dgv.Rows(i).Cells(99).Value & "',N'" & Dgv.Rows(i).Cells(100).Value & "',
                         N'" & Dgv.Rows(i).Cells(101).Value & "',N'" & Dgv.Rows(i).Cells(102).Value & "')"
                SQL_其他表_新增()
            Else
                SQL2 = "A01 = N'" & Dgv.Rows(i).Cells(24).Value & "', A02 = N'" & Dgv.Rows(i).Cells(25).Value & "', A03 = N'" & Dgv.Rows(i).Cells(26).Value & "', 
                        A04 = N'" & Dgv.Rows(i).Cells(27).Value & "', A05 = N'" & Dgv.Rows(i).Cells(28).Value & "', A06 = N'" & Dgv.Rows(i).Cells(29).Value & "', 
                        A07 = N'" & Dgv.Rows(i).Cells(30).Value & "', A08 = N'" & Dgv.Rows(i).Cells(31).Value & "', A09 = N'" & Dgv.Rows(i).Cells(32).Value & "', 
                        A10 = N'" & Dgv.Rows(i).Cells(33).Value & "', A11 = N'" & Dgv.Rows(i).Cells(34).Value & "', A12 = N'" & Dgv.Rows(i).Cells(35).Value & "', 
                        B01 = N'" & Dgv.Rows(i).Cells(37).Value & "', B02 = N'" & Dgv.Rows(i).Cells(38).Value & "', B03 = N'" & Dgv.Rows(i).Cells(39).Value & "', 
                        B04 = N'" & Dgv.Rows(i).Cells(40).Value & "', B05 = N'" & Dgv.Rows(i).Cells(41).Value & "', B06 = N'" & Dgv.Rows(i).Cells(42).Value & "', 
                        B07 = N'" & Dgv.Rows(i).Cells(43).Value & "', B08 = N'" & Dgv.Rows(i).Cells(44).Value & "', B09 = N'" & Dgv.Rows(i).Cells(45).Value & "', 
                        B10 = N'" & Dgv.Rows(i).Cells(46).Value & "', B11 = N'" & Dgv.Rows(i).Cells(47).Value & "', B12 = N'" & Dgv.Rows(i).Cells(48).Value & "', 
                        C01 = N'" & Dgv.Rows(i).Cells(50).Value & "', 其他 = N'" & Dgv.Rows(i).Cells("其他").Value & "', D01 = N'" & Dgv.Rows(i).Cells(77).Value & "', 
                        D02 = N'" & Dgv.Rows(i).Cells(78).Value & "', D03 = N'" & Dgv.Rows(i).Cells(79).Value & "', D04 = N'" & Dgv.Rows(i).Cells(80).Value & "', 
                        D05 = N'" & Dgv.Rows(i).Cells(81).Value & "', D06 = N'" & Dgv.Rows(i).Cells(82).Value & "', D07 = N'" & Dgv.Rows(i).Cells(83).Value & "', 
                        D08 = N'" & Dgv.Rows(i).Cells(84).Value & "', D09 = N'" & Dgv.Rows(i).Cells(85).Value & "', D10 = N'" & Dgv.Rows(i).Cells(86).Value & "', 
                        D11 = N'" & Dgv.Rows(i).Cells(87).Value & "', D12 = N'" & Dgv.Rows(i).Cells(88).Value & "', GA比 = N'" & Dgv.Rows(i).Cells(90).Value & "', 
                        E01 = N'" & Dgv.Rows(i).Cells(91).Value & "', E02 = N'" & Dgv.Rows(i).Cells(92).Value & "', E03 = N'" & Dgv.Rows(i).Cells(93).Value & "', 
                        E04 = N'" & Dgv.Rows(i).Cells(94).Value & "', E05 = N'" & Dgv.Rows(i).Cells(95).Value & "', E06 = N'" & Dgv.Rows(i).Cells(96).Value & "', 
                        E07 = N'" & Dgv.Rows(i).Cells(97).Value & "', E08 = N'" & Dgv.Rows(i).Cells(98).Value & "', E09 = N'" & Dgv.Rows(i).Cells(99).Value & "', 
                        E10 = N'" & Dgv.Rows(i).Cells(100).Value & "', E11 = N'" & Dgv.Rows(i).Cells(101).Value & "', E12 = N'" & Dgv.Rows(i).Cells(102).Value & "'  
                        WHERE 流水號 LIKE N'" & PA1 & "' AND  姓名 LIKE N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "'"
                SQL_其他表_修改()
            End If
            SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells("BA正常").Value & "',
                     N'" & Dgv.Rows(i).Cells("GA正常").Value & "',N'" & Dgv.Rows(i).Cells("GA加給").Value & "',N'" & Dgv.Rows(i).Cells("AA").Value & "',
                     N'" & Dgv.Rows(i).Cells("服務津貼").Value & "',N'" & Dgv.Rows(i).Cells("轉場津貼").Value & "',N'" & Dgv.Rows(i).Cells("薪資加項總計").Value & "',
                     N'" & Dgv.Rows(i).Cells("加班費").Value & "',N'" & Dgv.Rows(i).Cells("加項總計").Value & "',N'" & Dgv.Rows(i).Cells("減項總計").Value & "',
                     N'" & Dgv.Rows(i).Cells("轉場薪資").Value & "',N'" & Dgv.Rows(i).Cells("平薪資1.34").Value & "',N'" & Dgv.Rows(i).Cells("平薪資1.67").Value & "',
                     N'" & Dgv.Rows(i).Cells("休薪資1.34").Value & "',N'" & Dgv.Rows(i).Cells("休薪資1.67").Value & "',N'" & Dgv.Rows(i).Cells("國薪資2.00").Value & "',
                     N'" & Dgv.Rows(i).Cells("公司負擔總計").Value & "',N'" & Dgv.Rows(i).Cells("AA剃除").Value & "',N'" & Dgv.Rows(i).Cells("實際總薪資").Value & "',
                     N'" & Dgv.Rows(i).Cells("BAORSC仁").Value & "', N'" & Dgv.Rows(i).Cells("AA長短仁").Value & "',N'" & Dgv.Rows(i).Cells("BAORSC").Value & "',
                     N'" & Dgv.Rows(i).Cells("AA長短").Value & "',N'" & Dgv.Rows(i).Cells("餘額").Value & "',N'" & Dgv.Rows(i).Cells("總服務時數").Value & "',
                     N'" & Dgv.Rows(i).Cells("總轉場時數").Value & "')"
            SQL_彙總表_新增()
        Next : MsgBox("薪資表修改完畢!!")
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        PA20 = "" : PA21 = "" : PA20 = InputBox("請輸入碼別!!") : PA21 = InputBox("請輸入碼別 [" & PA20 & "]，每小時多少錢!!")
        If PA20 <> "" And IsNumeric(PA21) = True Then : SQL_碼別_查詢() : If dr.Read Then : MsgBox("該碼別已經新增過了") : Else : SQL_碼別_新增() : Set_碼別() : End If : End If
    End Sub
    Private Sub 存檔4_bt_Click(sender As Object, e As EventArgs) Handles 存檔4_bt.Click
        For i As Integer = 0 To 碼別_dgv.Rows.Count - 1
            PA20 = 碼別_dgv.Rows(i).Cells(0).Value.ToString : PA21 = 碼別_dgv.Rows(i).Cells(1).Value.ToString : SQL_碼別_修改()
        Next : MsgBox("係數修改完畢!!") : Set_加班計算() : Set_薪資計算()
    End Sub
    Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
        Set_薪資計算()
    End Sub
    Private Sub 主表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主表_ch.Click
        主表_ch.Checked = True : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False
        其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False
        主表_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    End Sub
    Private Sub 薪資加項_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 薪資加項_ch.Click
        主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False
        其它_ch.Checked = False : 薪資加項_ch.Checked = True : 公司負擔成本_ch.Checked = False
        薪資加項_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    End Sub
    Private Sub 時數表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 時數表_ch.Click
        主表_ch.Checked = False : 時數表_ch.Checked = True : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False
        其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False
        時數表_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    End Sub
    Private Sub 加項總計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 加項總計_ch.Click
        主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = True : 減項總計_ch.Checked = False
        其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False
        加項總計_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    End Sub
    Private Sub 減項總計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 減項總計_ch.Click
        主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = True
        其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False
        減項總計_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    End Sub
    Private Sub 其它_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 其它_ch.Click
        主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False
        其它_ch.Checked = True : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False
        其它_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    End Sub
    Private Sub 公司負擔成本_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 公司負擔成本_ch.Click
        主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False
        其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = True
        公司負擔_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If
    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 位置 = 0 Then : MsgBox("已經是第一筆人員資料!!") : Else : 位置 -= 1 : 寫入薪資條() : Exit Sub : End If
            If 位置 = 0 Then : 寫入薪資條() : Exit Sub : End If
        Next
    End Sub
    Private Sub 人員向後_bt_Click(sender As Object, e As EventArgs) Handles 人員向後_bt.Click
        If 位置 = Dgv.Rows.Count - 1 Then : MsgBox("已經是最後一筆人員資料!!") : Else : 位置 += 1 : 寫入薪資條() : Exit Sub : End If
        If 位置 = Dgv.Rows.Count - 1 Then : 寫入薪資條() : Exit Sub : End If
    End Sub
    Private Sub 列印_tb_Click(sender As Object, e As EventArgs) Handles 列印_tb.Click
        If 轉場薪資_tb.Text <> "" Then
            PrintDocument1.DefaultPageSettings.Landscape = True : Dim printDialog As New PrintDialog() : printDialog.Document = PrintDocument1
            If printDialog.ShowDialog() = DialogResult.OK Then : PrintDocument1.Print() : MsgBox("列印完成!!") : End If
        Else : MsgBox("你的轉場最低薪資與年度沒有匹配，請重新選擇正確的轉場薪資!!") : End If
    End Sub
    Private Sub printDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim panelImage As New Bitmap(Panel4.Width, Panel4.Height)
        Panel4.DrawToBitmap(panelImage, New Rectangle(0, 0, Panel11.Width + 1, Panel11.Height + 1))
        Dim targetWidth As Integer = CInt(Panel4.Width * 1)
        Dim targetHeight As Integer = CInt(Panel4.Height * 1)
        e.Graphics.DrawImage(panelImage, New Rectangle(15, 40, targetWidth, targetHeight))
    End Sub
    Private Sub 服務津貼_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 服務津貼_cb.Click
        SQL_津貼權限()
        If 服務津貼_cb.Checked = False Then : 服務津貼_lb.Text = "" : Else : 服務津貼_lb.Text = "服務津貼" : End If
        If 轉場津貼_cb.Checked = False Then : 轉場津貼_lb.Text = "" : Else : 轉場津貼_lb.Text = "轉場津貼" : End If
    End Sub
    Private Sub 轉場津貼_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 轉場津貼_cb.Click
        SQL_津貼權限()
        If 服務津貼_cb.Checked = False Then : 服務津貼_lb.Text = "" : Else : 服務津貼_lb.Text = "服務津貼" : End If
        If 轉場津貼_cb.Checked = False Then : 轉場津貼_lb.Text = "" : Else : 轉場津貼_lb.Text = "轉場津貼" : End If
    End Sub
    Private Sub 重讀1_bt_Click(sender As Object, e As EventArgs) Handles 重讀1_bt.Click
        Set_服務人員()
    End Sub
    Private Sub 重讀2_bt_Click(sender As Object, e As EventArgs) Handles 重讀2_bt.Click
        For i As Integer = 0 To Dgv.Rows.Count - 1 : Dgv.Rows(i).Cells("GA比").Value = 1 : Next : Set_薪資計算()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        If Panel1.Visible = False Then : Panel1.Visible = True : Panel1.BringToFront() : Else : Panel1.Visible = False : End If
    End Sub
    Private Sub 轉場存檔_bt_Click(sender As Object, e As EventArgs) Handles 轉場存檔_bt.Click
        If 轉場薪資_tb.Text = "" Then : MsgBox("轉場薪資唯有輸入!!") : Exit Sub : End If
        SQL_最低薪資修改(年份_cb.Text & 月份_cb.Text, 轉場薪資_tb.Text, 扣除狀態_ch.Checked) : Set_服務人員() : 寫入薪資條()
    End Sub
End Class