GF-ERP-SYS
/
GF00-ERP-SYS-LEEHSIEHJUI
Seguir 4
Destacar 0
Cuchillo 0
Código Incidencias 0 Peticiones pull 0 Lanzamientos 0 Wiki Actividad
Sin descripción
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
6 Commits
1 Rama
Árbol: d2bdb3f071
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde 'd2bdb3f071'
${ noResults }
GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/01.人事系統管理/拆帳制薪資會總表.vb

拆帳制薪資會總表.vb 102KB
Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836 
  1. Public Class 拆帳制薪資會總表

  2.     Private Sub Set_碼別()

  3.         Dim ds As New DataSet : 碼別_dgv.DataSource = Nothing : ds.Clear()

  4.         碼別_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  5.         碼別_dgv.ColumnHeadersHeight = 40 : 碼別_dgv.AllowUserToAddRows = False : 碼別_dgv.RowTemplate.Height = 25

  6.         SQL_碼別()

  7.         da.Fill(ds) : 碼別_dgv.DataSource = ds.Tables(0) : conn.Close()

  8.         碼別_dgv.Columns(1).DefaultCellStyle.Format = "#,##0.0"

  9.         碼別_dgv.Columns(0).ReadOnly = False : 碼別_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  10.     End Sub

  11.     Private Sub Set_表頭()

  12.         Dim ds As New DataSet : 表頭_dgv.DataSource = Nothing : ds.Clear()

  13.         表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  14.         表頭_dgv.ColumnHeadersHeight = 40 : 表頭_dgv.AllowUserToAddRows = False : 表頭_dgv.RowTemplate.Height = 25

  15.         SQL_表頭()

  16.         da.Fill(ds) : 表頭_dgv.DataSource = ds.Tables(0) : conn.Close()

  17.         表頭_dgv.Columns(0).FillWeight = 40 : 表頭_dgv.Columns(0).ReadOnly = False : 表頭_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  18.     End Sub

  19.     Private Sub Set_服務人員()

  20.         年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text

  21.         For i As Integer = 0 To 11 : Ao(i) = "" : Next : For i As Integer = 0 To 11 : Bo(i) = "" : Next : Co(0) = ""

  22.         For i As Integer = 0 To 表頭_dgv.Rows.Count - 1

  23.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  24.                 Ao(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  25.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  26.                 Ao(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  27.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  28.                 Ao(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  29.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  30.                 Ao(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  31.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  32.                 Ao(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  33.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  34.                 Ao(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  35.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  36.                 Ao(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  37.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  38.                 Ao(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  39.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  40.                 Ao(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  41.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  42.                 Ao(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  43.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  44.                 Ao(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  45.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  46.                 Ao(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  47.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  48.                 Bo(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  49.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  50.                 Bo(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  51.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  52.                 Bo(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  53.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  54.                 Bo(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  55.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  56.                 Bo(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  57.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  58.                 Bo(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  59.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  60.                 Bo(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  61.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  62.                 Bo(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  63.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  64.                 Bo(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  65.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  66.                 Bo(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  67.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  68.                 Bo(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  69.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  70.                 Bo(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  71.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "C01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  72.                 Co(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : C01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString

  73.                 C01_1_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  74.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  75.                 Dq(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  76.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  77.                 Dq(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  78.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  79.                 Dq(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  80.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  81.                 Dq(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  82.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  83.                 Dq(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  84.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  85.                 Dq(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  86.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  87.                 Dq(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  88.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  89.                 Dq(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  90.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  91.                 Dq(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  92.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  93.                 Dq(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  94.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  95.                 Dq(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  96.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "D12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  97.                 Dq(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : D12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  98.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  99.                 Eo(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  100.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  101.                 Eo(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  102.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  103.                 Eo(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  104.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  105.                 Eo(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  106.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  107.                 Eo(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  108.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  109.                 Eo(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  110.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  111.                 Eo(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  112.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  113.                 Eo(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  114.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  115.                 Eo(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  116.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  117.                 Eo(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  118.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  119.                 Eo(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  120.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "E12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  121.                 Eo(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : E12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  122.         Next

  123.         Dim ds As New DataSet : Dgv.DataSource = Nothing : ds.Clear()

  124.         Dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  125.         Dgv.ColumnHeadersHeight = 80 : Dgv.AllowUserToAddRows = False : Dgv.RowTemplate.Height = 25

  126.         PA1 = 年份_cb.Text & 月份_cb.Text

  127. 

  128. 

  129.         Dim startYear As Integer = CInt(年份_cb.Text) : Dim startMonth As Integer = CInt(月份_cb.Text)

  130.         Dim endYear As Integer = CInt(年份1_cb.Text) : Dim endMonth As Integer = CInt(月份1_cb.Text)

  131.         Dim result As New List(Of String) : Dim 總數 As Integer = 0

  132.         Dim actualStartYear, actualStartMonth, actualEndYear, actualEndMonth As Integer        ' 確定實際的開始和結束日期

  133.         If (startYear > endYear) OrElse (startYear = endYear AndAlso startMonth > endMonth) Then

  134.             actualStartYear = endYear : actualStartMonth = endMonth : actualEndYear = startYear : actualEndMonth = startMonth   ' 如果開始日期晚於結束日期，就交換它們

  135.         Else

  136.             actualStartYear = startYear : actualStartMonth = startMonth : actualEndYear = endYear : actualEndMonth = endMonth

  137.         End If

  138.         Dim currentYear As Integer = actualStartYear : Dim currentMonth As Integer = actualStartMonth

  139.         While currentYear < actualEndYear OrElse (currentYear = actualEndYear AndAlso currentMonth <= actualEndMonth)

  140.             result.Add(currentYear.ToString() & currentMonth.ToString("D2"))

  141.             currentMonth += 1 : If currentMonth > 12 Then : currentMonth = 1 : currentYear += 1 : End If

  142.         End While

  143.         If (startYear > endYear) OrElse (startYear = endYear AndAlso startMonth > endMonth) Then : result.Reverse() : End If   ' 如果原始輸入是逆序的，反轉結果列表

  144.         Dim AA() As String = result.ToArray()   ' 將結果轉換為數組

  145. 

  146. 

  147.         PA2 = "" : PA1 = "" : For i As Integer = 0 To AA.Length - 1

  148.             PA1 &= "流水號 LIKE '" & AA(i) & "%' OR " : 總數 = i

  149.             PA2 &= "人事拆帳制薪資報表明細_仁寶.流水號 LIKE '" & AA(i) & "%' OR "

  150.         Next : PA1 = "(" & PA1.Substring(0, PA1.LastIndexOf(" OR ")) & ")" : PA2 = "(" & PA2.Substring(0, PA2.LastIndexOf(" OR ")) & ")"  ' 輸出結果

  151.         SQL2 = "人事拆帳制A碼項目清冊" : SQL_薪資彙總表_仁寶1()

  152.         da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : conn.Close()

  153.         Dgv.EditMode = DataGridViewEditMode.EditOnEnter

  154. 

  155.         Dgv.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  156.         Dgv.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  157.         Dgv.Columns("BA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  158.         Dgv.Columns("BA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(25).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  159.         Dgv.Columns("GA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  160.         Dgv.Columns("GA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  161.         Dgv.Columns("GA加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  162.         Dgv.Columns("GA加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  163.         Dgv.Columns("其他").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  164.         Dgv.Columns("其他").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  165.         Dgv.Columns("主薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  166.         Dgv.Columns("主薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  167.         Dgv.Columns("AA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  168.         Dgv.Columns("AA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  169.         Dgv.Columns("AA").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  170.         Dgv.Columns("AA").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  171.         Dgv.Columns("副薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  172.         Dgv.Columns("副薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(32).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  173.         Dgv.Columns("總薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  174.         Dgv.Columns("總薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  175.         Dgv.Columns("平日工時").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  176.         Dgv.Columns("平日工時").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  177.         Dgv.Columns("總時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  178.         Dgv.Columns("總時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  179.         Dgv.Columns("休3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  180.         Dgv.Columns("休3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  181.         Dgv.Columns("平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  182.         Dgv.Columns("平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  183.         Dgv.Columns("休0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  184.         Dgv.Columns("休0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  185.         Dgv.Columns("服務津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  186.         Dgv.Columns("服務津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  187.         Dgv.Columns("轉場津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  188.         Dgv.Columns("轉場津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  189.         Dgv.Columns("餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  190.         Dgv.Columns("餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  191.         Dgv.Columns("餘額比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(42).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  192.         Dgv.Columns("餘額比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(42).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  193.         Dgv.Columns("加班費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(43).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  194.         Dgv.Columns("加班費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(43).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  195.         Dgv.Columns("總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(44).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  196.         Dgv.Columns("總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  197.         Dgv.Columns("總服務時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(45).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  198.         Dgv.Columns("總服務時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(45).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  199.         Dgv.Columns("總轉場時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(46).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  200.         Dgv.Columns("總轉場時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(46).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  201.         Dgv.Columns("平日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(47).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  202.         Dgv.Columns("平日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(47).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  203.         Dgv.Columns("假日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(48).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  204.         Dgv.Columns("假日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(48).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  205.         Dgv.Columns("平0-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(49).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  206.         Dgv.Columns("平0-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(49).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  207.         Dgv.Columns("平9-10").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(50).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  208.         Dgv.Columns("平9-10").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(50).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  209.         Dgv.Columns("平11-12").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns("國0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  210.         Dgv.Columns("平11-12").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns("國0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  211.         Dgv.Columns(77).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(77).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  212.         Dgv.Columns(78).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(78).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  213.         Dgv.Columns(79).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(79).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  214.         Dgv.Columns(80).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(80).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  215.         Dgv.Columns(81).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(81).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  216.         Dgv.Columns(82).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(82).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  217.         Dgv.Columns(83).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(83).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  218.         Dgv.Columns(84).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(84).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  219.         Dgv.Columns(85).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(85).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  220.         Dgv.Columns(86).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(86).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  221.         Dgv.Columns(87).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(87).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  222.         Dgv.Columns(88).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(88).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  223.         Dgv.Columns(89).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(89).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  224.         Dgv.Columns(90).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(90).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  225.         Dgv.Columns(91).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(91).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  226.         Dgv.Columns(92).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(92).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  227.         Dgv.Columns(93).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(93).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  228.         Dgv.Columns(94).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(94).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  229.         Dgv.Columns(95).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(95).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  230.         Dgv.Columns(96).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(96).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  231.         Dgv.Columns(97).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(97).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  232.         Dgv.Columns(98).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(98).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  233.         Dgv.Columns(99).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(99).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  234.         Dgv.Columns(100).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(100).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  235.         Dgv.Columns(101).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(101).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  236.         Dgv.Columns(102).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(102).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  237.         Dgv.Columns(103).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(103).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  238.         Dgv.Columns("國3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  239.         Dgv.Columns("國3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  240.         Dgv.Columns("正常班平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  241.         Dgv.Columns("正常班平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  242.         Dgv.Columns("平日加班扣除額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  243.         Dgv.Columns("平日加班扣除額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  244.         Dgv.Columns("平日平均時薪/含平日加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  245.         Dgv.Columns("平日平均時薪/含平日加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  246.         Dgv.Columns("平日月薪/不含加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  247.         Dgv.Columns("平日月薪/不含加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  248.         Dgv.Columns("BA+GA+AA_總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  249.         Dgv.Columns("BA+GA+AA_總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  250.         Dgv.Columns("修正後月薪+Ａ+津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  251.         Dgv.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  252.         Dgv.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  253.         Dgv.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  254.         Dgv.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  255.         Dgv.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  256. 

  257.         Dgv.Columns("GAM1").Visible = False : Dgv.Columns("GAM2").Visible = False : Dgv.Columns("BA").Visible = False : Dgv.Columns("GA").Visible = False

  258.         Set_分頁()

  259. 

  260.         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

  261.         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

  262.         For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False

  263. 

  264.         Dgv.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose

  265.         Dgv.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose

  266.         Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose

  267.         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

  268.         For i As Integer = 0 To 總數

  269.             If 首次開啟 = False Then

  270.                 首次開啟 = True : 拆帳制薪資試算表.年份_cb.Text = Strings.Left(AA(i), 4) : 拆帳制薪資試算表.月份_cb.Text = Strings.Right(AA(i), 2)

  271.                 首次開啟 = False

  272.                 拆帳制薪資試算表.重讀1_bt.PerformClick()

  273.             End If

  274.             For j As Integer = 0 To Dgv.Rows.Count - 1

  275.                 For K As Integer = 0 To 拆帳制薪資試算表.Dgv.Rows.Count - 1

  276.                     If Dgv.Rows(j).Cells("姓名").Value.ToString = 拆帳制薪資試算表.Dgv.Rows(K).Cells("姓名").Value.ToString Then

  277.                         For L As Integer = 1 To Dgv.Columns.Count - 1

  278.                             If Strings.Right(拆帳制薪資試算表.Dgv.Rows(K).Cells(L).Value.ToString, 1) = "%" Then

  279.                                 Dgv.Rows(j).Cells(L).Value = ""

  280.                             Else

  281.                                 Dgv.Rows(j).Cells(L).Value = CDbl(Dgv.Rows(j).Cells(L).Value.ToString) + CDbl(拆帳制薪資試算表.Dgv.Rows(K).Cells(L).Value.ToString)

  282.                             End If

  283.                         Next

  284.                     End If

  285.                 Next

  286.             Next

  287.         Next

  288.         Set_薪資計算()

  289.     End Sub

  290.     Private Sub Set_分頁()

  291.         If 主表_ch.Checked = True And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And

  292.             薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then

  293.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  294.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  295.             Dgv.Columns("AA11").Visible = False

  296. 

  297.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  298.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  299.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  300.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  301. 

  302.             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = True

  303.             Dgv.Columns("GA加給").Visible = True : Dgv.Columns("其他").Visible = True : Dgv.Columns("主薪").Visible = True

  304.             Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True

  305.             Dgv.Columns("總薪").Visible = True : Dgv.Columns("平日工時").Visible = True : Dgv.Columns("平日平均時薪/含平日加班").Visible = True

  306.             Dgv.Columns("平日加班扣除額").Visible = True : Dgv.Columns("平日月薪/不含加班").Visible = True : Dgv.Columns("正常班平均時薪").Visible = True

  307.             Dgv.Columns("服務津貼").Visible = True : Dgv.Columns("轉場津貼").Visible = True : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True

  308.             Dgv.Columns("加班費計算時薪標準").Visible = True : Dgv.Columns("加班費").Visible = True : Dgv.Columns("總薪資").Visible = True

  309. 

  310.             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

  311.             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

  312.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  313. 

  314.             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

  315.             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

  316.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  317. 

  318.             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

  319.             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

  320.             Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

  321. 

  322.             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

  323.             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

  324.             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

  325. 

  326.             Dgv.Columns(50).Visible = False

  327. 

  328.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False

  329.             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False

  330.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = True And 減項總計_ch.Checked = False And 其它_ch.Checked = False And

  331.             薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then

  332.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  333.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  334.             Dgv.Columns("AA11").Visible = False

  335. 

  336.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  337.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  338.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  339.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  340. 

  341.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  342.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  343.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  344.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  345.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  346.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  347.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  348. 

  349.             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

  350.             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

  351.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  352. 

  353.             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

  354.             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

  355.             Dgv.Columns(47).Visible = True : Dgv.Columns(48).Visible = True : Dgv.Columns(49).Visible = True

  356. 

  357.             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

  358.             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

  359.             Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

  360. 

  361.             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

  362.             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

  363.             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

  364. 

  365.             Dgv.Columns(50).Visible = True

  366. 

  367.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False

  368.             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False

  369.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = True And 其它_ch.Checked = False And

  370.             薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then

  371.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  372.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  373.             Dgv.Columns("AA11").Visible = False

  374. 

  375.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  376.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  377.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  378.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  379. 

  380.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  381.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  382.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  383.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  384.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  385.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  386.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  387. 

  388.             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

  389.             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

  390.             Dgv.Columns(34).Visible = True : Dgv.Columns(35).Visible = True : Dgv.Columns(36).Visible = True

  391. 

  392.             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

  393.             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

  394.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  395. 

  396.             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

  397.             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

  398.             Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

  399. 

  400.             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

  401.             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

  402.             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

  403. 

  404.             Dgv.Columns(50).Visible = True

  405. 

  406.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False

  407.             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False

  408.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = True And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And

  409.             薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then

  410.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  411.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  412.             Dgv.Columns("AA11").Visible = False

  413. 

  414.             Dgv.Columns("平日轉場").Visible = True : Dgv.Columns("平0-8").Visible = True : Dgv.Columns("平9-10").Visible = True

  415.             Dgv.Columns("平11-12").Visible = True : Dgv.Columns("國0-2").Visible = True : Dgv.Columns("國3-8").Visible = True

  416.             Dgv.Columns("休0-2").Visible = True : Dgv.Columns("休3-8").Visible = True : Dgv.Columns("假日轉場").Visible = True

  417.             Dgv.Columns("總服務時數").Visible = True : Dgv.Columns("總轉場時數").Visible = True

  418. 

  419.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  420.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  421.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  422.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  423.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  424.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  425.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  426. 

  427.             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

  428.             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

  429.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  430. 

  431.             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

  432.             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

  433.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  434. 

  435.             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

  436.             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

  437.             Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

  438. 

  439.             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

  440.             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

  441.             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

  442. 

  443.             Dgv.Columns(50).Visible = False

  444. 

  445.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False

  446.             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = True

  447.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True And

  448.             薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then

  449.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  450.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  451.             Dgv.Columns("AA11").Visible = False

  452. 

  453.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  454.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  455.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  456.             Dgv.Columns("總服務時數").Visible = True : Dgv.Columns("總轉場時數").Visible = True

  457. 

  458.             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = False

  459.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  460.             Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False

  461.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  462.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  463.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True

  464.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = True : Dgv.Columns("總薪資").Visible = True

  465. 

  466.             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

  467.             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

  468.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  469. 

  470.             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

  471.             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

  472.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  473. 

  474.             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

  475.             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

  476.             Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

  477. 

  478.             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

  479.             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

  480.             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

  481. 

  482.             Dgv.Columns(50).Visible = False

  483. 

  484.             Dgv.Columns("總時數").Visible = True : Dgv.Columns("平均時薪").Visible = True : Dgv.Columns("BA+GA+AA_總額").Visible = True : Dgv.Columns("餘額").Visible = True

  485.             Dgv.Columns("餘額比").Visible = True : Dgv.Columns("服務轉場比").Visible = False

  486.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And

  487.             薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then

  488.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  489.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  490.             Dgv.Columns("AA11").Visible = False

  491. 

  492.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  493.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  494.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  495.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  496. 

  497.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  498.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  499.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  500.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  501.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  502.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  503.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  504. 

  505.             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

  506.             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

  507.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  508. 

  509.             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

  510.             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

  511.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  512. 

  513.             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

  514.             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

  515.             Dgv.Columns(87).Visible = True : Dgv.Columns(88).Visible = True : Dgv.Columns(89).Visible = True : Dgv.Columns(90).Visible = True

  516. 

  517.             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

  518.             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

  519.             Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False

  520. 

  521.             Dgv.Columns(50).Visible = False

  522. 

  523.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False

  524.             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False

  525.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And

  526.               薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = True Then

  527.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  528.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  529.             Dgv.Columns("AA11").Visible = False

  530. 

  531.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  532.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  533.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  534.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  535. 

  536.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  537.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  538.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  539.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  540.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  541.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  542.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  543. 

  544.             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

  545.             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

  546.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  547. 

  548.             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

  549.             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

  550.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  551. 

  552.             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

  553.             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

  554.             Dgv.Columns(87).Visible = False : Dgv.Columns(88).Visible = False : Dgv.Columns(89).Visible = False : Dgv.Columns(90).Visible = False

  555. 

  556.             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

  557.             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

  558.             Dgv.Columns(101).Visible = True : Dgv.Columns(102).Visible = True : Dgv.Columns(103).Visible = True

  559. 

  560.             Dgv.Columns(50).Visible = False

  561. 

  562.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False

  563.             Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False

  564.         End If

  565.         Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False : Dgv.Columns("總薪").Visible = False

  566.         Dgv.Columns("正常班平均時薪").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("平日工時").Visible = False

  567.         Dgv.Columns("平日平均時薪/含平日加班").Visible = False : Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False

  568.         Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv.Columns("AA07").Visible = False : Dgv.Columns("AA09").Visible = False

  569.     End Sub

  570.     Private Sub Set_薪資計算()

  571.         Dim 分子(8), 分母(8) As Double

  572.         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"

  573.         加班扣除_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"

  574.         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"

  575.         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"

  576.         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"

  577.         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"

  578.         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"

  579.         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"

  580.         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"

  581.         E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0"

  582.         For i As Integer = 0 To Dgv.Rows.Count - 1

  583.             Dgv.Rows(i).Cells("主薪").Value = "0" : Dgv.Rows(i).Cells("AA比例").Value = "0.5" : Dgv.Rows(i).Cells("總時數").Value = "0"

  584.             Dgv.Rows(i).Cells("平均時薪").Value = "0" : Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = "0" : Dgv.Rows(i).Cells("餘額").Value = "0"

  585.             Dgv.Rows(i).Cells("餘額比").Value = "0" : Dgv.Rows(i).Cells("總轉場時數").Value = "0" : Dgv.Rows(i).Cells("總服務時數").Value = "0"

  586.             Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv.Rows(i).Cells("總薪資").Value = "0"

  587.             If IsDBNull(Dgv.Rows(i).Cells("BA").Value) = True Then : Dgv.Rows(i).Cells("BA").Value = 0 : End If

  588.             If IsDBNull(Dgv.Rows(i).Cells("GA").Value) = True Then : Dgv.Rows(i).Cells("GA").Value = 0 : End If

  589.             If IsDBNull(Dgv.Rows(i).Cells("GAM1").Value) = True Then : Dgv.Rows(i).Cells("GAM1").Value = 0 : End If

  590.             If IsDBNull(Dgv.Rows(i).Cells("GAM2").Value) = True Then : Dgv.Rows(i).Cells("GAM2").Value = 0 : End If

  591.             If IsDBNull(Dgv.Rows(i).Cells("AA03").Value) = True Then : Dgv.Rows(i).Cells("AA03").Value = 0 : End If

  592.             If IsDBNull(Dgv.Rows(i).Cells("AA04").Value) = True Then : Dgv.Rows(i).Cells("AA04").Value = 0 : End If

  593.             If IsDBNull(Dgv.Rows(i).Cells("AA05").Value) = True Then : Dgv.Rows(i).Cells("AA05").Value = 0 : End If

  594.             If IsDBNull(Dgv.Rows(i).Cells("AA06").Value) = True Then : Dgv.Rows(i).Cells("AA06").Value = 0 : End If

  595.             If IsDBNull(Dgv.Rows(i).Cells("AA08").Value) = True Then : Dgv.Rows(i).Cells("AA08").Value = 0 : End If

  596.             If IsDBNull(Dgv.Rows(i).Cells("AA10").Value) = True Then : Dgv.Rows(i).Cells("AA10").Value = 0 : End If

  597.             If IsDBNull(Dgv.Rows(i).Cells("AA11").Value) = True Then : Dgv.Rows(i).Cells("AA11").Value = 0 : End If

  598.             If IsDBNull(Dgv.Rows(i).Cells("AA07").Value) = True Then : Dgv.Rows(i).Cells("AA07").Value = 0 : End If

  599.             If IsDBNull(Dgv.Rows(i).Cells("AA09").Value) = True Then : Dgv.Rows(i).Cells("AA09").Value = 0 : End If

  600.             'Dgv.Rows(i).Cells("GA加給").Value = CDbl(Dgv.Rows(i).Cells("GAM1").Value.ToString) * CDbl(Dgv.Rows(i).Cells("GAM2").Value.ToString)

  601.             Dgv.Rows(i).Cells("主薪").Value = CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString) +

  602.                                                    CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString) + CDbl(Dgv.Rows(i).Cells("其他").Value.ToString) + CDbl(Dgv.Rows(i).Cells(89).Value.ToString)

  603.             Dgv.Rows(i).Cells("平日月薪/不含加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) - CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString)

  604.             Dgv.Rows(i).Cells("總服務時數").Value = CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) +

  605.                                                          CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) + CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) +

  606.                                                          CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) +

  607.                                                          CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString)

  608.             Dgv.Rows(i).Cells("總轉場時數").Value = CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) + CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString)

  609.             Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) +

  610.                                                                    CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString)

  611.             Dgv.Rows(i).Cells("副薪").Value = CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString)

  612.             Dgv.Rows(i).Cells("總薪").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) + CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString)

  613.             Dgv.Rows(i).Cells("總薪資").Value = CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString)

  614.             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) +

  615.                                           CDbl(Dgv.Rows(i).Cells(27).Value) + CDbl(Dgv.Rows(i).Cells(28).Value) + CDbl(Dgv.Rows(i).Cells(29).Value) +

  616.                                           CDbl(Dgv.Rows(i).Cells(30).Value) + CDbl(Dgv.Rows(i).Cells(31).Value) + CDbl(Dgv.Rows(i).Cells(32).Value) +

  617.                                           CDbl(Dgv.Rows(i).Cells(33).Value) + CDbl(Dgv.Rows(i).Cells(34).Value) + CDbl(Dgv.Rows(i).Cells(35).Value)

  618.             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) +

  619.                                           CDbl(Dgv.Rows(i).Cells(40).Value) + CDbl(Dgv.Rows(i).Cells(41).Value) + CDbl(Dgv.Rows(i).Cells(42).Value) +

  620.                                           CDbl(Dgv.Rows(i).Cells(43).Value) + CDbl(Dgv.Rows(i).Cells(44).Value) + CDbl(Dgv.Rows(i).Cells(45).Value) +

  621.                                           CDbl(Dgv.Rows(i).Cells(46).Value) + CDbl(Dgv.Rows(i).Cells(47).Value) + CDbl(Dgv.Rows(i).Cells(48).Value)

  622.             Dgv.Rows(i).Cells("總時數").Value = CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString)

  623.             Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) +

  624.                                                    CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) +

  625.                                                    CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) +

  626.                                                    CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString) +

  627.                                                    CDbl(Dgv.Rows(i).Cells("AA07").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA09").Value.ToString)) +

  628.                                                    CDbl(Dgv.Rows(i).Cells("GA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString)

  629.             Dgv.Rows(i).Cells("餘額").Value = CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) -

  630.                                               CDbl(Dgv.Rows(i).Cells(103).Value.ToString)

  631.             Dgv.Rows(i).Cells("餘額比").Value = CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)

  632. 

  633.             BA正_tb.Text = Strings.Format(CDbl(BA正_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  634.             BA正1_tb.Text = Strings.Format(CDbl(BA正1_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  635.             GA正_tb.Text = Strings.Format(CDbl(GA正_tb.Text) + CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")

  636.             GA加_tb.Text = Strings.Format(CDbl(GA加_tb.Text) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString), "#,##0.0")

  637.             其他_tb.Text = Strings.Format(CDbl(其他_tb.Text) + CDbl(Dgv.Rows(i).Cells("其他").Value.ToString), "#,##0.0")

  638.             主薪_tb.Text = Strings.Format(CDbl(主薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")

  639.             AA_tb.Text = Strings.Format(CDbl(AA_tb.Text) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  640.             AA1_tb.Text = Strings.Format(CDbl(AA1_tb.Text) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  641.             副薪_tb.Text = Strings.Format(CDbl(副薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")

  642.             總薪_tb.Text = Strings.Format(CDbl(總薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")

  643.             加班扣除_tb.Text = Strings.Format(CDbl(加班扣除_tb.Text) + CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")

  644.             平日月薪_tb.Text = Strings.Format(CDbl(平日月薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

  645.             服務_tb.Text = Strings.Format(CDbl(服務_tb.Text) + CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")

  646.             轉場_tb.Text = Strings.Format(CDbl(轉場_tb.Text) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")

  647.             修正月_tb.Text = Strings.Format(CDbl(修正月_tb.Text) + CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  648.             修正月1_tb.Text = Strings.Format(CDbl(修正月1_tb.Text) + CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  649.             加班費_tb.Text = Strings.Format(CDbl(加班費_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  650.             加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  651.             總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  652.             總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  653.             A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv.Rows(i).Cells(24).Value.ToString), "#,##0.0")

  654.             A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv.Rows(i).Cells(25).Value.ToString), "#,##0.0")

  655.             A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv.Rows(i).Cells(26).Value.ToString), "#,##0.0")

  656.             A04_tb.Text = Strings.Format(CDbl(A04_tb.Text) + CDbl(Dgv.Rows(i).Cells(27).Value.ToString), "#,##0.0")

  657.             A05_tb.Text = Strings.Format(CDbl(A05_tb.Text) + CDbl(Dgv.Rows(i).Cells(28).Value.ToString), "#,##0.0")

  658.             A06_tb.Text = Strings.Format(CDbl(A06_tb.Text) + CDbl(Dgv.Rows(i).Cells(29).Value.ToString), "#,##0.0")

  659.             A07_tb.Text = Strings.Format(CDbl(A07_tb.Text) + CDbl(Dgv.Rows(i).Cells(30).Value.ToString), "#,##0.0")

  660.             A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv.Rows(i).Cells(31).Value.ToString), "#,##0.0")

  661.             A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv.Rows(i).Cells(32).Value.ToString), "#,##0.0")

  662.             A10_tb.Text = Strings.Format(CDbl(A10_tb.Text) + CDbl(Dgv.Rows(i).Cells(33).Value.ToString), "#,##0.0")

  663.             A11_tb.Text = Strings.Format(CDbl(A11_tb.Text) + CDbl(Dgv.Rows(i).Cells(34).Value.ToString), "#,##0.0")

  664.             A12_tb.Text = Strings.Format(CDbl(A12_tb.Text) + CDbl(Dgv.Rows(i).Cells(35).Value.ToString), "#,##0.0")

  665.             減項總計_tb.Text = Strings.Format(CDbl(減項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(36).Value.ToString), "#,##0.0")

  666.             B01_tb.Text = Strings.Format(CDbl(B01_tb.Text) + CDbl(Dgv.Rows(i).Cells(37).Value.ToString), "#,##0.0")

  667.             B02_tb.Text = Strings.Format(CDbl(B02_tb.Text) + CDbl(Dgv.Rows(i).Cells(38).Value.ToString), "#,##0.0")

  668.             B03_tb.Text = Strings.Format(CDbl(B03_tb.Text) + CDbl(Dgv.Rows(i).Cells(39).Value.ToString), "#,##0.0")

  669.             B04_tb.Text = Strings.Format(CDbl(B04_tb.Text) + CDbl(Dgv.Rows(i).Cells(40).Value.ToString), "#,##0.0")

  670.             B05_tb.Text = Strings.Format(CDbl(B05_tb.Text) + CDbl(Dgv.Rows(i).Cells(41).Value.ToString), "#,##0.0")

  671.             B06_tb.Text = Strings.Format(CDbl(B06_tb.Text) + CDbl(Dgv.Rows(i).Cells(42).Value.ToString), "#,##0.0")

  672.             B07_tb.Text = Strings.Format(CDbl(B07_tb.Text) + CDbl(Dgv.Rows(i).Cells(43).Value.ToString), "#,##0.0")

  673.             B08_tb.Text = Strings.Format(CDbl(B08_tb.Text) + CDbl(Dgv.Rows(i).Cells(44).Value.ToString), "#,##0.0")

  674.             B09_tb.Text = Strings.Format(CDbl(B09_tb.Text) + CDbl(Dgv.Rows(i).Cells(45).Value.ToString), "#,##0.0")

  675.             B10_tb.Text = Strings.Format(CDbl(B10_tb.Text) + CDbl(Dgv.Rows(i).Cells(46).Value.ToString), "#,##0.0")

  676.             B11_tb.Text = Strings.Format(CDbl(B11_tb.Text) + CDbl(Dgv.Rows(i).Cells(47).Value.ToString), "#,##0.0")

  677.             B12_tb.Text = Strings.Format(CDbl(B12_tb.Text) + CDbl(Dgv.Rows(i).Cells(48).Value.ToString), "#,##0.0")

  678.             加項總計_tb.Text = Strings.Format(CDbl(加項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(49).Value.ToString), "#,##0.0")

  679.             D01_tb.Text = Strings.Format(CDbl(D01_tb.Text) + CDbl(Dgv.Rows(i).Cells(77).Value.ToString), "#,##0.0")

  680.             D02_tb.Text = Strings.Format(CDbl(D02_tb.Text) + CDbl(Dgv.Rows(i).Cells(78).Value.ToString), "#,##0.0")

  681.             D03_tb.Text = Strings.Format(CDbl(D03_tb.Text) + CDbl(Dgv.Rows(i).Cells(79).Value.ToString), "#,##0.0")

  682.             D04_tb.Text = Strings.Format(CDbl(D04_tb.Text) + CDbl(Dgv.Rows(i).Cells(80).Value.ToString), "#,##0.0")

  683.             D05_tb.Text = Strings.Format(CDbl(D05_tb.Text) + CDbl(Dgv.Rows(i).Cells(81).Value.ToString), "#,##0.0")

  684.             D06_tb.Text = Strings.Format(CDbl(D06_tb.Text) + CDbl(Dgv.Rows(i).Cells(82).Value.ToString), "#,##0.0")

  685.             D07_tb.Text = Strings.Format(CDbl(D07_tb.Text) + CDbl(Dgv.Rows(i).Cells(83).Value.ToString), "#,##0.0")

  686.             D08_tb.Text = Strings.Format(CDbl(D08_tb.Text) + CDbl(Dgv.Rows(i).Cells(84).Value.ToString), "#,##0.0")

  687.             D09_tb.Text = Strings.Format(CDbl(D09_tb.Text) + CDbl(Dgv.Rows(i).Cells(85).Value.ToString), "#,##0.0")

  688.             D10_tb.Text = Strings.Format(CDbl(D10_tb.Text) + CDbl(Dgv.Rows(i).Cells(86).Value.ToString), "#,##0.0")

  689.             D11_tb.Text = Strings.Format(CDbl(D11_tb.Text) + CDbl(Dgv.Rows(i).Cells(87).Value.ToString), "#,##0.0")

  690.             D12_tb.Text = Strings.Format(CDbl(D12_tb.Text) + CDbl(Dgv.Rows(i).Cells(88).Value.ToString), "#,##0.0")

  691.             薪資加項總計_tb.Text = Strings.Format(CDbl(薪資加項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(89).Value.ToString), "#,##0.0")

  692.             E01_tb.Text = Strings.Format(CDbl(E01_tb.Text) + CDbl(Dgv.Rows(i).Cells(91).Value.ToString), "#,##0.0")

  693.             E02_tb.Text = Strings.Format(CDbl(E02_tb.Text) + CDbl(Dgv.Rows(i).Cells(92).Value.ToString), "#,##0.0")

  694.             E03_tb.Text = Strings.Format(CDbl(E03_tb.Text) + CDbl(Dgv.Rows(i).Cells(93).Value.ToString), "#,##0.0")

  695.             E04_tb.Text = Strings.Format(CDbl(E04_tb.Text) + CDbl(Dgv.Rows(i).Cells(94).Value.ToString), "#,##0.0")

  696.             E05_tb.Text = Strings.Format(CDbl(E05_tb.Text) + CDbl(Dgv.Rows(i).Cells(95).Value.ToString), "#,##0.0")

  697.             E06_tb.Text = Strings.Format(CDbl(E06_tb.Text) + CDbl(Dgv.Rows(i).Cells(96).Value.ToString), "#,##0.0")

  698.             E07_tb.Text = Strings.Format(CDbl(E07_tb.Text) + CDbl(Dgv.Rows(i).Cells(97).Value.ToString), "#,##0.0")

  699.             E08_tb.Text = Strings.Format(CDbl(E08_tb.Text) + CDbl(Dgv.Rows(i).Cells(98).Value.ToString), "#,##0.0")

  700.             E09_tb.Text = Strings.Format(CDbl(E09_tb.Text) + CDbl(Dgv.Rows(i).Cells(99).Value.ToString), "#,##0.0")

  701.             E10_tb.Text = Strings.Format(CDbl(E10_tb.Text) + CDbl(Dgv.Rows(i).Cells(100).Value.ToString), "#,##0.0")

  702.             E11_tb.Text = Strings.Format(CDbl(E11_tb.Text) + CDbl(Dgv.Rows(i).Cells(101).Value.ToString), "#,##0.0")

  703.             E12_tb.Text = Strings.Format(CDbl(E12_tb.Text) + CDbl(Dgv.Rows(i).Cells(102).Value.ToString), "#,##0.0")

  704.             公司負擔總計_tb.Text = Strings.Format(CDbl(公司負擔總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(103).Value.ToString), "#,##0.0")

  705.             C01_tb.Text = Strings.Format(CDbl(C01_tb.Text) + CDbl(Dgv.Rows(i).Cells(50).Value.ToString), "#,##0.0")

  706.             C01_1_tb.Text = Strings.Format(CDbl(C01_1_tb.Text) + CDbl(Dgv.Rows(i).Cells(50).Value.ToString), "#,##0.0")

  707.             總時數_tb.Text = Strings.Format(CDbl(總時數_tb.Text) + CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString), "#,##0.0")

  708.             平均時薪_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) / CDbl(總時數_tb.Text), "#,##0.0")

  709.             BAAA加_tb.Text = Strings.Format(CDbl(BAAA加_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString), "#,##0.0")

  710.             餘額_tb.Text = Strings.Format(CDbl(餘額_tb.Text) + CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")

  711.             餘額比_tb.Text = Strings.Format((CDbl(餘額_tb.Text) / CDbl(BAAA加_tb.Text) * 100), "#,##0.0") & " %"

  712. 

  713.             Dgv.Rows(i).Cells("BA正常").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  714.             Dgv.Rows(i).Cells("GA正常").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")

  715.             Dgv.Rows(i).Cells("主薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")

  716.             Dgv.Rows(i).Cells("AA").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  717.             Dgv.Rows(i).Cells("加班費").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  718.             Dgv.Rows(i).Cells("副薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")

  719.             Dgv.Rows(i).Cells("總薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")

  720.             Dgv.Rows(i).Cells("平日工時").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString), "##0.00")

  721.             Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value.ToString), "#,##0.0")

  722.             Dgv.Rows(i).Cells("平日加班扣除額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")

  723.             Dgv.Rows(i).Cells("平日月薪/不含加班").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

  724.             Dgv.Rows(i).Cells("正常班平均時薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("正常班平均時薪").Value.ToString), "##0.00")

  725.             Dgv.Rows(i).Cells("總服務時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString), "##0.00")

  726.             Dgv.Rows(i).Cells("總轉場時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString), "##0.00")

  727.             Dgv.Rows(i).Cells("服務津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")

  728.             Dgv.Rows(i).Cells("轉場津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")

  729.             Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  730.             Dgv.Rows(i).Cells("加班費計算時薪標準").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")

  731.             Dgv.Rows(i).Cells("總薪資").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  732.             Dgv.Rows(i).Cells("總時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString), "##0.00")

  733.             Dgv.Rows(i).Cells("平均時薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平均時薪").Value.ToString), "#,##0.0")

  734.             Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString), "#,##0.0")

  735.             Dgv.Rows(i).Cells("餘額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")

  736.             Dgv.Rows(i).Cells("餘額比").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("餘額比").Value.ToString) * 100, "#,##0.0") & " %"

  737.             Dgv.Rows(i).Cells("AA比例").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString) * 100, "#,##0.0") & " %"

  738.             Dgv.Rows(i).Cells("服務轉場比").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString) /

  739.                                                                   CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) * 100, "#,##0.0") & " %"

  740.             Dgv.Rows(i).Cells("平日轉場").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString), "#,##0.0")

  741.             Dgv.Rows(i).Cells("假日轉場").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString), "#,##0.0")

  742.             Dgv.Rows(i).Cells("平0-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString), "#,##0.0")

  743.             Dgv.Rows(i).Cells("平9-10").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString), "#,##0.0")

  744.             Dgv.Rows(i).Cells("GA加給").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString), "#,##0.0")

  745.             Dgv.Rows(i).Cells("平11-12").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString), "#,##0.0")

  746.             Dgv.Rows(i).Cells("國0-2").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString), "#,##0.0")

  747.             Dgv.Rows(i).Cells("國3-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString), "#,##0.0")

  748.             Dgv.Rows(i).Cells("休0-2").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString), "#,##0.0")

  749.             Dgv.Rows(i).Cells("其他").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("其他").Value.ToString), "#,##0.0")

  750.             Dgv.Rows(i).Cells("休3-8").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString), "#,##0.0")

  751.             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

  752. 

  753.             If CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) = 0 Then : Else : 分母(0) += 1 : 分子(0) += CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) : End If

  754.             If CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString) = 0 Then : Else : 分母(1) += 1 : 分子(1) += CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString) : End If

  755.             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

  756.             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

  757.             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

  758.             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

  759.             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

  760.             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

  761.             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

  762.         Next

  763.         If 分子(0) = 0 Then : 平均1_tb.Text = "0.0 [ " & 分母(0) & "人 ]" : Else : 平均1_tb.Text = Strings.Format(分子(0) / 分母(0), "#,##0.0") & " [ " & 分母(0) & "人 ]" : End If

  764.         If 分子(1) = 0 Then : 平均2_tb.Text = "0.0 [ " & 分母(1) & "人 ]" : Else : 平均2_tb.Text = Strings.Format(分子(1) / 分母(1), "#,##0.0") & " [ " & 分母(1) & "人 ]" : End If

  765.         If 分子(2) = 0 Then : 平均3_tb.Text = "0.0 [ " & 分母(2) & "人 ]" : Else : 平均3_tb.Text = Strings.Format(分子(2) / 分母(2), "#,##0.0") & " [ " & 分母(2) & "人 ]" : End If

  766.         If 分子(3) = 0 Then : 平均4_tb.Text = "0.0 [ " & 分母(3) & "人 ]" : Else : 平均4_tb.Text = Strings.Format(分子(3) / 分母(3), "#,##0.0") & " [ " & 分母(3) & "人 ]" : End If

  767.         If 分子(4) = 0 Then : 平均5_tb.Text = "0.0 [ " & 分母(4) & "人 ]" : Else : 平均5_tb.Text = Strings.Format(分子(4) / 分母(4), "#,##0.0") & " [ " & 分母(4) & "人 ]" : End If

  768.         If 分子(5) = 0 Then : 平均6_tb.Text = "0.0 [ " & 分母(5) & "人 ]" : Else : 平均6_tb.Text = Strings.Format(分子(5) / 分母(5), "#,##0.0") & " [ " & 分母(5) & "人 ]" : End If

  769.         If 分子(6) = 0 Then : 平均7_tb.Text = "0.0 [ " & 分母(6) & "人 ]" : Else : 平均7_tb.Text = Strings.Format(分子(6) / 分母(6), "#,##0.0") & " [ " & 分母(6) & "人 ]" : End If

  770.         If 分子(7) = 0 Then : 平均8_tb.Text = "0.0 [ " & 分母(7) & "人 ]" : Else : 平均8_tb.Text = Strings.Format(分子(7) / 分母(7), "#,##0.0") & " [ " & 分母(7) & "人 ]" : End If

  771.         If 分子(8) = 0 Then : 平均9_tb.Text = "0.0 [ " & 分母(8) & "人 ]" : Else : 平均9_tb.Text = Strings.Format(分子(8) / 分母(8), "#,##0.0") & " [ " & 分母(8) & "人 ]" : End If

  772.     End Sub

  773.     Private Sub 拆帳制薪資會總表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  774.         Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  775.         Panel1.Visible = False : Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront() : 其它_ch.Visible = CC(61)

  776.         服務津貼_cb.Visible = CC(61) : 轉場津貼_cb.Visible = CC(61) : 服務津貼_cb.Checked = CC(15) : 轉場津貼_cb.Checked = CC(16)

  777.         Dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  778.         Dgv1.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  779.         階級津貼_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  780.         BA比_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  781.         碼別_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  782.         表頭_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  783.     End Sub

  784.     Private Sub 拆帳制薪資會總表_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing

  785.         拆帳制薪資試算表.Close()

  786.     End Sub

  787.     Private Sub 拆帳制薪資試算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  788.         SQL_讀取公司名稱() : If dr.Read() Then : 公司名_lb.Text = dr("公司名稱") & " 薪資條" : End If

  789.         Set_碼別() : Set_表頭()

  790.         SQL_營運成本收支單對帳表_查詢最後一筆年份清單()

  791.         年份_cb.Items.Clear() : 年份_cb.Items.Add("") : 年份1_cb.Items.Clear() : 年份1_cb.Items.Add("")

  792.         While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : 年份1_cb.Items.Add(dr("年份")) : End While : conn.Close()

  793.         SQL_資料日期01()

  794.         If dr.Read Then

  795.             年份_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份_cb.Text = Strings.Right(dr("流水號").ToString, 2)

  796.             年份1_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份1_cb.Text = Strings.Right(dr("流水號").ToString, 2)

  797.         End If

  798. 

  799.         If 拆帳制考勤文件導入.年份_cb.Text <> "" Then : 年份_cb.Text = 拆帳制考勤文件導入.年份_cb.Text

  800.         ElseIf 年份_cb.Text = "" Then : 年份_cb.Text = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4) : End If

  801.         If 拆帳制考勤文件導入.月份_cb.Text <> "" Then : 月份_cb.Text = 拆帳制考勤文件導入.月份_cb.Text

  802.         ElseIf 月份_cb.Text = "" Then : 月份_cb.Text = Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) : End If

  803.         分流計算.Enabled = True

  804.     End Sub

  805.     Private Sub 主表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主表_ch.Click

  806.         主表_ch.Checked = True : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False

  807.         其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False : 主表_P.BringToFront() : Set_分頁()

  808.     End Sub

  809.     Private Sub 薪資加項_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 薪資加項_ch.Click

  810.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False

  811.         其它_ch.Checked = False : 薪資加項_ch.Checked = True : 公司負擔成本_ch.Checked = False : 薪資加項_P.BringToFront() : Set_分頁()

  812.     End Sub

  813.     Private Sub 時數表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 時數表_ch.Click

  814.         主表_ch.Checked = False : 時數表_ch.Checked = True : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False

  815.         其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False : 時數表_P.BringToFront() : Set_分頁()

  816.     End Sub

  817.     Private Sub 加項總計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 加項總計_ch.Click

  818.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = True : 減項總計_ch.Checked = False

  819.         其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False : 加項總計_P.BringToFront() : Set_分頁()

  820.     End Sub

  821.     Private Sub 減項總計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 減項總計_ch.Click

  822.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = True

  823.         其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False : 減項總計_P.BringToFront() : Set_分頁()

  824.     End Sub

  825.     Private Sub 其它_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 其它_ch.Click

  826.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False

  827.         其它_ch.Checked = True : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = False : 其它_P.BringToFront() : Set_分頁()

  828.     End Sub

  829.     Private Sub 公司負擔成本_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 公司負擔成本_ch.Click

  830.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False

  831.         其它_ch.Checked = False : 薪資加項_ch.Checked = False : 公司負擔成本_ch.Checked = True : 公司負擔_P.BringToFront() : Set_分頁()

  832.     End Sub

  833.     Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click

  834.         首次開啟 = False : Set_服務人員()

  835.     End Sub

  836. End Class