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 : 最低薪資_lb.Text = Strings.Format(CDbl(dr("最低薪資").ToString), "#,##0") : 扣除狀態_ch.Checked = dr("AA扣除") Else : 最低薪資_lb.Text = "183" : 扣除狀態_ch.Checked = True : 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) * 198 Dgv.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value.ToString) * 198 * 1.34 Dgv.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value.ToString) * 198 * 1.67 Dgv.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value.ToString) * 198 * 1.34 Dgv.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value.ToString) * 198 * 1.67 Dgv.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value.ToString) * 198 * 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 = "200" : 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 = "200" : 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 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 寫入薪資條() 服務津貼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 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 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 Set_服務人員() : 首次開啟 = False : 分流計算.Enabled = False End Sub Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged If 首次開啟 = False Then : Set_服務人員() : End If End Sub Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged If 首次開啟 = False Then : 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 PrintDocument1.DefaultPageSettings.Landscape = True : Dim printDialog As New PrintDialog() : printDialog.Document = PrintDocument1 If printDialog.ShowDialog() = DialogResult.OK Then : PrintDocument1.Print() : 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 End Class