GF-ERP-SYS
/
GF00-ERP-SYS-LEEHSIEHJUI
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
8 Revīzijas
1 Atzars
Koks: c8b3d0a8a3
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no 'c8b3d0a8a3'
${ noResults }
GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/01.人事系統管理/拆帳制薪資會總表.vb

拆帳制薪資會總表.vb 110KB
Vēsture Neapstrādāts

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908 
  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.         Dgv.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  257.         Dgv.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  258.         Dgv.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  259.         Dgv.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  260.         Dgv.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  261.         Dgv.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  262.         Dgv.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  263.         Dgv.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  264.         Dgv.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  265.         Dgv.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  266.         Dgv.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  267.         Dgv.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  268.         Dgv.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  269.         Dgv.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  270.         Dgv.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  271.         Dgv.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  272.         Dgv.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  273.         Dgv.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  274.         Dgv.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  275.         Dgv.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  276.         Dgv.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  277.         Dgv.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  278.         Dgv.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  279.         Dgv.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  280.         Dgv.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  281.         Dgv.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  282. 

  283. 

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

  285.         Set_分頁()

  286. 

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

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

  289.         For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv.Columns(i).ReadOnly = True : Next

  290.         Dgv.Columns("服務轉場比").ReadOnly = False : Dgv.Columns("總服務時數").ReadOnly = False : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False

  291.         Dgv.Columns("總轉場時數").ReadOnly = False : Dgv.Columns("公司負擔總計").ReadOnly = True : Dgv.Columns("薪資加項總計").ReadOnly = True

  292.         Dgv.Columns("總服務時數").ReadOnly = True : Dgv.Columns("總轉場時數").ReadOnly = True : Dgv.Columns("服務轉場比").ReadOnly = True : Dgv.Columns("實際總薪資").ReadOnly = True

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

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

  295.         Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose

  296. 

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

  298.         For i As Integer = 0 To 總數

  299.             If 首次開啟 = False Then

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

  301.                 首次開啟 = False

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

  303.             End If

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

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

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

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

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

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

  310.                             Else

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

  312.                             End If

  313.                         Next

  314.                     End If

  315.                 Next

  316.             Next

  317.         Next

  318.         Set_薪資計算()

  319.     End Sub

  320.     Private Sub Set_分頁()

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

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

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

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

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

  326. 

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

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

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

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

  331. 

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

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

  334.             Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True : Dgv.Columns("實際總薪資").Visible = True

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

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

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

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

  339. 

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

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

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

  343. 

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

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

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

  347. 

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

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

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

  351. 

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

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

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

  355. 

  356.             Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False

  357.             Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False

  358.             Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

  359. 

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

  361. 

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

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

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

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

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

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

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

  369. 

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

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

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

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

  374. 

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

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

  377.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False

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

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

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

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

  382. 

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

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

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

  386. 

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

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

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

  390. 

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

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

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

  394. 

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

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

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

  398. 

  399.             Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False

  400.             Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False

  401.             Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

  402. 

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

  404. 

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

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

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

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

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

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

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

  412. 

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

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

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

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

  417. 

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

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

  420.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False

  421.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").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. 

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

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

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

  429. 

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

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

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

  433. 

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

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

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

  437. 

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

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

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

  441. 

  442.             Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False

  443.             Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False

  444.             Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

  445. 

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

  447. 

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

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

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

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

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

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

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

  455. 

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

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

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

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

  460. 

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

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

  463.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False

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

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

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

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

  468. 

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

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

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

  472. 

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

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

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

  476. 

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

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

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

  480. 

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

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

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

  484. 

  485.             Dgv.Columns(106).Visible = True : Dgv.Columns(107).Visible = True : Dgv.Columns(108).Visible = True : Dgv.Columns(109).Visible = True : Dgv.Columns(110).Visible = True

  486.             Dgv.Columns(111).Visible = True : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False

  487.             Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

  488. 

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

  490. 

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

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

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

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

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

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

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

  498. 

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

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

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

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

  503. 

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

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

  506.             Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = True

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

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

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

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

  511. 

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

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

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

  515. 

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

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

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

  519. 

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

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

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

  523. 

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

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

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

  527. 

  528.             Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False

  529.             Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False

  530.             Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

  531. 

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

  533. 

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

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

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

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

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

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

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

  541. 

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

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

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

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

  546. 

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

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

  549.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False

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

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

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

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

  554. 

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

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

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

  558. 

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

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

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

  562. 

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

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

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

  566. 

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

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

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

  570. 

  571.             Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False

  572.             Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False

  573.             Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False

  574. 

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

  576. 

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

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

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

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

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

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

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

  584. 

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

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

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

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

  589. 

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

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

  592.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False

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

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

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

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

  597. 

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

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

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

  601. 

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

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

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

  605. 

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

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

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

  609. 

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

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

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

  613. 

  614.             Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False

  615.             Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = True : Dgv.Columns(113).Visible = True : Dgv.Columns(114).Visible = True : Dgv.Columns(115).Visible = True

  616.             Dgv.Columns(116).Visible = True : Dgv.Columns(117).Visible = True

  617. 

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

  619. 

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

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

  622.         End If

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

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

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

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

  627.         Dgv.Columns("BAORSC").Visible = False : Dgv.Columns("AA長短").Visible = False : Dgv.Columns("BAORSC仁").Visible = False : Dgv.Columns("AA長短仁").Visible = False

  628.     End Sub

  629.     Private Sub Set_薪資計算()

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

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

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

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

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

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

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

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

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

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

  640.         E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資_tb.Text = "0" : 實際薪資1_tb.Text = "0"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  682.             Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休薪資1.67").Value.ToString) +

  683.                                                   CDbl(Dgv.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場薪資").Value.ToString) +

  684.                                                   CDbl(Dgv.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平薪資1.67").Value.ToString) +

  685.                                                   CDbl(Dgv.Rows(i).Cells("休薪資1.34").Value.ToString)

  686. 

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

  688.             If IsDBNull(Dgv.Rows(i).Cells("AA長短").Value) = True Then : Dgv.Rows(i).Cells("AA長短").Value = 0 : End If

  689.             If IsDBNull(Dgv.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv.Rows(i).Cells("BAORSC仁").Value = 0 : End If

  690.             If IsDBNull(Dgv.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv.Rows(i).Cells("AA長短仁").Value = 0 : End If

  691.             If CDbl(Dgv.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv.Rows(i).Cells("AA長短").Value) = 0 Then

  692.                 Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv.Rows(i).Cells("AA長短仁").Value)

  693.             Else

  694.                 Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv.Rows(i).Cells("AA長短").Value)

  695.             End If

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

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

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

  699. 

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

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

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

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

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

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

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

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

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

  709.             總薪_tb.Text = Strings.Format(CDbl(總薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪").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(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  781. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  820.             Dgv.Rows(i).Cells("公司負擔總計").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("公司負擔總計").Value.ToString), "#,##0.0")

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

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

  823.             For y As Integer = 106 To 117 : Dgv.Rows(i).Cells(y).Value = Strings.Format(CDbl(Dgv.Rows(i).Cells(y).Value.ToString), "#,##0.0") : Next

  824. 

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

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

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

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

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

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

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

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

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

  834.         Next

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

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

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

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

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

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

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

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

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

  844.     End Sub

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

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

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

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

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

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

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

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

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

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

  855.     End Sub

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

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

  858.     End Sub

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

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

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

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

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

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

  865.         SQL_資料日期01()

  866.         If dr.Read Then

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

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

  869.         End If

  870. 

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

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

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

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

  875.         分流計算.Enabled = True

  876.     End Sub

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

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

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

  880.     End Sub

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

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

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

  884.     End Sub

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

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

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

  888.     End Sub

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

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

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

  892.     End Sub

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

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

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

  896.     End Sub

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

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

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

  900.     End Sub

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

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

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

  904.     End Sub

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

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

  907.     End Sub

  908. End Class