Public Class 拆帳制薪資會總表 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_服務人員() 年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text 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 Dim startYear As Integer = CInt(年份_cb.Text) : Dim startMonth As Integer = CInt(月份_cb.Text) Dim endYear As Integer = CInt(年份1_cb.Text) : Dim endMonth As Integer = CInt(月份1_cb.Text) Dim result As New List(Of String) : Dim 總數 As Integer = 0 Dim actualStartYear, actualStartMonth, actualEndYear, actualEndMonth As Integer ' 確定實際的開始和結束日期 If (startYear > endYear) OrElse (startYear = endYear AndAlso startMonth > endMonth) Then actualStartYear = endYear : actualStartMonth = endMonth : actualEndYear = startYear : actualEndMonth = startMonth ' 如果開始日期晚於結束日期，就交換它們 Else actualStartYear = startYear : actualStartMonth = startMonth : actualEndYear = endYear : actualEndMonth = endMonth End If Dim currentYear As Integer = actualStartYear : Dim currentMonth As Integer = actualStartMonth While currentYear < actualEndYear OrElse (currentYear = actualEndYear AndAlso currentMonth <= actualEndMonth) result.Add(currentYear.ToString() & currentMonth.ToString("D2")) currentMonth += 1 : If currentMonth > 12 Then : currentMonth = 1 : currentYear += 1 : End If End While If (startYear > endYear) OrElse (startYear = endYear AndAlso startMonth > endMonth) Then : result.Reverse() : End If ' 如果原始輸入是逆序的，反轉結果列表 Dim AA() As String = result.ToArray() ' 將結果轉換為數組 PA2 = "" : PA1 = "" : For i As Integer = 0 To AA.Length - 1 PA1 &= "流水號 LIKE '" & AA(i) & "%' OR " : 總數 = i PA2 &= "人事拆帳制薪資報表明細_仁寶.流水號 LIKE '" & AA(i) & "%' OR " Next : PA1 = "(" & PA1.Substring(0, PA1.LastIndexOf(" OR ")) & ")" : PA2 = "(" & PA2.Substring(0, PA2.LastIndexOf(" OR ")) & ")" ' 輸出結果 SQL2 = "人事拆帳制A碼項目清冊" : SQL_薪資彙總表_仁寶1() da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : conn.Close() Dgv.EditMode = DataGridViewEditMode.EditOnEnter 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("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 For i As Integer = 0 To Dgv.Rows.Count - 1 : For J As Integer = 1 To Dgv.Columns.Count - 1 : Dgv.Rows(i).Cells(J).Value = "0" : Next : Next For i As Integer = 0 To 總數 If 首次開啟 = False Then 首次開啟 = True : 拆帳制薪資試算表.年份_cb.Text = Strings.Left(AA(i), 4) : 拆帳制薪資試算表.月份_cb.Text = Strings.Right(AA(i), 2) 首次開啟 = False 拆帳制薪資試算表.重讀1_bt.PerformClick() End If For j As Integer = 0 To Dgv.Rows.Count - 1 For K As Integer = 0 To 拆帳制薪資試算表.Dgv.Rows.Count - 1 If Dgv.Rows(j).Cells("姓名").Value.ToString = 拆帳制薪資試算表.Dgv.Rows(K).Cells("姓名").Value.ToString Then For L As Integer = 1 To Dgv.Columns.Count - 1 If Strings.Right(拆帳制薪資試算表.Dgv.Rows(K).Cells(L).Value.ToString, 1) = "%" Then Dgv.Rows(j).Cells(L).Value = "" Else Dgv.Rows(j).Cells(L).Value = CDbl(Dgv.Rows(j).Cells(L).Value.ToString) + CDbl(拆帳制薪資試算表.Dgv.Rows(K).Cells(L).Value.ToString) End If Next End If Next Next 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("正常班平均時薪").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" : 實際薪資_tb.Text = "0" : 實際薪資1_tb.Text = "0" For i As Integer = 0 To Dgv.Rows.Count - 1 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("總服務時數").Value = "0" Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv.Rows(i).Cells("總薪資").Value = "0" 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("GA加給").Value = CDbl(Dgv.Rows(i).Cells("GAM1").Value.ToString) * CDbl(Dgv.Rows(i).Cells("GAM2").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("平日月薪/不含加班").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("平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) 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("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 = CDbl(Dgv.Rows(i).Cells(24).Value) + CDbl(Dgv.Rows(i).Cells(25).Value) + CDbl(Dgv.Rows(i).Cells(26).Value) + CDbl(Dgv.Rows(i).Cells(27).Value) + CDbl(Dgv.Rows(i).Cells(28).Value) + CDbl(Dgv.Rows(i).Cells(29).Value) + CDbl(Dgv.Rows(i).Cells(30).Value) + CDbl(Dgv.Rows(i).Cells(31).Value) + CDbl(Dgv.Rows(i).Cells(32).Value) + CDbl(Dgv.Rows(i).Cells(33).Value) + CDbl(Dgv.Rows(i).Cells(34).Value) + CDbl(Dgv.Rows(i).Cells(35).Value) Dgv.Rows(i).Cells(49).Value = CDbl(Dgv.Rows(i).Cells(37).Value) + CDbl(Dgv.Rows(i).Cells(38).Value) + CDbl(Dgv.Rows(i).Cells(39).Value) + CDbl(Dgv.Rows(i).Cells(40).Value) + CDbl(Dgv.Rows(i).Cells(41).Value) + CDbl(Dgv.Rows(i).Cells(42).Value) + CDbl(Dgv.Rows(i).Cells(43).Value) + CDbl(Dgv.Rows(i).Cells(44).Value) + CDbl(Dgv.Rows(i).Cells(45).Value) + CDbl(Dgv.Rows(i).Cells(46).Value) + CDbl(Dgv.Rows(i).Cells(47).Value) + CDbl(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("休薪資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) 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("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") & " %" 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("平0-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString), "#,##0.0") Dgv.Rows(i).Cells("平9-10").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平9-10").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("平11-12").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString), "#,##0.0") Dgv.Rows(i).Cells("國0-2").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString), "#,##0.0") Dgv.Rows(i).Cells("國3-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString), "#,##0.0") Dgv.Rows(i).Cells("休0-2").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString), "#,##0.0") Dgv.Rows(i).Cells("其他").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("其他").Value.ToString), "#,##0.0") Dgv.Rows(i).Cells("休3-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("休3-8").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") For y As Integer = 24 To 50 : Dgv.Rows(i).Cells(y).Value = Strings.Format(CDbl(Dgv.Rows(i).Cells(y).Value.ToString), "#,##0.0") : Next For y As Integer = 106 To 117 : Dgv.Rows(i).Cells(y).Value = Strings.Format(CDbl(Dgv.Rows(i).Cells(y).Value.ToString), "#,##0.0") : Next 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 拆帳制薪資會總表_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) 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 拆帳制薪資會總表_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing 拆帳制薪資試算表.Close() End Sub Private Sub 拆帳制薪資試算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown SQL_讀取公司名稱() : If dr.Read() Then : 公司名_lb.Text = dr("公司名稱") & " 薪資條" : End If Set_碼別() : Set_表頭() SQL_營運成本收支單對帳表_查詢最後一筆年份清單() 年份_cb.Items.Clear() : 年份_cb.Items.Add("") : 年份1_cb.Items.Clear() : 年份1_cb.Items.Add("") While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : 年份1_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) 年份1_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份1_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 主表_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_分頁() 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_分頁() 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_分頁() 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_分頁() 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_分頁() 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_分頁() 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_分頁() End Sub Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click 首次開啟 = False : Set_服務人員() End Sub End Class