WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Obserwuj 4
Gwiazdka 0
Forkuj 0
Kod Problemy 0 Pull Requests 0 Wydania 0 Wiki Aktywność
Brak opisu
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 Commity
1 Gałąź
Drzewo: bb86925be6
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z 'bb86925be6'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/成本管理系統/訂單價格利潤明細表.vb

訂單價格利潤明細表.vb 124KB
Historia Czysty

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244 
  1. Option Strict Off

  2. Imports System.Data.SqlClient

  3. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle

  4. Imports Microsoft.Office.Interop.Excel.Constants

  5. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  6. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  7. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  8. Imports Microsoft.Office.Interop.Excel.XlThemeFont

  9. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  10. Imports Microsoft.Office.Interop.Excel.XlWindowState

  11. Imports Microsoft.Office.Interop.Excel

  12. Public Class 訂單價格利潤明細表

  13.     ReadOnly conn As New SqlConnection

  14.     ReadOnly da As New SqlDataAdapter

  15.     ReadOnly cmd As New SqlCommand

  16.     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet

  17.     Dim dr As SqlDataReader

  18.     Dim xlApp As Application

  19.     Dim xlBook As Workbook

  20.     Dim xlSheet As Worksheet

  21.     ReadOnly BB(3) As Boolean : Dim WW As String : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0 : Dim NUM2 As Integer : Dim N1 As Integer

  22.     ReadOnly MYSQL1 As String = "SELECT 訂單控制表.BUYER, 訂單控制表.年份季度, 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 訂單控制表.型體號碼, 訂單控制表.GOODBOX AS 型體名稱, 訂單控制表.APMA確認 AS 顏色, 

  23.                                    訂單控制表.TVW AS 楦型, 訂單控制表.訂單數量, 訂單控制表.客戶交期 AS 交期開始, 訂單控制表.客戶交期1 AS 交期結束, 訂單控制表.單價, 訂單控制表.總金額 AS 銷售金額, 

  24.                                    訂單控制表.備註, 訂單控制表.生產工廠, 訂單控制表.資料流水號, 訂單價格利潤明細表.Quantity, 訂單價格利潤明細表.Currency, 訂單價格利潤明細表.Exchange, 

  25.                                    訂單價格利潤明細表.Price, 訂單價格利潤明細表.Discount_price AS [Discount price], 訂單價格利潤明細表.Commercial_invoice AS [Commercial invoice], 

  26.                                    訂單價格利潤明細表.Overage_invoice AS [Overage invoice], 訂單價格利潤明細表.Selling_price AS [Selling price], 訂單價格利潤明細表.HTS_code AS [HTS code], 

  27.                                    訂單價格利潤明細表.Remark1, 訂單價格利潤明細表.Fty_price AS [Fty price], 訂單價格利潤明細表.Mold_cost AS [Mold cost], 

  28.                                    訂單價格利潤明細表.Collected_mold_cost AS [Collected mold cost], 訂單價格利潤明細表.Amortization_qty AS [Amortization qty], 訂單價格利潤明細表.Profit, 

  29.                                    訂單價格利潤明細表.Commission, 訂單價格利潤明細表.Remark2, 訂單價格利潤明細表.Price AS 客戶付款, 訂單價格利潤明細表.Price AS 未收款項, 

  30.                                    訂單價格利潤明細表.Price AS 預收款項, 訂單價格利潤明細表.Price AS 成本金額, 訂單價格利潤明細表.Price AS 利潤, 訂單價格利潤明細表.Price AS 實際收款, 

  31.                                    訂單價格利潤明細表.年份, 訂單價格利潤明細表.利潤表流水號, 訂單價格利潤明細表.審核

  32.                              FROM  訂單控制表 LEFT OUTER JOIN 訂單價格利潤明細表 ON 訂單控制表.資料流水號 = 訂單價格利潤明細表.資料流水號 "

  33.     ReadOnly MYSQL2 As String = "SELECT     訂單控制表.BUYER, 訂單控制表.年份季度, 訂單控制表.訂單流水號, 訂單控制表.客戶訂單號, 訂單控制表.型體號碼, 訂單控制表.GOODBOX AS 型體名稱, 

  34.                                        訂單控制表.APMA確認 AS 顏色, 訂單控制表.TVW AS 楦型, 訂單控制表.訂單數量, 訂單控制表.客戶交期 AS 交期開始, 訂單控制表.客戶交期1 AS 交期結束, 訂單控制表.單價, 

  35.                                        訂單控制表.總金額 AS 銷售金額, 訂單控制表.備註, 訂單控制表.生產工廠, 訂單控制表.資料流水號, 訂單價格利潤明細表.Quantity, 訂單價格利潤明細表.Currency, 

  36.                                        訂單價格利潤明細表.Exchange, 訂單價格利潤明細表.Price, 訂單價格利潤明細表.Discount_price AS [Discount price], 

  37.                                        訂單價格利潤明細表.Commercial_invoice AS [Commercial invoice], 訂單價格利潤明細表.Overage_invoice AS [Overage invoice], 

  38.                                        訂單價格利潤明細表.Selling_price AS [Selling price], 訂單價格利潤明細表.HTS_code AS [HTS code], 訂單價格利潤明細表.Remark1, 

  39.                                        訂單價格利潤明細表.Fty_price AS [Fty price], 訂單價格利潤明細表.Mold_cost AS [Mold cost], 訂單價格利潤明細表.Collected_mold_cost AS [Collected mold cost], 

  40.                                        訂單價格利潤明細表.Amortization_qty AS [Amortization qty], 訂單價格利潤明細表.Profit, 訂單價格利潤明細表.Commission, 訂單價格利潤明細表.Remark2, 

  41.                                        訂單價格利潤明細表.Price AS 客戶付款, 訂單價格利潤明細表.Price AS 未收款項, 訂單價格利潤明細表.Price AS 預收款項, 訂單價格利潤明細表.Price AS 成本金額, 

  42.                                        訂單價格利潤明細表.Price AS 利潤, 訂單價格利潤明細表.Price AS 實際收款, 訂單價格利潤明細表.年份, 訂單價格利潤表暫存檔.利潤表流水號, 訂單價格利潤明細表.審核

  43.                             FROM       訂單控制表 INNER JOIN 訂單價格利潤表暫存檔 ON 訂單控制表.資料流水號 = 訂單價格利潤表暫存檔.資料流水號 LEFT OUTER JOIN

  44.                                        訂單價格利潤明細表 ON 訂單控制表.資料流水號 = 訂單價格利潤明細表.資料流水號

  45.                             ORDER BY   訂單控制表.訂單流水號 DESC"

  46.     Private Sub Set_DGV1載入前設定()

  47.         清單1_dgv.DataSource = Nothing : ds.Clear()

  48.         清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  49.         清單1_dgv.ColumnHeadersHeight = 50

  50.         清單1_dgv.AllowUserToAddRows = False

  51.         清單1_dgv.RowTemplate.Height = 35

  52.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  53.     End Sub

  54.     Private Sub Set_DGV1載入後設定()

  55.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 清單1_dgv.DataSource = ds.Tables(0) : conn.Close()

  56.     End Sub

  57.     Private Sub Set_訂單清單1()

  58.         Set_DGV1載入前設定()

  59.         If CheckBox1.Checked = True Then

  60.             Timer1.Enabled = True : Button6.Enabled = True : Button5.Enabled = False : Button9.Enabled = False

  61.             Button11.Enabled = True : Button12.Enabled = True : Button13.Enabled = True

  62.             If TextBox1.Text = "" Then

  63.                 SQL1 = MYSQL1 & "WHERE    ((訂單控制表.訂單流水號 Like '%" & PA & "%') OR (訂單控制表.年份季度 LIKE '%" & PA & "%') OR (訂單控制表.客戶訂單號 LIKE '%" & PA & "%') OR 

  64.                                            (訂單控制表.型體號碼 Like '%" & PA & "%') OR (訂單控制表.APMA確認 LIKE '%" & PA & "%') OR (訂單控制表.GOODBOX LIKE '%" & PA & "%') OR 

  65.                                            (訂單控制表.TVW Like '%" & PA & "%') OR (訂單控制表.備註 LIKE '%" & PA & "%') OR (訂單控制表.生產工廠 LIKE '%" & PA & "%')) AND 

  66.                                            (訂單價格利潤明細表.訂單流水號 Is Not NULL) AND (訂單價格利潤明細表.CFMSPEC LIKE 'LANDED BRANDED')

  67.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  68.             Else

  69.                 SQL1 = MYSQL1 & "WHERE     (訂單控制表.訂單流水號 LIKE '" & TextBox1.Text & "') AND (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.CFMSPEC LIKE 'LANDED BRANDED')

  70.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  71.             End If

  72.             Set_DGV1載入後設定() : Set_grid() : Set_自動彙總1()

  73.             Set_暫存資料設定() : Set_編輯清單1() : Set_grid() : Set_grid3() : Set_自動彙總1()

  74.         ElseIf CheckBox1.Checked = False Then

  75.             Timer1.Enabled = False : Label47.Visible = False : Button6.Enabled = False : Button5.Enabled = True : Button9.Enabled = True

  76.             Button11.Enabled = False : Button12.Enabled = False : Button13.Enabled = False

  77.             If PA = "" Then

  78.                 SQL1 = MYSQL1 & "WHERE     (訂單控制表.CXL IS NULL) OR (訂單控制表.CXL = 0) AND (訂單價格利潤明細表.年份 LIKE '" & ComboBox1.Text & "') AND (訂單控制表.CFMSPEC LIKE 'LANDED BRANDED')

  79.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  80.             Else

  81.                 SQL1 = MYSQL1 & "WHERE    ((訂單控制表.訂單流水號 Like '%" & PA & "%') OR (訂單控制表.年份季度 LIKE '%" & PA & "%') OR (訂單控制表.客戶訂單號 LIKE '%" & PA & "%') OR 

  82.                                            (訂單控制表.型體號碼 LIKE '%" & PA & "%') OR (訂單控制表.APMA確認 LIKE '%" & PA & "%') OR (訂單控制表.GOODBOX LIKE '%" & PA & "%') OR 

  83.                                            (訂單控制表.TVW LIKE '%" & PA & "%') OR (訂單控制表.備註 LIKE '%" & PA & "%') OR (訂單控制表.生產工廠 LIKE '%" & PA & "%')) AND 

  84.                                            (訂單價格利潤明細表.訂單流水號 IS NOT NULL) AND (訂單價格利潤明細表.年份 LIKE '" & ComboBox1.Text & "') AND 

  85.                                            (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.CFMSPEC LIKE 'LANDED BRANDED')

  86.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  87.             End If

  88.             列印用SQL = SQL1

  89.             Set_DGV1載入後設定()

  90.         End If

  91.     End Sub

  92.     Private Sub Set_編輯清單1()

  93.         Set_DGV1載入前設定() : SQL1 = MYSQL2 : Set_DGV1載入後設定() : Me.Button13.PerformClick() : Me.Button11.PerformClick()

  94.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(i).Cells("Currency").Value = "USD" : 清單1_dgv.Rows(i).Cells("年份").Value = ComboBox1.Text : Next i

  95.     End Sub

  96.     Private Sub Set_DGV3載入前設定()

  97.         清單2_dgv.DataSource = Nothing : ds2.Clear()

  98.         清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  99.         清單2_dgv.ColumnHeadersHeight = 50

  100.         清單2_dgv.AllowUserToAddRows = False

  101.         清單2_dgv.RowTemplate.Height = 35

  102.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  103.     End Sub

  104.     Private Sub Set_DGV3載入後設定()

  105.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 清單2_dgv.DataSource = ds2.Tables(0) : conn.Close()

  106.     End Sub

  107.     Private Sub Set_訂單清單2()

  108.         Set_DGV3載入前設定()

  109.         If CheckBox1.Checked = True Then

  110.             Timer1.Enabled = True : Button6.Enabled = True : Button5.Enabled = False : Button9.Enabled = False

  111.             Button11.Enabled = True : Button12.Enabled = True : Button13.Enabled = True

  112.             If TextBox1.Text = "" Then

  113.                 SQL1 = MYSQL1 & "WHERE    ((訂單控制表.訂單流水號 Like '%" & PA & "%') OR (訂單控制表.年份季度 LIKE '%" & PA & "%') OR (訂單控制表.客戶訂單號 LIKE '%" & PA & "%') OR 

  114.                                            (訂單控制表.型體號碼 Like '%" & PA & "%') OR (訂單控制表.APMA確認 LIKE '%" & PA & "%') OR (訂單控制表.GOODBOX LIKE '%" & PA & "%') OR 

  115.                                            (訂單控制表.TVW Like '%" & PA & "%') OR (訂單控制表.備註 LIKE '%" & PA & "%') OR (訂單控制表.生產工廠 LIKE '%" & PA & "%')) AND 

  116.                                            (訂單價格利潤明細表.訂單流水號 Is Not NULL) AND (訂單控制表.CFMSPEC LIKE 'FIRST COST')

  117.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  118.             Else

  119.                 SQL1 = MYSQL1 & "WHERE     (訂單控制表.訂單流水號 LIKE '" & TextBox1.Text & "') AND (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.CFMSPEC LIKE 'FIRST COST')

  120.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  121.             End If

  122.             Set_DGV3載入後設定() : Set_grid3() : Set_自動彙總1()

  123.             Set_暫存資料設定() : Set_編輯清單2() : Set_grid3() : Set_自動彙總1()

  124.         ElseIf CheckBox1.Checked = False Then

  125.             Timer1.Enabled = False : Label47.Visible = False : Button6.Enabled = False : Button5.Enabled = True : Button9.Enabled = True

  126.             Button11.Enabled = False : Button12.Enabled = False : Button13.Enabled = False

  127.             If PA = "" Then

  128.                 SQL1 = MYSQL1 & "WHERE     (訂單控制表.CXL IS NULL) OR (訂單控制表.CXL = 0) AND (訂單價格利潤明細表.年份 LIKE '" & ComboBox1.Text & "') AND (訂單控制表.CFMSPEC LIKE 'FIRST COST')

  129.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  130.             Else

  131.                 SQL1 = MYSQL1 & "WHERE    ((訂單控制表.訂單流水號 Like '%" & PA & "%') OR (訂單控制表.年份季度 LIKE '%" & PA & "%') OR (訂單控制表.客戶訂單號 LIKE '%" & PA & "%') OR 

  132.                                            (訂單控制表.型體號碼 LIKE '%" & PA & "%') OR (訂單控制表.APMA確認 LIKE '%" & PA & "%') OR (訂單控制表.GOODBOX LIKE '%" & PA & "%') OR 

  133.                                            (訂單控制表.TVW LIKE '%" & PA & "%') OR (訂單控制表.備註 LIKE '%" & PA & "%') OR (訂單控制表.生產工廠 LIKE '%" & PA & "%')) AND 

  134.                                            (訂單價格利潤明細表.訂單流水號 IS NOT NULL) AND (訂單價格利潤明細表.年份 LIKE '" & ComboBox1.Text & "') AND 

  135.                                            (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.CFMSPEC LIKE 'FIRST COST')

  136.                                  ORDER BY   訂單控制表.訂單流水號 DESC"

  137.             End If

  138.             列印用SQL = SQL1

  139.             Set_DGV3載入後設定()

  140.         End If

  141.     End Sub

  142.     Private Sub Set_編輯清單2()

  143.         Set_DGV3載入前設定() : SQL1 = MYSQL2 : Set_DGV3載入後設定() : Me.Button13.PerformClick() : Me.Button11.PerformClick()

  144.         For i As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 清單2_dgv.Rows(i).Cells("Currency").Value = "USD" : 清單2_dgv.Rows(i).Cells("年份").Value = ComboBox1.Text : Next i

  145.     End Sub

  146.     Private Sub Set_暫存資料設定()

  147.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  148.         SQL1 = "DELETE FROM 訂單價格利潤表暫存檔"

  149.         cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  150. 

  151.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  152.         SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤明細表 ORDER BY 利潤表流水號 DESC"

  153.         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  154.         If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If

  155.         conn.Close()

  156.         If ComboBox10.Text = "LANDED BRANDED" Then

  157.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  158.                 Set_暫存資料設定1()

  159.                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  160.                 SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) " &

  161.                    "VALUES ('" & 清單1_dgv.Rows(i).Cells("資料流水號").Value & "','" & WW & "', '" & 清單1_dgv.Rows(i).Cells("訂單流水號").Value & "')"

  162.                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  163.             Next i

  164.         Else

  165.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  166.                 Set_暫存資料設定1()

  167.                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  168.                 SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) " &

  169.                    "VALUES ('" & 清單2_dgv.Rows(i).Cells("資料流水號").Value & "','" & WW & "', '" & 清單2_dgv.Rows(i).Cells("訂單流水號").Value & "')"

  170.                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  171.             Next i

  172.         End If

  173.     End Sub

  174.     Private Sub Set_暫存資料設定1()

  175.         NUM2 += 1

  176.         If NUM2 < 10 Then : WW = "PR" & "0000000" & NUM2

  177.         ElseIf NUM2 > 9 And NUM2 < 100 Then : WW = "PR" & "000000" & NUM2

  178.         ElseIf NUM2 > 99 And NUM2 < 1000 Then : WW = "PR" & "00000" & NUM2

  179.         ElseIf NUM2 > 999 And NUM2 < 10000 Then : WW = "PR" & "0000" & NUM2

  180.         ElseIf NUM2 > 9999 And NUM2 < 100000 Then : WW = "PR" & "000" & NUM2

  181.         ElseIf NUM2 > 99999 And NUM2 < 100000 Then : WW = "PR" & "00" & NUM2

  182.         ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : WW = "PR" & "0" & NUM2

  183.         ElseIf NUM2 > 9999999 Then : WW = "PR" & NUM2

  184.         End If

  185.     End Sub

  186.     Private Sub Set_未建檔清單()

  187.         DataGridView2.DataSource = Nothing : ds1.Clear()

  188.         DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  189.         DataGridView2.ColumnHeadersHeight = 25

  190.         DataGridView2.AllowUserToAddRows = False

  191.         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  192.         SQL1 = "SELECT          訂單控制表.訂單流水號

  193.                 FROM            訂單控制表 FULL OUTER JOIN 訂單價格利潤明細表 ON 訂單控制表.資料流水號 = 訂單價格利潤明細表.資料流水號

  194.                 WHERE          (訂單控制表.CXL IS NULL OR 訂單控制表.CXL = 0) AND (訂單控制表.CFMSPEC LIKE '" & ComboBox10.Text & "') AND 

  195.                                (訂單價格利潤明細表.資料流水號 IS NULL) AND (訂單控制表.CFMSPEC LIKE '" & ComboBox10.Text & "')

  196.                 GROUP BY        訂單控制表.訂單流水號

  197.                 ORDER BY        訂單控制表.訂單流水號 DESC"

  198.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

  199.     End Sub

  200.     Private Sub Set_grid()

  201.         清單1_dgv.Columns(0).ReadOnly = True : 清單1_dgv.Columns(1).ReadOnly = True : 清單1_dgv.Columns(2).ReadOnly = True : 清單1_dgv.Columns(3).ReadOnly = True

  202.         清單1_dgv.Columns(4).ReadOnly = True : 清單1_dgv.Columns(5).ReadOnly = True : 清單1_dgv.Columns(6).ReadOnly = True : 清單1_dgv.Columns(7).ReadOnly = True

  203.         清單1_dgv.Columns(8).ReadOnly = True : 清單1_dgv.Columns(9).ReadOnly = True : 清單1_dgv.Columns(10).ReadOnly = True : 清單1_dgv.Columns(12).ReadOnly = True

  204.         清單1_dgv.Columns(13).ReadOnly = True : 清單1_dgv.Columns(14).ReadOnly = True : 清單1_dgv.Columns(20).ReadOnly = True : 清單1_dgv.Columns(22).ReadOnly = True

  205.         清單1_dgv.Columns(28).ReadOnly = True : 清單1_dgv.Columns(30).ReadOnly = True : 清單1_dgv.Columns(31).ReadOnly = True : 清單1_dgv.Columns(33).ReadOnly = True

  206.         清單1_dgv.Columns(34).ReadOnly = True : 清單1_dgv.Columns(35).ReadOnly = True : 清單1_dgv.Columns(36).ReadOnly = True : 清單1_dgv.Columns(37).ReadOnly = True

  207.         清單1_dgv.Columns(38).ReadOnly = True : 清單1_dgv.Columns(39).ReadOnly = True : 清單1_dgv.Columns(40).ReadOnly = True

  208.         '764

  209.         清單1_dgv.Columns(0).Width = 90 : 清單1_dgv.Columns(1).Width = 100 : 清單1_dgv.Columns(2).Width = 115 : 清單1_dgv.Columns(3).Width = 80

  210.         清單1_dgv.Columns(4).Width = 90 : 清單1_dgv.Columns(5).Width = 90 : 清單1_dgv.Columns(6).Width = 100 : 清單1_dgv.Columns(7).Width = 50

  211.         清單1_dgv.Columns(8).Width = 60 : 清單1_dgv.Columns(9).Width = 70 : 清單1_dgv.Columns(10).Width = 70 : 清單1_dgv.Columns(11).Width = 60

  212.         清單1_dgv.Columns(12).Width = 80 : 清單1_dgv.Columns(13).Width = 100 : 清單1_dgv.Columns(14).Width = 80 : 清單1_dgv.Columns(15).Visible = False

  213.         清單1_dgv.Columns(16).Width = 60 : 清單1_dgv.Columns(17).Width = 60 : 清單1_dgv.Columns(18).Width = 65 : 清單1_dgv.Columns(19).Width = 60

  214.         清單1_dgv.Columns(20).Width = 70 : 清單1_dgv.Columns(21).Width = 80 : 清單1_dgv.Columns(22).Width = 70

  215. 

  216.         清單1_dgv.Columns(23).Visible = False : 清單1_dgv.Columns(24).Visible = False

  217. 

  218.         清單1_dgv.Columns(25).Width = 168 : 清單1_dgv.Columns(26).Width = 60 : 清單1_dgv.Columns(27).Width = 60 : 清單1_dgv.Columns(28).Width = 80 : 清單1_dgv.Columns(29).Width = 100

  219.         清單1_dgv.Columns(30).Width = 80 : 清單1_dgv.Columns(31).Width = 80 : 清單1_dgv.Columns(31).Width = 100 : 清單1_dgv.Columns(32).Width = 263 : 清單1_dgv.Columns(39).Width = 70

  220.         清單1_dgv.Columns(40).Width = 85 : 清單1_dgv.Columns(41).Width = 57

  221. 

  222.         清單1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 清單1_dgv.Columns(11).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0.00"

  223.         清單1_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 清單1_dgv.Columns(18).DefaultCellStyle.Format = "#,##0.0000" : 清單1_dgv.Columns(19).DefaultCellStyle.Format = "#,##0.00"

  224.         清單1_dgv.Columns(20).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(21).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(22).DefaultCellStyle.Format = "#,##0.00"

  225.         清單1_dgv.Columns(26).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(27).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(28).DefaultCellStyle.Format = "#,##0.00"

  226.         清單1_dgv.Columns(29).DefaultCellStyle.Format = "#,##0" : 清單1_dgv.Columns(30).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(31).DefaultCellStyle.Format = "#,##0.00"

  227.         清單1_dgv.Columns(33).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(34).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(35).DefaultCellStyle.Format = "#,##0.00"

  228.         清單1_dgv.Columns(36).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(37).DefaultCellStyle.Format = "#,##0.00" : 清單1_dgv.Columns(38).DefaultCellStyle.Format = "#,##0.00"

  229.         清單1_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  230.         清單1_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  231.         清單1_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  232.         清單1_dgv.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  233.         清單1_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  234.         清單1_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  235.         清單1_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  236.         清單1_dgv.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  237.         清單1_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  238.         清單1_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  239.         清單1_dgv.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  240.         清單1_dgv.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  241.         清單1_dgv.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  242.         清單1_dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  243.         清單1_dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  244.         清單1_dgv.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  245.         清單1_dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  246.         清單1_dgv.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  247.         清單1_dgv.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  248.         清單1_dgv.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  249.         清單1_dgv.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  250.         清單1_dgv.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  251.         清單1_dgv.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  252.         清單1_dgv.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  253.         清單1_dgv.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單1_dgv.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  254. 

  255.         清單1_dgv.Columns(11).DefaultCellStyle.BackColor = Color.MistyRose : 清單1_dgv.Columns(16).DefaultCellStyle.BackColor = Color.MistyRose

  256.         清單1_dgv.Columns(17).DefaultCellStyle.BackColor = Color.MistyRose : 清單1_dgv.Columns(18).DefaultCellStyle.BackColor = Color.MistyRose

  257.         清單1_dgv.Columns(19).DefaultCellStyle.BackColor = Color.MistyRose : 清單1_dgv.Columns(21).DefaultCellStyle.BackColor = Color.MistyRose

  258.         清單1_dgv.Columns(26).DefaultCellStyle.BackColor = Color.MistyRose : 清單1_dgv.Columns(27).DefaultCellStyle.BackColor = Color.MistyRose

  259.         清單1_dgv.Columns(29).DefaultCellStyle.BackColor = Color.MistyRose

  260. 

  261.         清單1_dgv.Columns(0).DefaultCellStyle.ForeColor = Color.Blue : 清單1_dgv.Columns(1).DefaultCellStyle.ForeColor = Color.Blue

  262.         清單1_dgv.Columns(2).DefaultCellStyle.ForeColor = Color.Blue : 清單1_dgv.Columns(3).DefaultCellStyle.ForeColor = Color.Blue

  263.         清單1_dgv.Columns(4).DefaultCellStyle.ForeColor = Color.Blue : 清單1_dgv.Columns(5).DefaultCellStyle.ForeColor = Color.Blue

  264.         清單1_dgv.Columns(6).DefaultCellStyle.ForeColor = Color.Blue : 清單1_dgv.Columns(7).DefaultCellStyle.ForeColor = Color.Blue

  265.         清單1_dgv.Columns(8).DefaultCellStyle.ForeColor = Color.Blue : 清單1_dgv.Columns(9).DefaultCellStyle.ForeColor = Color.Blue

  266.         清單1_dgv.Columns(10).DefaultCellStyle.ForeColor = Color.Blue

  267. 

  268.         清單1_dgv.Columns(12).DefaultCellStyle.ForeColor = Color.Red : 清單1_dgv.Columns(20).DefaultCellStyle.ForeColor = Color.Red

  269.         清單1_dgv.Columns(22).DefaultCellStyle.ForeColor = Color.Red : 清單1_dgv.Columns(28).DefaultCellStyle.ForeColor = Color.Red

  270.         清單1_dgv.Columns(30).DefaultCellStyle.ForeColor = Color.Red : 清單1_dgv.Columns(31).DefaultCellStyle.ForeColor = Color.Red

  271.         清單1_dgv.Columns(33).DefaultCellStyle.ForeColor = Color.Red : 清單1_dgv.Columns(36).DefaultCellStyle.ForeColor = Color.Red

  272.         清單1_dgv.Columns(34).DefaultCellStyle.ForeColor = Color.Red : 清單1_dgv.Columns(37).DefaultCellStyle.ForeColor = Color.Red

  273.         清單1_dgv.Columns(35).DefaultCellStyle.ForeColor = Color.Red : 清單1_dgv.Columns(38).DefaultCellStyle.ForeColor = Color.Red

  274. 

  275.         If BB(0) = True And BB(1) = False And BB(2) = False And BB(3) = False Then

  276.             清單1_dgv.Columns(17).Visible = True : 清單1_dgv.Columns(18).Visible = True : 清單1_dgv.Columns(19).Visible = True : 清單1_dgv.Columns(20).Visible = True

  277.             清單1_dgv.Columns(21).Visible = True : 清單1_dgv.Columns(22).Visible = True : 清單1_dgv.Columns(25).Visible = True : 清單1_dgv.Columns(13).Visible = True

  278.             清單1_dgv.Columns(14).Visible = True : 清單1_dgv.Columns(16).Visible = True

  279. 

  280.             清單1_dgv.Columns(26).Visible = False : 清單1_dgv.Columns(27).Visible = False : 清單1_dgv.Columns(28).Visible = False : 清單1_dgv.Columns(29).Visible = False

  281.             清單1_dgv.Columns(30).Visible = False : 清單1_dgv.Columns(31).Visible = False : 清單1_dgv.Columns(32).Visible = False : 清單1_dgv.Columns(33).Visible = False

  282.             清單1_dgv.Columns(34).Visible = False : 清單1_dgv.Columns(35).Visible = False : 清單1_dgv.Columns(36).Visible = False : 清單1_dgv.Columns(37).Visible = False

  283.             清單1_dgv.Columns(38).Visible = False : 清單1_dgv.Columns(39).Visible = False : 清單1_dgv.Columns(40).Visible = False : 清單1_dgv.Columns(41).Visible = False

  284.         ElseIf BB(0) = False And BB(1) = True And BB(2) = False And BB(3) = False Then

  285.             清單1_dgv.Columns(17).Visible = False : 清單1_dgv.Columns(18).Visible = False : 清單1_dgv.Columns(19).Visible = False : 清單1_dgv.Columns(20).Visible = False

  286.             清單1_dgv.Columns(21).Visible = False : 清單1_dgv.Columns(22).Visible = False : 清單1_dgv.Columns(25).Visible = False : 清單1_dgv.Columns(13).Visible = False

  287.             清單1_dgv.Columns(14).Visible = False : 清單1_dgv.Columns(16).Visible = False

  288. 

  289.             清單1_dgv.Columns(26).Visible = True : 清單1_dgv.Columns(27).Visible = True : 清單1_dgv.Columns(28).Visible = True : 清單1_dgv.Columns(29).Visible = True

  290.             清單1_dgv.Columns(30).Visible = True : 清單1_dgv.Columns(31).Visible = True : 清單1_dgv.Columns(32).Visible = True : 清單1_dgv.Columns(39).Visible = True

  291. 

  292.             清單1_dgv.Columns(34).Visible = False : 清單1_dgv.Columns(35).Visible = False : 清單1_dgv.Columns(36).Visible = False : 清單1_dgv.Columns(37).Visible = False

  293.             清單1_dgv.Columns(38).Visible = False : 清單1_dgv.Columns(33).Visible = False : 清單1_dgv.Columns(40).Visible = False : 清單1_dgv.Columns(41).Visible = False

  294.         ElseIf BB(0) = False And BB(1) = False And BB(2) = True And BB(3) = False Then

  295.             清單1_dgv.Columns(17).Visible = False : 清單1_dgv.Columns(18).Visible = False : 清單1_dgv.Columns(19).Visible = False : 清單1_dgv.Columns(20).Visible = False

  296.             清單1_dgv.Columns(21).Visible = False : 清單1_dgv.Columns(22).Visible = False : 清單1_dgv.Columns(25).Visible = False : 清單1_dgv.Columns(13).Visible = False

  297.             清單1_dgv.Columns(14).Visible = False : 清單1_dgv.Columns(16).Visible = False : 清單1_dgv.Columns(26).Visible = False : 清單1_dgv.Columns(27).Visible = False

  298.             清單1_dgv.Columns(28).Visible = False : 清單1_dgv.Columns(29).Visible = False : 清單1_dgv.Columns(30).Visible = False : 清單1_dgv.Columns(31).Visible = False

  299.             清單1_dgv.Columns(32).Visible = False

  300. 

  301.             清單1_dgv.Columns(33).Visible = True : 清單1_dgv.Columns(34).Visible = True : 清單1_dgv.Columns(35).Visible = True : 清單1_dgv.Columns(36).Visible = True

  302.             清單1_dgv.Columns(37).Visible = True : 清單1_dgv.Columns(38).Visible = True : 清單1_dgv.Columns(39).Visible = True : 清單1_dgv.Columns(40).Visible = True

  303.             清單1_dgv.Columns(41).Visible = True

  304.         End If

  305.         清單1_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  306.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  307.             清單1_dgv("年份", i).Value = Strings.Left(清單1_dgv("交期開始", i).Value.ToString, 4)

  308.         Next

  309.     End Sub

  310.     Private Sub Set_grid3()

  311.         清單2_dgv.Columns(0).ReadOnly = True : 清單2_dgv.Columns(1).ReadOnly = True : 清單2_dgv.Columns(2).ReadOnly = True : 清單2_dgv.Columns(3).ReadOnly = True

  312.         清單2_dgv.Columns(4).ReadOnly = True : 清單2_dgv.Columns(5).ReadOnly = True : 清單2_dgv.Columns(6).ReadOnly = True : 清單2_dgv.Columns(7).ReadOnly = True

  313.         清單2_dgv.Columns(8).ReadOnly = True : 清單2_dgv.Columns(9).ReadOnly = True : 清單2_dgv.Columns(10).ReadOnly = True : 清單2_dgv.Columns(12).ReadOnly = True

  314.         清單2_dgv.Columns(13).ReadOnly = True : 清單2_dgv.Columns(14).ReadOnly = True : 清單2_dgv.Columns(20).ReadOnly = True : 清單2_dgv.Columns(22).ReadOnly = True

  315.         清單2_dgv.Columns(28).ReadOnly = True : 清單2_dgv.Columns(30).ReadOnly = True : 清單2_dgv.Columns(31).ReadOnly = True : 清單2_dgv.Columns(33).ReadOnly = True

  316.         清單2_dgv.Columns(34).ReadOnly = True : 清單2_dgv.Columns(35).ReadOnly = True : 清單2_dgv.Columns(36).ReadOnly = True : 清單2_dgv.Columns(37).ReadOnly = True

  317.         清單2_dgv.Columns(38).ReadOnly = True : 清單2_dgv.Columns(39).ReadOnly = True : 清單2_dgv.Columns(40).ReadOnly = True

  318.         '764

  319.         清單2_dgv.Columns(0).Width = 90 : 清單2_dgv.Columns(1).Width = 100 : 清單2_dgv.Columns(2).Width = 115 : 清單2_dgv.Columns(3).Width = 80

  320.         清單2_dgv.Columns(4).Width = 90 : 清單2_dgv.Columns(5).Width = 90 : 清單2_dgv.Columns(6).Width = 100 : 清單2_dgv.Columns(7).Width = 50

  321.         清單2_dgv.Columns(8).Width = 60 : 清單2_dgv.Columns(9).Width = 70 : 清單2_dgv.Columns(10).Width = 70 : 清單2_dgv.Columns(11).Width = 60

  322.         清單2_dgv.Columns(12).Width = 80 : 清單2_dgv.Columns(13).Width = 100 : 清單2_dgv.Columns(14).Width = 80 : 清單2_dgv.Columns(15).Visible = False

  323.         清單2_dgv.Columns(16).Width = 60 : 清單2_dgv.Columns(17).Width = 60 : 清單2_dgv.Columns(18).Width = 65 : 清單2_dgv.Columns(19).Width = 60

  324.         清單2_dgv.Columns(20).Width = 70

  325. 

  326.         清單2_dgv.Columns(21).Visible = False : 清單2_dgv.Columns(22).Visible = False : 清單2_dgv.Columns(23).Width = 80 : 清單2_dgv.Columns(24).Width = 105

  327. 

  328.         清單2_dgv.Columns(25).Width = 133 : 清單2_dgv.Columns(26).Width = 60 : 清單2_dgv.Columns(27).Width = 60 : 清單2_dgv.Columns(28).Width = 80 : 清單2_dgv.Columns(29).Width = 100

  329.         清單2_dgv.Columns(30).Width = 80 : 清單2_dgv.Columns(31).Width = 80 : 清單2_dgv.Columns(31).Width = 100 : 清單2_dgv.Columns(32).Width = 263 : 清單2_dgv.Columns(39).Width = 70

  330.         清單2_dgv.Columns(40).Width = 85 : 清單2_dgv.Columns(41).Width = 57

  331. 

  332.         清單2_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 清單2_dgv.Columns(11).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0.00"

  333.         清單2_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 清單2_dgv.Columns(18).DefaultCellStyle.Format = "#,##0.0000" : 清單2_dgv.Columns(19).DefaultCellStyle.Format = "#,##0.00"

  334.         清單2_dgv.Columns(20).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(21).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(22).DefaultCellStyle.Format = "#,##0.00"

  335.         清單2_dgv.Columns(26).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(27).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(28).DefaultCellStyle.Format = "#,##0.00"

  336.         清單2_dgv.Columns(29).DefaultCellStyle.Format = "#,##0" : 清單2_dgv.Columns(30).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(31).DefaultCellStyle.Format = "#,##0.00"

  337.         清單2_dgv.Columns(33).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(34).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(35).DefaultCellStyle.Format = "#,##0.00"

  338.         清單2_dgv.Columns(36).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(37).DefaultCellStyle.Format = "#,##0.00" : 清單2_dgv.Columns(38).DefaultCellStyle.Format = "#,##0.00"

  339.         清單2_dgv.Columns(23).DefaultCellStyle.Format = "#,##0.00"

  340.         清單2_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  341.         清單2_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  342.         清單2_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  343.         清單2_dgv.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  344.         清單2_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  345.         清單2_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  346.         清單2_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  347.         清單2_dgv.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  348.         清單2_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  349.         清單2_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  350.         清單2_dgv.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  351.         清單2_dgv.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  352.         清單2_dgv.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  353.         清單2_dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  354.         清單2_dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  355.         清單2_dgv.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  356.         清單2_dgv.Columns(23).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(23).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  357.         清單2_dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  358.         清單2_dgv.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  359.         清單2_dgv.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  360.         清單2_dgv.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  361.         清單2_dgv.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  362.         清單2_dgv.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  363.         清單2_dgv.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  364.         清單2_dgv.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  365.         清單2_dgv.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單2_dgv.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  366. 

  367.         清單2_dgv.Columns(11).DefaultCellStyle.BackColor = Color.MistyRose : 清單2_dgv.Columns(16).DefaultCellStyle.BackColor = Color.MistyRose

  368.         清單2_dgv.Columns(17).DefaultCellStyle.BackColor = Color.MistyRose : 清單2_dgv.Columns(18).DefaultCellStyle.BackColor = Color.MistyRose

  369.         清單2_dgv.Columns(19).DefaultCellStyle.BackColor = Color.MistyRose : 清單2_dgv.Columns(21).DefaultCellStyle.BackColor = Color.MistyRose

  370.         清單2_dgv.Columns(26).DefaultCellStyle.BackColor = Color.MistyRose : 清單2_dgv.Columns(27).DefaultCellStyle.BackColor = Color.MistyRose

  371.         清單2_dgv.Columns(29).DefaultCellStyle.BackColor = Color.MistyRose : 清單2_dgv.Columns(23).DefaultCellStyle.BackColor = Color.MistyRose

  372.         清單2_dgv.Columns(24).DefaultCellStyle.BackColor = Color.MistyRose

  373. 

  374.         清單2_dgv.Columns(0).DefaultCellStyle.ForeColor = Color.Green : 清單2_dgv.Columns(1).DefaultCellStyle.ForeColor = Color.Green

  375.         清單2_dgv.Columns(2).DefaultCellStyle.ForeColor = Color.Green : 清單2_dgv.Columns(3).DefaultCellStyle.ForeColor = Color.Green

  376.         清單2_dgv.Columns(4).DefaultCellStyle.ForeColor = Color.Green : 清單2_dgv.Columns(5).DefaultCellStyle.ForeColor = Color.Green

  377.         清單2_dgv.Columns(6).DefaultCellStyle.ForeColor = Color.Green : 清單2_dgv.Columns(7).DefaultCellStyle.ForeColor = Color.Green

  378.         清單2_dgv.Columns(8).DefaultCellStyle.ForeColor = Color.Green : 清單2_dgv.Columns(9).DefaultCellStyle.ForeColor = Color.Green

  379.         清單2_dgv.Columns(10).DefaultCellStyle.ForeColor = Color.Green

  380. 

  381.         清單2_dgv.Columns(12).DefaultCellStyle.ForeColor = Color.Red : 清單2_dgv.Columns(20).DefaultCellStyle.ForeColor = Color.Red

  382.         清單2_dgv.Columns(22).DefaultCellStyle.ForeColor = Color.Red : 清單2_dgv.Columns(28).DefaultCellStyle.ForeColor = Color.Red

  383.         清單2_dgv.Columns(30).DefaultCellStyle.ForeColor = Color.Red : 清單2_dgv.Columns(31).DefaultCellStyle.ForeColor = Color.Red

  384.         清單2_dgv.Columns(33).DefaultCellStyle.ForeColor = Color.Red : 清單2_dgv.Columns(36).DefaultCellStyle.ForeColor = Color.Red

  385.         清單2_dgv.Columns(34).DefaultCellStyle.ForeColor = Color.Red : 清單2_dgv.Columns(37).DefaultCellStyle.ForeColor = Color.Red

  386.         清單2_dgv.Columns(35).DefaultCellStyle.ForeColor = Color.Red : 清單2_dgv.Columns(38).DefaultCellStyle.ForeColor = Color.Red

  387. 

  388.         If BB(0) = True And BB(1) = False And BB(2) = False And BB(3) = False Then

  389.             清單2_dgv.Columns(17).Visible = True : 清單2_dgv.Columns(18).Visible = True : 清單2_dgv.Columns(19).Visible = True : 清單2_dgv.Columns(20).Visible = True

  390.             清單2_dgv.Columns(23).Visible = True : 清單2_dgv.Columns(24).Visible = True : 清單2_dgv.Columns(25).Visible = True : 清單2_dgv.Columns(13).Visible = True

  391.             清單2_dgv.Columns(14).Visible = True : 清單2_dgv.Columns(16).Visible = True

  392. 

  393.             清單2_dgv.Columns(26).Visible = False : 清單2_dgv.Columns(27).Visible = False : 清單2_dgv.Columns(28).Visible = False : 清單2_dgv.Columns(29).Visible = False

  394.             清單2_dgv.Columns(30).Visible = False : 清單2_dgv.Columns(31).Visible = False : 清單2_dgv.Columns(32).Visible = False : 清單2_dgv.Columns(33).Visible = False

  395.             清單2_dgv.Columns(34).Visible = False : 清單2_dgv.Columns(35).Visible = False : 清單2_dgv.Columns(36).Visible = False : 清單2_dgv.Columns(37).Visible = False

  396.             清單2_dgv.Columns(38).Visible = False : 清單2_dgv.Columns(39).Visible = False : 清單2_dgv.Columns(40).Visible = False : 清單2_dgv.Columns(41).Visible = False

  397.         ElseIf BB(0) = False And BB(1) = True And BB(2) = False And BB(3) = False Then

  398.             清單2_dgv.Columns(17).Visible = False : 清單2_dgv.Columns(18).Visible = False : 清單2_dgv.Columns(19).Visible = False : 清單2_dgv.Columns(20).Visible = False

  399.             清單2_dgv.Columns(23).Visible = False : 清單2_dgv.Columns(24).Visible = False : 清單2_dgv.Columns(25).Visible = False : 清單2_dgv.Columns(13).Visible = False

  400.             清單2_dgv.Columns(14).Visible = False : 清單2_dgv.Columns(16).Visible = False

  401. 

  402.             清單2_dgv.Columns(26).Visible = True : 清單2_dgv.Columns(27).Visible = True : 清單2_dgv.Columns(28).Visible = True : 清單2_dgv.Columns(29).Visible = True

  403.             清單2_dgv.Columns(30).Visible = True : 清單2_dgv.Columns(31).Visible = True : 清單2_dgv.Columns(32).Visible = True : 清單2_dgv.Columns(39).Visible = True

  404. 

  405.             清單2_dgv.Columns(34).Visible = False : 清單2_dgv.Columns(35).Visible = False : 清單2_dgv.Columns(36).Visible = False : 清單2_dgv.Columns(37).Visible = False

  406.             清單2_dgv.Columns(38).Visible = False : 清單2_dgv.Columns(33).Visible = False : 清單2_dgv.Columns(40).Visible = False : 清單2_dgv.Columns(41).Visible = False

  407.         ElseIf BB(0) = False And BB(1) = False And BB(2) = True And BB(3) = False Then

  408.             清單2_dgv.Columns(17).Visible = False : 清單2_dgv.Columns(18).Visible = False : 清單2_dgv.Columns(19).Visible = False : 清單2_dgv.Columns(20).Visible = False

  409.             清單2_dgv.Columns(23).Visible = False : 清單2_dgv.Columns(24).Visible = False : 清單2_dgv.Columns(25).Visible = False : 清單2_dgv.Columns(13).Visible = False

  410.             清單2_dgv.Columns(14).Visible = False : 清單2_dgv.Columns(16).Visible = False : 清單2_dgv.Columns(26).Visible = False : 清單2_dgv.Columns(27).Visible = False

  411.             清單2_dgv.Columns(28).Visible = False : 清單2_dgv.Columns(29).Visible = False : 清單2_dgv.Columns(30).Visible = False : 清單2_dgv.Columns(31).Visible = False

  412.             清單2_dgv.Columns(32).Visible = False

  413. 

  414.             清單2_dgv.Columns(33).Visible = True : 清單2_dgv.Columns(34).Visible = True : 清單2_dgv.Columns(35).Visible = True : 清單2_dgv.Columns(36).Visible = True

  415.             清單2_dgv.Columns(37).Visible = True : 清單2_dgv.Columns(38).Visible = True : 清單2_dgv.Columns(39).Visible = True : 清單2_dgv.Columns(40).Visible = True

  416.             清單2_dgv.Columns(41).Visible = True

  417.         End If

  418.         清單2_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  419.         For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  420.             清單2_dgv("年份", i).Value = Strings.Left(清單2_dgv("交期開始", i).Value.ToString, 4)

  421.         Next

  422.     End Sub

  423.     Private Sub Set_grid1()

  424.         DataGridView2.Columns(0).FillWeight = 100

  425.     End Sub

  426.     Private Sub Set_自動彙總1()

  427.         TextBox2.Text = "0" : TextBox19.Text = "0" : TextBox34.Text = "0" : TextBox3.Text = "0" : TextBox4.Text = "0" : TextBox36.Text = "0" : TextBox5.Text = "0" : TextBox11.Text = "0"

  428.         TextBox35.Text = "0" : TextBox9.Text = "0" : TextBox20.Text = "0" : TextBox33.Text = "0" : TextBox21.Text = "0" : TextBox22.Text = "0" : TextBox32.Text = "0" : TextBox24.Text = "0"

  429.         TextBox23.Text = "0" : TextBox31.Text = "0" : TextBox26.Text = "0" : TextBox25.Text = "0" : TextBox30.Text = "0" : TextBox28.Text = "0" : TextBox27.Text = "0" : TextBox29.Text = "0"

  430.         For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  431.             If 清單1_dgv("Discount price", i).Value.ToString = "" Then : 清單1_dgv("Discount price", i).Value = 0 : End If

  432.             If 清單1_dgv("Commercial invoice", i).Value.ToString = "" Then : 清單1_dgv("Commercial invoice", i).Value = 0 : End If

  433.             If 清單1_dgv("Mold cost", i).Value.ToString = "" Then : 清單1_dgv("Mold cost", i).Value = 0 : End If

  434.             If 清單1_dgv("Fty price", i).Value.ToString = "" Then : 清單1_dgv("Fty price", i).Value = 0 : End If

  435. 

  436.             清單1_dgv("銷售金額", i).Value = Double.Parse(清單1_dgv("單價", i).Value.ToString) * Double.Parse(清單1_dgv("訂單數量", i).Value)

  437.             清單1_dgv("Discount price", i).Value = Double.Parse(清單1_dgv("單價", i).Value.ToString)

  438.             清單1_dgv("Overage invoice", i).Value = Double.Parse(清單1_dgv("Discount price", i).Value.ToString) - Double.Parse(清單1_dgv("Commercial invoice", i).Value)

  439.             清單1_dgv("Collected mold cost", i).Value = Double.Parse(清單1_dgv("Mold cost", i).Value.ToString) * Double.Parse(清單1_dgv("訂單數量", i).Value)

  440.             If Double.Parse(清單1_dgv("Discount price", i).Value.ToString) - Double.Parse(清單1_dgv("Mold cost", i).Value) = 0 Then

  441.                 清單1_dgv("Profit", i).Value = 0

  442.             Else

  443.                 清單1_dgv("Profit", i).Value = (Double.Parse(清單1_dgv("Discount price", i).Value.ToString) - Double.Parse(清單1_dgv("Mold cost", i).Value) -

  444.                                     Double.Parse(清單1_dgv("Fty price", i).Value)) / (Double.Parse(清單1_dgv("Discount price", i).Value.ToString) -

  445.                                     Double.Parse(清單1_dgv("Mold cost", i).Value)) * 100

  446.             End If

  447.             清單1_dgv("Commission", i).Value = (Double.Parse(清單1_dgv("單價", i).Value.ToString) - Double.Parse(清單1_dgv("Fty price", i).Value) -

  448.                                                         Double.Parse(清單1_dgv("Mold cost", i).Value)) * Double.Parse(清單1_dgv("訂單數量", i).Value)

  449.             清單1_dgv("客戶付款", i).Value = Double.Parse(清單1_dgv("Commercial invoice", i).Value.ToString) * Double.Parse(清單1_dgv("訂單數量", i).Value)

  450.             清單1_dgv("未收款項", i).Value = Double.Parse(清單1_dgv("Overage invoice", i).Value.ToString) * Double.Parse(清單1_dgv("訂單數量", i).Value)

  451.             清單1_dgv("預收款項", i).Value = 0

  452.             清單1_dgv("成本金額", i).Value = (Double.Parse(清單1_dgv("Fty price", i).Value.ToString) + Double.Parse(清單1_dgv("Mold cost", i).Value)) *

  453.                                                           Double.Parse(清單1_dgv("訂單數量", i).Value)

  454.             清單1_dgv("利潤", i).Value = (Double.Parse(清單1_dgv("銷售金額", i).Value.ToString) - Double.Parse(清單1_dgv("成本金額", i).Value))

  455.             清單1_dgv("實際收款", i).Value = (Double.Parse(清單1_dgv("利潤", i).Value.ToString) - Double.Parse(清單1_dgv("未收款項", i).Value))

  456.             TextBox2.Text = Val(TextBox2.Text) + Double.Parse(清單1_dgv("訂單數量", i).Value) : TextBox3.Text = Val(TextBox3.Text) + Double.Parse(清單1_dgv("銷售金額", i).Value)

  457.             TextBox5.Text = Val(TextBox5.Text) + Double.Parse(清單1_dgv("客戶付款", i).Value) : TextBox9.Text = Val(TextBox9.Text) + Double.Parse(清單1_dgv("未收款項", i).Value)

  458.             TextBox21.Text = Val(TextBox21.Text) + Double.Parse(清單1_dgv("預收款項", i).Value) : TextBox24.Text = Val(TextBox24.Text) + Double.Parse(清單1_dgv("成本金額", i).Value)

  459.             TextBox26.Text = Val(TextBox26.Text) + Double.Parse(清單1_dgv("利潤", i).Value) : TextBox28.Text = Val(TextBox28.Text) + Double.Parse(清單1_dgv("實際收款", i).Value)

  460.         Next

  461. 

  462.         For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  463.             If 清單2_dgv("Discount price", i).Value.ToString = "" Then : 清單2_dgv("Discount price", i).Value = 0 : End If

  464.             If 清單2_dgv("Commercial invoice", i).Value.ToString = "" Then : 清單2_dgv("Commercial invoice", i).Value = 0 : End If

  465.             If 清單2_dgv("Mold cost", i).Value.ToString = "" Then : 清單2_dgv("Mold cost", i).Value = 0 : End If

  466.             If 清單2_dgv("Fty price", i).Value.ToString = "" Then : 清單2_dgv("Fty price", i).Value = 0 : End If

  467.             If 清單2_dgv("Selling price", i).Value.ToString = "" Then : 清單2_dgv("Selling price", i).Value = 0 : End If

  468. 

  469.             清單2_dgv("銷售金額", i).Value = Double.Parse(清單2_dgv("單價", i).Value.ToString) * Double.Parse(清單2_dgv("訂單數量", i).Value)

  470.             清單2_dgv("Discount price", i).Value = Double.Parse(清單2_dgv("單價", i).Value.ToString)

  471.             清單2_dgv("Overage invoice", i).Value = Double.Parse(清單2_dgv("Discount price", i).Value.ToString) - Double.Parse(清單2_dgv("Commercial invoice", i).Value)

  472.             清單2_dgv("Collected mold cost", i).Value = Double.Parse(清單2_dgv("Mold cost", i).Value.ToString) * Double.Parse(清單2_dgv("訂單數量", i).Value)

  473.             If Double.Parse(清單2_dgv("Discount price", i).Value.ToString) - Double.Parse(清單2_dgv("Mold cost", i).Value) = 0 Then

  474.                 清單2_dgv("Profit", i).Value = 0

  475.             Else

  476.                 清單2_dgv("Profit", i).Value = (Double.Parse(清單2_dgv("Discount price", i).Value.ToString) - Double.Parse(清單2_dgv("Mold cost", i).Value) -

  477.                                 Double.Parse(清單2_dgv("Fty price", i).Value)) / (Double.Parse(清單2_dgv("Discount price", i).Value.ToString) -

  478.                                 Double.Parse(清單2_dgv("Mold cost", i).Value)) * 100

  479.             End If

  480.             清單2_dgv("Commission", i).Value = (Double.Parse(清單2_dgv("單價", i).Value.ToString) - Double.Parse(清單2_dgv("Fty price", i).Value) -

  481.                                     Double.Parse(清單2_dgv("Mold cost", i).Value)) * Double.Parse(清單2_dgv("訂單數量", i).Value)

  482.             清單2_dgv("客戶付款", i).Value = Double.Parse(清單2_dgv("Selling price", i).Value.ToString) * Double.Parse(清單2_dgv("訂單數量", i).Value)

  483.             清單2_dgv("未收款項", i).Value = 0

  484.             If 清單2_dgv("Selling price", i).Value = 0 Then : 清單2_dgv("預收款項", i).Value = 0 : Else

  485.                 清單2_dgv("預收款項", i).Value = (Double.Parse(清單2_dgv("Selling price", i).Value.ToString) - Double.Parse(清單2_dgv("Discount price", i).Value)) *

  486.                                                       Double.Parse(清單2_dgv("訂單數量", i).Value)

  487.             End If

  488.             清單2_dgv("成本金額", i).Value = (Double.Parse(清單2_dgv("Fty price", i).Value.ToString) + Double.Parse(清單2_dgv("Mold cost", i).Value)) *

  489.                                       Double.Parse(清單2_dgv("訂單數量", i).Value)

  490.             清單2_dgv("利潤", i).Value = (Double.Parse(清單2_dgv("銷售金額", i).Value.ToString) - Double.Parse(清單2_dgv("成本金額", i).Value))

  491.             清單2_dgv("實際收款", i).Value = (Double.Parse(清單2_dgv("利潤", i).Value.ToString) + Double.Parse(清單2_dgv("預收款項", i).Value))

  492.             TextBox19.Text = Val(TextBox19.Text) + Double.Parse(清單2_dgv("訂單數量", i).Value) : TextBox4.Text = Val(TextBox4.Text) + Double.Parse(清單2_dgv("銷售金額", i).Value)

  493.             TextBox11.Text = Val(TextBox11.Text) + Double.Parse(清單2_dgv("客戶付款", i).Value) : TextBox20.Text = Val(TextBox20.Text) + Double.Parse(清單2_dgv("未收款項", i).Value)

  494.             TextBox22.Text = Val(TextBox22.Text) + Double.Parse(清單2_dgv("預收款項", i).Value) : TextBox23.Text = Val(TextBox23.Text) + Double.Parse(清單2_dgv("成本金額", i).Value)

  495.             TextBox25.Text = Val(TextBox25.Text) + Double.Parse(清單2_dgv("利潤", i).Value) : TextBox27.Text = Val(TextBox27.Text) + Double.Parse(清單2_dgv("實際收款", i).Value)

  496.         Next

  497.         TextBox34.Text = Val(TextBox19.Text) + Val(TextBox2.Text) : TextBox36.Text = Val(TextBox3.Text) + Val(TextBox4.Text) : TextBox35.Text = Val(TextBox5.Text) + Val(TextBox11.Text)

  498.         TextBox33.Text = Val(TextBox9.Text) + Val(TextBox20.Text) : TextBox32.Text = Val(TextBox21.Text) + Val(TextBox22.Text) : TextBox31.Text = Val(TextBox24.Text) + Val(TextBox23.Text)

  499.         TextBox30.Text = Val(TextBox26.Text) + Val(TextBox25.Text) : TextBox29.Text = Val(TextBox28.Text) + Val(TextBox27.Text) : TextBox37.Text = Val(TextBox32.Text) - Val(TextBox33.Text)

  500. 

  501.         If Val(TextBox28.Text) >= 0 Then : TextBox28.ForeColor = Color.Blue : Else : TextBox28.ForeColor = Color.Red : End If

  502.         If Val(TextBox27.Text) >= 0 Then : TextBox27.ForeColor = Color.Blue : Else : TextBox27.ForeColor = Color.Red : End If

  503.         If Val(TextBox29.Text) >= 0 Then : TextBox29.ForeColor = Color.Blue : Else : TextBox29.ForeColor = Color.Red : End If

  504.         If Val(TextBox37.Text) >= 0 Then : TextBox37.ForeColor = Color.Blue : Else : TextBox37.ForeColor = Color.Red : End If

  505. 

  506.         TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0") : TextBox19.Text = Strings.Format(Val(TextBox19.Text), "#,##0") : TextBox34.Text = Strings.Format(Val(TextBox34.Text), "#,##0")

  507.         TextBox3.Text = Strings.Format(Val(TextBox3.Text), "#,##0.00") : TextBox4.Text = Strings.Format(Val(TextBox4.Text), "#,##0.00") : TextBox36.Text = Strings.Format(Val(TextBox36.Text), "#,##0.00")

  508.         TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0.00") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0.00") : TextBox35.Text = Strings.Format(Val(TextBox35.Text), "#,##0.00")

  509.         TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0.00") : TextBox20.Text = Strings.Format(Val(TextBox20.Text), "#,##0.00") : TextBox33.Text = Strings.Format(Val(TextBox33.Text), "#,##0.00")

  510.         TextBox21.Text = Strings.Format(Val(TextBox21.Text), "#,##0.00") : TextBox22.Text = Strings.Format(Val(TextBox22.Text), "#,##0.00") : TextBox32.Text = Strings.Format(Val(TextBox32.Text), "#,##0.00")

  511.         TextBox24.Text = Strings.Format(Val(TextBox24.Text), "#,##0.00") : TextBox23.Text = Strings.Format(Val(TextBox23.Text), "#,##0.00") : TextBox31.Text = Strings.Format(Val(TextBox31.Text), "#,##0.00")

  512.         TextBox26.Text = Strings.Format(Val(TextBox26.Text), "#,##0.00") : TextBox25.Text = Strings.Format(Val(TextBox25.Text), "#,##0.00") : TextBox30.Text = Strings.Format(Val(TextBox30.Text), "#,##0.00")

  513.         TextBox28.Text = Strings.Format(Val(TextBox28.Text), "#,##0.00") : TextBox27.Text = Strings.Format(Val(TextBox27.Text), "#,##0.00") : TextBox29.Text = Strings.Format(Val(TextBox29.Text), "#,##0.00")

  514.         TextBox37.Text = Strings.Format(Val(TextBox37.Text), "#,##0.00")

  515.     End Sub

  516.     Private Sub Set_格式()

  517.         TextBox1.Enabled = False : TextBox12.Enabled = False : TextBox13.Enabled = False : TextBox14.Enabled = False : TextBox15.Enabled = False

  518.         TextBox6.Visible = False : TextBox7.Visible = False : TextBox16.Visible = False : TextBox17.Visible = False : TextBox10.Visible = False : TextBox8.Visible = False

  519.         Button6.Enabled = False : Timer1.Enabled = False : Label47.Visible = False : Button5.Enabled = True : Button9.Enabled = True

  520.         Button11.Enabled = False : Button12.Enabled = False : Button13.Enabled = False

  521.     End Sub

  522.     Private Sub 訂單價格利潤明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  523.         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  524.         ComboBox1.Text = Year(Today) : ComboBox10.SelectedIndex = 0 : ComboBox2.SelectedIndex = 0

  525.         BB(0) = True : BB(1) = False : BB(2) = False : BB(3) = False

  526.         Button34.Enabled = False : TextBox18.Visible = False

  527.         Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()

  528.     End Sub

  529.     Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.TextChanged

  530.         If ComboBox10.Text = "LANDED BRANDED" Then

  531.             清單1_dgv.Visible = True : 清單2_dgv.Visible = False

  532.         Else

  533.             清單1_dgv.Visible = False : 清單2_dgv.Visible = True

  534.         End If

  535.         Set_未建檔清單() : Set_自動彙總1()

  536.     End Sub

  537.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

  538.         If Label47.Visible = True Then : Label47.Visible = False : Else : Label47.Visible = True : End If

  539.     End Sub

  540.     Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellEndEdit

  541.         Set_自動彙總1()

  542.     End Sub

  543.     Private Sub DataGridView3_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 清單2_dgv.CellEndEdit

  544.         Set_自動彙總1()

  545.     End Sub

  546.     Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick

  547.         If e.RowIndex = -1 Then : Else

  548.             TextBox1.Text = 清單1_dgv("訂單流水號", e.RowIndex).Value.ToString : TextBox12.Text = 清單1_dgv("客戶訂單號", e.RowIndex).Value.ToString

  549.             TextBox13.Text = 清單1_dgv("型體號碼", e.RowIndex).Value.ToString : TextBox14.Text = 清單1_dgv("顏色", e.RowIndex).Value.ToString

  550.             TextBox15.Text = 清單1_dgv("楦型", e.RowIndex).Value.ToString : TextBox16.Text = 清單1_dgv("資料流水號", e.RowIndex).Value.ToString

  551.             ComboBox1.Text = 清單1_dgv("年份", e.RowIndex).Value.ToString : ComboBox2.Text = 清單1_dgv("Currency", e.RowIndex).Value.ToString

  552.             TextBox17.Text = 清單1_dgv("利潤表流水號", e.RowIndex).Value.ToString

  553.         End If

  554.     End Sub

  555.     Private Sub DataGridView3_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 清單2_dgv.CellClick

  556.         If e.RowIndex = -1 Then : Else

  557.             TextBox1.Text = 清單2_dgv("訂單流水號", e.RowIndex).Value.ToString : TextBox12.Text = 清單2_dgv("客戶訂單號", e.RowIndex).Value.ToString

  558.             TextBox13.Text = 清單2_dgv("型體號碼", e.RowIndex).Value.ToString : TextBox14.Text = 清單2_dgv("顏色", e.RowIndex).Value.ToString

  559.             TextBox15.Text = 清單2_dgv("楦型", e.RowIndex).Value.ToString : TextBox16.Text = 清單2_dgv("資料流水號", e.RowIndex).Value.ToString

  560.             ComboBox1.Text = 清單2_dgv("年份", e.RowIndex).Value.ToString : ComboBox2.Text = 清單2_dgv("Currency", e.RowIndex).Value.ToString

  561.             TextBox17.Text = 清單2_dgv("利潤表流水號", e.RowIndex).Value.ToString

  562.         End If

  563.     End Sub

  564.     Private Sub DataGridView2_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick

  565.         If e.RowIndex = -1 Then : Else

  566.             TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString

  567.             Timer1.Enabled = True : Button6.Enabled = True : CheckBox1.Checked = True : CheckBox2.Checked = False : Button5.Enabled = False : Button9.Enabled = False

  568.             Button11.Enabled = True : Button12.Enabled = True : Button13.Enabled = True

  569.             Set_訂單清單1() : Set_訂單清單2()

  570.         End If

  571.     End Sub

  572.     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

  573.         If CheckBox1.Checked = True Then

  574.             If TextBox16.Text = "" Or TextBox1.Text = "" Then

  575.                 MsgBox("沒有選擇將要拆分的資料")

  576.             Else

  577.                 Dim NUM2 As Integer

  578.                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  579.                 SQL1 = "Select Top(1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC"

  580.                 cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  581.                 If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If

  582.                 conn.Close()

  583.                 NUM2 += 1

  584.                 If NUM2 < 10 Then : WW = "PR" & "0000000" & NUM2

  585.                 ElseIf NUM2 > 9 And NUM2 < 100 Then : WW = "PR" & "000000" & NUM2

  586.                 ElseIf NUM2 > 99 And NUM2 < 1000 Then : WW = "PR" & "00000" & NUM2

  587.                 ElseIf NUM2 > 999 And NUM2 < 10000 Then : WW = "PR" & "0000" & NUM2

  588.                 ElseIf NUM2 > 9999 And NUM2 < 100000 Then : WW = "PR" & "000" & NUM2

  589.                 ElseIf NUM2 > 99999 And NUM2 < 100000 Then : WW = "PR" & "00" & NUM2

  590.                 ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : WW = "PR" & "0" & NUM2

  591.                 ElseIf NUM2 > 9999999 Then : WW = "PR" & NUM2

  592.                 End If

  593.                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  594.                 SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) " &

  595.                            "VALUES ('" & TextBox16.Text & "','" & WW & "', '" & TextBox1.Text & "')"

  596.                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  597.                 Set_編輯清單1() : Set_編輯清單2() : Set_grid() : Set_grid3() : Set_自動彙總1()

  598.             End If

  599.         ElseIf CheckBox1.Checked = False Then

  600.             Dim NUM2 As Integer

  601.             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  602.             SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤明細表 ORDER BY 利潤表流水號 DESC"

  603.             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  604.             If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If

  605.             conn.Close()

  606.             NUM2 += 1

  607.             If NUM2 < 10 Then : WW = "PR" & "0000000" & NUM2

  608.             ElseIf NUM2 > 9 And NUM2 < 100 Then : WW = "PR" & "000000" & NUM2

  609.             ElseIf NUM2 > 99 And NUM2 < 1000 Then : WW = "PR" & "00000" & NUM2

  610.             ElseIf NUM2 > 999 And NUM2 < 10000 Then : WW = "PR" & "0000" & NUM2

  611.             ElseIf NUM2 > 9999 And NUM2 < 100000 Then : WW = "PR" & "000" & NUM2

  612.             ElseIf NUM2 > 99999 And NUM2 < 100000 Then : WW = "PR" & "00" & NUM2

  613.             ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : WW = "PR" & "0" & NUM2

  614.             ElseIf NUM2 > 9999999 Then : WW = "PR" & NUM2

  615.             End If

  616.             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  617.             SQL1 = "INSERT INTO 訂單價格利潤明細表 (資料流水號, 訂單流水號, 客戶訂單號, 利潤表流水號, 年份, Quantity, Exchange, 審核, 類型, Price, 

  618.                             Discount_price, Commercial_invoice, Overage_invoice, Selling_price, HTS_code, Remark1, Fty_price, Mold_cost, 

  619.                             Collected_mold_cost, Amortization_qty, Profit, Commission, Remark2, Currency) " &

  620.                "VALUES ('" & TextBox16.Text & "', '" & TextBox1.Text & "', '" & TextBox12.Text & "', '" & WW & "', '" & ComboBox1.Text & "', N'0', N'0', N'0', N'0', '" & ComboBox10.Text &

  621.                         "', N'0', N'0', N'0', N'0', N'0', N'', N'', N'0', N'0', N'0', N'0', N'0', N'0', N'', '" & ComboBox2.Text & "')"

  622.             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  623.             Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_自動彙總1()

  624.         End If

  625.     End Sub

  626.     Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

  627.         If CheckBox1.Checked = True Then

  628.             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  629.             SQL1 = "DELETE FROM 訂單價格利潤表暫存檔 WHERE 利潤表流水號 LIKE '" & TextBox17.Text & "'"

  630.             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  631.             Set_編輯清單1() : Set_編輯清單2() : Set_grid() : Set_grid3() : Set_自動彙總1()

  632.         ElseIf CheckBox1.Checked = False Then

  633.             If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  634.             SQL1 = "DELETE FROM 訂單價格利潤明細表 WHERE 利潤表流水號 LIKE '" & TextBox17.Text & "'"

  635.             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  636.             Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_自動彙總1()

  637.         End If

  638.     End Sub

  639.     Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單1_dgv.RowPostPaint

  640.         Dim linePen As New Pen(Color.Blue, 2)

  641.         If e.RowIndex = 清單1_dgv.Rows.Count - 1 Then

  642.             Exit Sub

  643.         Else

  644.             If 清單1_dgv(2, e.RowIndex).Value.ToString <> 清單1_dgv(2, e.RowIndex + 1).Value.ToString Then

  645.                 Dim startX As Integer = IIf(清單1_dgv.RowHeadersVisible, 清單1_dgv.RowHeadersWidth, 0)

  646.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  647.                 Dim endX As Integer = startX + 清單1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單1_dgv.HorizontalScrollingOffset

  648.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  649.                 Exit Sub

  650.             End If

  651.         End If

  652.     End Sub

  653.     Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單2_dgv.RowPostPaint

  654.         Dim linePen As New Pen(Color.Blue, 2)

  655.         If e.RowIndex = 清單2_dgv.Rows.Count - 1 Then

  656.             Exit Sub

  657.         Else

  658.             If 清單2_dgv(2, e.RowIndex).Value.ToString <> 清單2_dgv(2, e.RowIndex + 1).Value.ToString Then

  659.                 Dim startX As Integer = IIf(清單2_dgv.RowHeadersVisible, 清單2_dgv.RowHeadersWidth, 0)

  660.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  661.                 Dim endX As Integer = startX + 清單2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單2_dgv.HorizontalScrollingOffset

  662.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  663.                 Exit Sub

  664.             End If

  665.         End If

  666.     End Sub

  667.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  668.         PA = ""

  669.         CheckBox1.Checked = False : CheckBox2.Checked = True : TextBox1.Text = ""

  670.         Timer1.Enabled = False : Label47.Visible = False : Button6.Enabled = False : Button5.Enabled = True : Button9.Enabled = True

  671.         Button11.Enabled = False : Button12.Enabled = False : Button13.Enabled = False

  672.         Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1()

  673.     End Sub

  674.     Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click

  675.         Button34.Enabled = False : Button35.Enabled = True : Button2.Enabled = True

  676.         BB(0) = True : BB(1) = False : BB(2) = False : BB(3) = False

  677.         Set_grid() : Set_grid3()

  678.     End Sub

  679.     Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click

  680.         Button34.Enabled = True : Button35.Enabled = False : Button2.Enabled = True

  681.         BB(0) = False : BB(1) = True : BB(2) = False : BB(3) = False

  682.         Set_grid() : Set_grid3()

  683.     End Sub

  684.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

  685.         Button34.Enabled = True : Button35.Enabled = True : Button2.Enabled = False

  686.         BB(0) = False : BB(1) = False : BB(2) = True : BB(3) = False

  687.         Set_grid() : Set_grid3()

  688.     End Sub

  689.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

  690.         PA = InputBox("請輸入要查詢的資料") : TextBox1.Text = ""

  691.         If ComboBox10.Text = "LANDED BRANDED" Then

  692.             Set_訂單清單1() : Set_grid() : Set_自動彙總1()

  693.         Else

  694.             Set_訂單清單2() : Set_grid3() : Set_自動彙總1()

  695.         End If

  696.     End Sub

  697.     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click

  698.         CheckBox1.Checked = True : CheckBox2.Checked = False

  699.     End Sub

  700.     Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click

  701.         CheckBox1.Checked = False : CheckBox2.Checked = True

  702.     End Sub

  703.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

  704.         Set_未建檔清單() : Set_grid1()

  705.     End Sub

  706.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

  707.         If ComboBox1.Text = "" Or ComboBox2.Text = "" Then

  708.             MsgBox("年份或幣別沒有選擇")

  709.         Else

  710.             If ComboBox10.Text = "LANDED BRANDED" Then

  711.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  712.                     資料數 = 清單1_dgv.Rows.Count : 進度條()

  713.                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  714.                     SQL1 = "SELECT 利潤表流水號 FROM 訂單價格利潤明細表 WHERE (資料流水號 LIKE '" & 清單1_dgv.Rows(i).Cells("資料流水號").Value & "')"

  715.                     cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  716.                     If dr.Read() Then

  717.                         conn.Close()

  718.                     Else

  719.                         conn.Close()

  720.                         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  721.                         SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & 清單1_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 清單1_dgv.Rows(i).Cells("銷售金額").Value & "' " &

  722.                        "WHERE (資料流水號 LIKE '" & 清單1_dgv.Rows(i).Cells("資料流水號").Value & "')"

  723.                         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  724.                         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  725. 

  726.                         SQL1 = "INSERT INTO 訂單價格利潤明細表 (資料流水號, 訂單流水號, 客戶訂單號, 利潤表流水號, 年份, Quantity, Exchange, 審核, 類型, Price, 

  727.                             Discount_price, Commercial_invoice, Overage_invoice, Selling_price, HTS_code, Remark1, Fty_price, Mold_cost, 

  728.                             Collected_mold_cost, Amortization_qty, Profit, Commission, Remark2, Currency) " &

  729.                        "VALUES ('" & 清單1_dgv.Rows(i).Cells("資料流水號").Value & "', '" & 清單1_dgv.Rows(i).Cells("訂單流水號").Value &

  730.                             "', '" & 清單1_dgv.Rows(i).Cells("客戶訂單號").Value & "', '" & 清單1_dgv.Rows(i).Cells("利潤表流水號").Value &

  731.                             "', '" & ComboBox1.Text & "', '" & 清單1_dgv.Rows(i).Cells("Quantity").Value &

  732.                             "', '" & 清單1_dgv.Rows(i).Cells("Exchange").Value & "', '" & 清單1_dgv.Rows(i).Cells("審核").Value & "', '" & ComboBox10.Text &

  733.                             "', '" & 清單1_dgv.Rows(i).Cells("Price").Value & "', '" & 清單1_dgv.Rows(i).Cells("Discount price").Value &

  734.                             "', '" & 清單1_dgv.Rows(i).Cells("Commercial invoice").Value & "', '" & 清單1_dgv.Rows(i).Cells("Overage invoice").Value &

  735.                             "', '" & 清單1_dgv.Rows(i).Cells("Selling price").Value & "', '" & 清單1_dgv.Rows(i).Cells("HTS code").Value &

  736.                             "', '" & 清單1_dgv.Rows(i).Cells("Remark1").Value & "', '" & 清單1_dgv.Rows(i).Cells("Fty price").Value &

  737.                             "', '" & 清單1_dgv.Rows(i).Cells("Mold cost").Value & "', '" & 清單1_dgv.Rows(i).Cells("Collected mold cost").Value &

  738.                             "', '" & 清單1_dgv.Rows(i).Cells("Amortization qty").Value & "', '" & 清單1_dgv.Rows(i).Cells("Profit").Value &

  739.                             "', '" & 清單1_dgv.Rows(i).Cells("Commission").Value & "', '" & 清單1_dgv.Rows(i).Cells("Remark2").Value & "', '" & ComboBox2.Text & "')"

  740.                         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  741.                     End If

  742.                 Next i : ProgressBar1.Value = 0 : 最終數 = 0

  743.             Else

  744.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  745.                     資料數 = 清單2_dgv.Rows.Count : 進度條()

  746.                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  747.                     SQL1 = "SELECT 利潤表流水號 FROM 訂單價格利潤明細表 WHERE (資料流水號 LIKE '" & 清單2_dgv.Rows(i).Cells("資料流水號").Value & "')"

  748.                     cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  749.                     If dr.Read() Then

  750.                         conn.Close()

  751.                     Else

  752.                         conn.Close()

  753.                         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  754.                         SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & 清單2_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 清單2_dgv.Rows(i).Cells("銷售金額").Value & "' " &

  755.                        "WHERE (資料流水號 LIKE '" & 清單2_dgv.Rows(i).Cells("資料流水號").Value & "')"

  756.                         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  757.                         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  758. 

  759.                         SQL1 = "INSERT INTO 訂單價格利潤明細表 (資料流水號, 訂單流水號, 客戶訂單號, 利潤表流水號, 年份, Quantity, Exchange, 審核, 類型, Price, 

  760.                             Discount_price, Commercial_invoice, Overage_invoice, Selling_price, HTS_code, Remark1, Fty_price, Mold_cost, 

  761.                             Collected_mold_cost, Amortization_qty, Profit, Commission, Remark2, Currency) " &

  762.                        "VALUES ('" & 清單2_dgv.Rows(i).Cells("資料流水號").Value & "', '" & 清單2_dgv.Rows(i).Cells("訂單流水號").Value &

  763.                             "', '" & 清單2_dgv.Rows(i).Cells("客戶訂單號").Value & "', '" & 清單2_dgv.Rows(i).Cells("利潤表流水號").Value &

  764.                             "', '" & ComboBox1.Text & "', '" & 清單2_dgv.Rows(i).Cells("Quantity").Value &

  765.                             "', '" & 清單2_dgv.Rows(i).Cells("Exchange").Value & "', '" & 清單2_dgv.Rows(i).Cells("審核").Value & "', '" & ComboBox10.Text &

  766.                             "', '" & 清單2_dgv.Rows(i).Cells("Price").Value & "', '" & 清單2_dgv.Rows(i).Cells("Discount price").Value &

  767.                             "', '" & 清單2_dgv.Rows(i).Cells("Commercial invoice").Value & "', '" & 清單2_dgv.Rows(i).Cells("Overage invoice").Value &

  768.                             "', '" & 清單2_dgv.Rows(i).Cells("Selling price").Value & "', '" & 清單2_dgv.Rows(i).Cells("HTS code").Value &

  769.                             "', '" & 清單2_dgv.Rows(i).Cells("Remark1").Value & "', '" & 清單2_dgv.Rows(i).Cells("Fty price").Value &

  770.                             "', '" & 清單2_dgv.Rows(i).Cells("Mold cost").Value & "', '" & 清單2_dgv.Rows(i).Cells("Collected mold cost").Value &

  771.                             "', '" & 清單2_dgv.Rows(i).Cells("Amortization qty").Value & "', '" & 清單2_dgv.Rows(i).Cells("Profit").Value &

  772.                             "', '" & 清單2_dgv.Rows(i).Cells("Commission").Value & "', '" & 清單2_dgv.Rows(i).Cells("Remark2").Value & "', '" & ComboBox2.Text & "')"

  773.                         cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  774.                     End If

  775.                 Next i : ProgressBar1.Value = 0 : 最終數 = 0

  776.             End If

  777.             MsgBox("存檔完成")

  778.             CheckBox1.Checked = False : CheckBox2.Checked = True

  779.             Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()

  780.         End If

  781.     End Sub

  782.     Private Sub 進度條()

  783.         平均數 = 10000 / 資料數

  784.         最終數 += 平均數

  785.         If 最終數 > 10000 Then : 最終數 = 10000 : End If

  786.         ProgressBar1.Value = 最終數

  787.     End Sub

  788.     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

  789.         If ComboBox1.Text = "" Or ComboBox2.Text = "" Then

  790.             MsgBox("年份或幣別沒有選擇")

  791.         Else

  792.             If ComboBox10.Text = "LANDED BRANDED" Then

  793.                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  794.                     資料數 = 清單1_dgv.Rows.Count : 進度條()

  795.                     conn.Close()

  796.                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  797.                     SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & 清單1_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 清單1_dgv.Rows(i).Cells("銷售金額").Value & "' " &

  798.                            "WHERE (資料流水號 LIKE '" & 清單1_dgv.Rows(i).Cells("資料流水號").Value & "')"

  799.                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  800.                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  801.                     SQL1 = "UPDATE 訂單價格利潤明細表 SET  年份 = '" & 清單1_dgv.Rows(i).Cells("年份").Value & "', Quantity = '" & 清單1_dgv.Rows(i).Cells("Quantity").Value &

  802.                                                     "', Exchange = '" & 清單1_dgv.Rows(i).Cells("Exchange").Value & "', 審核 = '" & 清單1_dgv.Rows(i).Cells("審核").Value &

  803.                                                     "', Price = '" & 清單1_dgv.Rows(i).Cells("Price").Value & "', Discount_price = '" & 清單1_dgv.Rows(i).Cells("Discount price").Value &

  804.                                                     "', Commercial_invoice = '" & 清單1_dgv.Rows(i).Cells("Commercial invoice").Value &

  805.                                                     "', Overage_invoice = '" & 清單1_dgv.Rows(i).Cells("Overage invoice").Value &

  806.                                                     "', Selling_price = '" & 清單1_dgv.Rows(i).Cells("Selling price").Value & "', HTS_code = '" & 清單1_dgv.Rows(i).Cells("HTS code").Value &

  807.                                                     "', Remark1 = '" & 清單1_dgv.Rows(i).Cells("Remark1").Value & "', Fty_price = '" & 清單1_dgv.Rows(i).Cells("Fty price").Value &

  808.                                                     "', Mold_cost = '" & 清單1_dgv.Rows(i).Cells("Mold cost").Value &

  809.                                                     "', Collected_mold_cost = '" & 清單1_dgv.Rows(i).Cells("Collected mold cost").Value &

  810.                                                     "', Amortization_qty = '" & 清單1_dgv.Rows(i).Cells("Amortization qty").Value & "' , Profit = '" & 清單1_dgv.Rows(i).Cells("Profit").Value &

  811.                                                     "', Commission = '" & 清單1_dgv.Rows(i).Cells("Commission").Value & "', Remark2 = '" & 清單1_dgv.Rows(i).Cells("Remark2").Value &

  812.                                                     "', Currency = '" & ComboBox2.Text & "'

  813.                         WHERE (利潤表流水號 LIKE '" & 清單1_dgv.Rows(i).Cells("利潤表流水號").Value & "')"

  814.                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  815.                     TextBox18.Text = Strings.Format(Val((i / (清單1_dgv.Rows.Count - 1)) * 100), "#,##0.0") & "%"

  816.                 Next i : ProgressBar1.Value = 0 : 最終數 = 0

  817.             Else

  818.                 For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  819.                     資料數 = 清單2_dgv.Rows.Count : 進度條()

  820.                     conn.Close()

  821.                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  822.                     SQL1 = "UPDATE 訂單控制表 SET  單價 = '" & 清單2_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 清單2_dgv.Rows(i).Cells("銷售金額").Value & "' " &

  823.                            "WHERE (資料流水號 LIKE '" & 清單2_dgv.Rows(i).Cells("資料流水號").Value & "')"

  824.                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  825.                     If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  826.                     SQL1 = "UPDATE 訂單價格利潤明細表 SET  年份 = '" & 清單2_dgv.Rows(i).Cells("年份").Value & "', Quantity = '" & 清單2_dgv.Rows(i).Cells("Quantity").Value &

  827.                                                     "', Exchange = '" & 清單2_dgv.Rows(i).Cells("Exchange").Value & "', 審核 = '" & 清單2_dgv.Rows(i).Cells("審核").Value &

  828.                                                     "', Price = '" & 清單2_dgv.Rows(i).Cells("Price").Value & "', Discount_price = '" & 清單2_dgv.Rows(i).Cells("Discount price").Value &

  829.                                                     "', Commercial_invoice = '" & 清單2_dgv.Rows(i).Cells("Commercial invoice").Value &

  830.                                                     "', Overage_invoice = '" & 清單2_dgv.Rows(i).Cells("Overage invoice").Value &

  831.                                                     "', Selling_price = '" & 清單2_dgv.Rows(i).Cells("Selling price").Value & "', HTS_code = '" & 清單2_dgv.Rows(i).Cells("HTS code").Value &

  832.                                                     "', Remark1 = '" & 清單2_dgv.Rows(i).Cells("Remark1").Value & "', Fty_price = '" & 清單2_dgv.Rows(i).Cells("Fty price").Value &

  833.                                                     "', Mold_cost = '" & 清單2_dgv.Rows(i).Cells("Mold cost").Value &

  834.                                                     "', Collected_mold_cost = '" & 清單2_dgv.Rows(i).Cells("Collected mold cost").Value &

  835.                                                     "', Amortization_qty = '" & 清單2_dgv.Rows(i).Cells("Amortization qty").Value & "' , Profit = '" & 清單2_dgv.Rows(i).Cells("Profit").Value &

  836.                                                     "', Commission = '" & 清單2_dgv.Rows(i).Cells("Commission").Value & "', Remark2 = '" & 清單2_dgv.Rows(i).Cells("Remark2").Value &

  837.                                                     "', Currency = '" & ComboBox2.Text & "'

  838.                         WHERE (利潤表流水號 LIKE '" & 清單2_dgv.Rows(i).Cells("利潤表流水號").Value & "')"

  839.                     cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  840.                     TextBox18.Text = Strings.Format(Val((i / (清單2_dgv.Rows.Count - 1)) * 100), "#,##0.0") & "%"

  841.                 Next i : ProgressBar1.Value = 0 : 最終數 = 0

  842. 

  843.             End If

  844.             MsgBox("修改完成")

  845.             CheckBox1.Checked = False : CheckBox2.Checked = True

  846.             Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()

  847.         End If

  848.     End Sub

  849.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

  850.         If TextBox1.Text = "" Then

  851.             MsgBox("請選擇要刪除的資料")

  852.         Else

  853.             Dim aa As MsgBoxResult

  854.             aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)

  855.             If aa = MsgBoxResult.Ok Then

  856.                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  857.                 SQL1 = "UPDATE 訂單控制表 SET  單價 = '0.00', 總金額 = '0.00' " &

  858.                        "WHERE (訂單流水號 LIKE '" & TextBox1.Text & "')"

  859.                 cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

  860.                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  861.                 SQL1 = "DELETE FROM 訂單價格利潤明細表 WHERE (訂單流水號 = '" & TextBox1.Text & "')"

  862.                 cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  863.                 MsgBox("刪除完成")

  864.             End If

  865.         End If

  866.         Set_訂單清單1() : Set_訂單清單2() : Set_grid() : Set_grid3() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()

  867.     End Sub

  868.     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

  869.         If ComboBox10.Text = "LANDED BRANDED" Then

  870.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(i).Cells("Quantity").Value = 0 : Next i

  871.         Else

  872.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 清單2_dgv.Rows(i).Cells("Quantity").Value = 0 : Next i

  873.         End If

  874.     End Sub

  875.     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

  876.         If ComboBox10.Text = "LANDED BRANDED" Then

  877.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(i).Cells("Quantity").Value = 清單1_dgv.Rows(i).Cells("訂單數量").Value : Next i

  878.         Else

  879.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 清單2_dgv.Rows(i).Cells("Quantity").Value = 清單2_dgv.Rows(i).Cells("訂單數量").Value : Next i

  880.         End If

  881.     End Sub

  882.     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

  883.         If ComboBox10.Text = "LANDED BRANDED" Then

  884.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(i).Cells("Exchange").Value = 1 : Next i

  885.         Else

  886.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 清單2_dgv.Rows(i).Cells("Exchange").Value = 1 : Next i

  887.         End If

  888.     End Sub

  889.     Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

  890.         If ComboBox10.Text = "LANDED BRANDED" Then

  891.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(i).Cells("Currency").Value = ComboBox2.Text : Next i

  892.         Else

  893.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 清單2_dgv.Rows(i).Cells("Currency").Value = ComboBox2.Text : Next i

  894.         End If

  895.     End Sub

  896.     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

  897.         If ComboBox10.Text = "LANDED BRANDED" Then

  898.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(i).Cells("年份").Value = ComboBox1.Text : Next i

  899.         Else

  900.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1 : 清單2_dgv.Rows(i).Cells("年份").Value = ComboBox1.Text : Next i

  901.         End If

  902.     End Sub

  903.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

  904.         If 列印用SQL = "" Then : MsgBox("請先搜尋資料後再行列印")

  905.         Else

  906.             xlApp = CType(CreateObject("Excel.Application"), Application)

  907.             xlBook = xlApp.Workbooks.Add

  908.             xlApp.DisplayAlerts = True

  909.             xlApp.Visible = True

  910.             xlApp.Application.WindowState = xlMaximized

  911. 

  912.             xlSheet = NewMethod(xlBook)

  913.             xlApp.Sheets(1).Name = "FIRST COST"

  914.             xlBook.Activate() : xlSheet.Activate()

  915. 

  916.             xlSheet.Cells(3, 1) = "BUYER" : xlSheet.Cells(3, 7) = "顏色" : xlSheet.Cells(3, 13) = "銷售金額" : xlSheet.Cells(3, 19) = "Remark1" : xlSheet.Cells(3, 25) = "Commission"

  917.             xlSheet.Cells(3, 2) = "年份季度" : xlSheet.Cells(3, 8) = "楦型" : xlSheet.Cells(3, 14) = "備註" : xlSheet.Cells(3, 20) = "Fty price" : xlSheet.Cells(3, 26) = "Remark2"

  918.             xlSheet.Cells(3, 3) = "訂單流水號" : xlSheet.Cells(3, 9) = "訂單數量" : xlSheet.Cells(3, 15) = "Price" : xlSheet.Cells(3, 21) = "Mold cost" : xlSheet.Cells(3, 27) = "客戶付款"

  919.             xlSheet.Cells(3, 4) = "客戶訂單號" : xlSheet.Cells(3, 10) = "交期開始" : xlSheet.Cells(3, 16) = "Discount price" : xlSheet.Cells(3, 22) = "Collected mold cost" : xlSheet.Cells(3, 28) = "預收款項"

  920.             xlSheet.Cells(3, 5) = "型體號碼" : xlSheet.Cells(3, 11) = "交期結束" : xlSheet.Cells(3, 17) = "Selling price" : xlSheet.Cells(3, 23) = "Amortization qty" : xlSheet.Cells(3, 29) = "成本金額"

  921.             xlSheet.Cells(3, 6) = "型體名稱" : xlSheet.Cells(3, 12) = "單價" : xlSheet.Cells(3, 18) = "HTS code" : xlSheet.Cells(3, 24) = "Profit" : xlSheet.Cells(3, 30) = "利潤"

  922.             xlSheet.Cells(1, 8) = "Total-PRS" : xlSheet.Cells(2, 8) = "=SUBTOTAL(9,I4:I$99999)" : xlSheet.Cells(1, 24) = "Total-Commission" : xlSheet.Cells(2, 24) = "=SUBTOTAL(9,Y4:Y$99999)"

  923.             xlSheet.Cells(3, 31) = "實際收款" : xlSheet.Cells(3, 32) = "Currency" : xlSheet.Cells(3, 33) = "Exchange" : xlSheet.Cells(3, 34) = "年份" : xlSheet.Cells(1, 26) = "合計"

  924.             xlSheet.Cells(1, 27) = "=SUBTOTAL(9,AA4:AA$99999)" : xlSheet.Cells(1, 28) = "=SUBTOTAL(9,AB4:AB$99999)" : xlSheet.Cells(1, 29) = "=SUBTOTAL(9,AC4:AC$99999)"

  925.             xlSheet.Cells(1, 30) = "=SUBTOTAL(9,AD4:AD$99999)" : xlSheet.Cells(1, 31) = "=SUBTOTAL(9,AE4:AE$99999)" : xlSheet.Cells(1, 1) = "FIRST COST"

  926.             For i As Integer = 0 To 清單2_dgv.Rows.Count - 1

  927.                 xlSheet.Cells(i + 4, 1) = 清單2_dgv.Rows(i).Cells("BUYER").Value : xlSheet.Cells(i + 4, 2) = 清單2_dgv.Rows(i).Cells("年份季度").Value

  928.                 xlSheet.Cells(i + 4, 3) = 清單2_dgv.Rows(i).Cells("訂單流水號").Value : xlSheet.Cells(i + 4, 4) = 清單2_dgv.Rows(i).Cells("客戶訂單號").Value

  929.                 xlSheet.Cells(i + 4, 5) = 清單2_dgv.Rows(i).Cells("型體號碼").Value : xlSheet.Cells(i + 4, 6) = 清單2_dgv.Rows(i).Cells("型體名稱").Value

  930.                 xlSheet.Cells(i + 4, 7) = 清單2_dgv.Rows(i).Cells("顏色").Value : xlSheet.Cells(i + 4, 8) = 清單2_dgv.Rows(i).Cells("楦型").Value

  931.                 xlSheet.Cells(i + 4, 9) = 清單2_dgv.Rows(i).Cells("訂單數量").Value : xlSheet.Cells(i + 4, 10) = 清單2_dgv.Rows(i).Cells("交期開始").Value

  932.                 xlSheet.Cells(i + 4, 11) = 清單2_dgv.Rows(i).Cells("交期結束").Value : xlSheet.Cells(i + 4, 12) = 清單2_dgv.Rows(i).Cells("單價").Value

  933.                 xlSheet.Cells(i + 4, 13) = 清單2_dgv.Rows(i).Cells("銷售金額").Value : xlSheet.Cells(i + 4, 14) = 清單2_dgv.Rows(i).Cells("備註").Value

  934.                 xlSheet.Cells(i + 4, 15) = 清單2_dgv.Rows(i).Cells("Price").Value : xlSheet.Cells(i + 4, 16) = 清單2_dgv.Rows(i).Cells("Discount price").Value

  935.                 xlSheet.Cells(i + 4, 17) = 清單2_dgv.Rows(i).Cells("Selling price").Value : xlSheet.Cells(i + 4, 18) = 清單2_dgv.Rows(i).Cells("HTS code").Value

  936.                 xlSheet.Cells(i + 4, 19) = 清單2_dgv.Rows(i).Cells("Remark1").Value : xlSheet.Cells(i + 4, 20) = 清單2_dgv.Rows(i).Cells("Fty price").Value

  937.                 xlSheet.Cells(i + 4, 21) = 清單2_dgv.Rows(i).Cells("Mold cost").Value : xlSheet.Cells(i + 4, 22) = "=U" & i + 4 & "*I" & i + 4

  938.                 xlSheet.Cells(i + 4, 23) = 清單2_dgv.Rows(i).Cells("Amortization qty").Value

  939.                 xlSheet.Cells(i + 4, 24) = "=IF((P" & i + 4 & "-U" & i + 4 & ")=0,0,(P" & i + 4 & "-T" & i + 4 & "-U" & i + 4 & ")/(P" & i + 4 & "-U" & i + 4 & "))"

  940.                 xlSheet.Cells(i + 4, 25) = "=(P" & i + 4 & "-T" & i + 4 & "-U" & i + 4 & ")*I" & i + 4 : xlSheet.Cells(i + 4, 26) = 清單2_dgv.Rows(i).Cells("Remark2").Value

  941.                 xlSheet.Cells(i + 4, 27) = "=Q" & i + 4 & "*I" & i + 4 : xlSheet.Cells(i + 4, 28) = "=(Q" & i + 4 & "-P" & i + 4 & ")*I" & i + 4

  942.                 xlSheet.Cells(i + 4, 29) = "=(T" & i + 4 & "+U" & i + 4 & ")*I" & i + 4 : xlSheet.Cells(i + 4, 30) = "=M" & i + 4 & "-AC" & i + 4

  943.                 xlSheet.Cells(i + 4, 31) = "=AA" & i + 4 & "-AC" & i + 4 : xlSheet.Cells(i + 4, 32) = 清單2_dgv.Rows(i).Cells("Currency").Value

  944.                 xlSheet.Cells(i + 4, 33) = 清單2_dgv.Rows(i).Cells("Exchange").Value : xlSheet.Cells(i + 4, 34) = 清單2_dgv.Rows(i).Cells("年份").Value

  945.                 N1 = i

  946.             Next i

  947.             CC(xlApp, xlSheet)

  948. 

  949.             xlSheet = NewMethod(xlBook)

  950.             xlApp.Sheets(1).Name = "LANDED BRANDED"

  951.             xlBook.Activate() : xlSheet.Activate()

  952. 

  953.             xlSheet.Cells(3, 1) = "BUYER" : xlSheet.Cells(3, 7) = "顏色" : xlSheet.Cells(3, 13) = "銷售金額" : xlSheet.Cells(3, 19) = "Remark1" : xlSheet.Cells(3, 25) = "Commission"

  954.             xlSheet.Cells(3, 2) = "年份季度" : xlSheet.Cells(3, 8) = "楦型" : xlSheet.Cells(3, 14) = "備註" : xlSheet.Cells(3, 20) = "Fty price" : xlSheet.Cells(3, 26) = "Remark2"

  955.             xlSheet.Cells(3, 3) = "訂單流水號" : xlSheet.Cells(3, 9) = "訂單數量" : xlSheet.Cells(3, 15) = "Price" : xlSheet.Cells(3, 21) = "Mold cost" : xlSheet.Cells(3, 27) = "客戶付款"

  956.             xlSheet.Cells(3, 4) = "客戶訂單號" : xlSheet.Cells(3, 10) = "交期開始" : xlSheet.Cells(3, 16) = "Discount price" : xlSheet.Cells(3, 22) = "Collected mold cost" : xlSheet.Cells(3, 28) = "未收款項"

  957.             xlSheet.Cells(3, 5) = "型體號碼" : xlSheet.Cells(3, 11) = "交期結束" : xlSheet.Cells(3, 17) = "Commercial invoice" : xlSheet.Cells(3, 23) = "Amortization qty" : xlSheet.Cells(3, 29) = "成本金額"

  958.             xlSheet.Cells(3, 6) = "型體名稱" : xlSheet.Cells(3, 12) = "單價" : xlSheet.Cells(3, 18) = "Overage invoice" : xlSheet.Cells(3, 24) = "Profit" : xlSheet.Cells(3, 30) = "利潤"

  959.             xlSheet.Cells(1, 8) = "Total-PRS" : xlSheet.Cells(2, 8) = "=SUBTOTAL(9,I4:I$99999)" : xlSheet.Cells(1, 24) = "Total-Commission" : xlSheet.Cells(2, 24) = "=SUBTOTAL(9,Y4:Y$99999)"

  960.             xlSheet.Cells(3, 31) = "實際收款" : xlSheet.Cells(3, 32) = "Currency" : xlSheet.Cells(3, 33) = "Exchange" : xlSheet.Cells(3, 34) = "年份" : xlSheet.Cells(1, 26) = "合計"

  961.             xlSheet.Cells(1, 27) = "=SUBTOTAL(9,AA4:AA$99999)" : xlSheet.Cells(1, 28) = "=SUBTOTAL(9,AB4:AB$99999)" : xlSheet.Cells(1, 29) = "=SUBTOTAL(9,AC4:AC$99999)"

  962.             xlSheet.Cells(1, 30) = "=SUBTOTAL(9,AD4:AD$99999)" : xlSheet.Cells(1, 31) = "=SUBTOTAL(9,AE4:AE$99999)" : xlSheet.Cells(1, 1) = "LANDED BRANDED"

  963.             For i As Integer = 0 To 清單1_dgv.Rows.Count - 1

  964.                 xlSheet.Cells(i + 4, 1) = 清單1_dgv.Rows(i).Cells("BUYER").Value : xlSheet.Cells(i + 4, 2) = 清單1_dgv.Rows(i).Cells("年份季度").Value

  965.                 xlSheet.Cells(i + 4, 3) = 清單1_dgv.Rows(i).Cells("訂單流水號").Value : xlSheet.Cells(i + 4, 4) = 清單1_dgv.Rows(i).Cells("客戶訂單號").Value

  966.                 xlSheet.Cells(i + 4, 5) = 清單1_dgv.Rows(i).Cells("型體號碼").Value : xlSheet.Cells(i + 4, 6) = 清單1_dgv.Rows(i).Cells("型體名稱").Value

  967.                 xlSheet.Cells(i + 4, 7) = 清單1_dgv.Rows(i).Cells("顏色").Value : xlSheet.Cells(i + 4, 8) = 清單1_dgv.Rows(i).Cells("楦型").Value

  968.                 xlSheet.Cells(i + 4, 9) = 清單1_dgv.Rows(i).Cells("訂單數量").Value : xlSheet.Cells(i + 4, 10) = 清單1_dgv.Rows(i).Cells("交期開始").Value

  969.                 xlSheet.Cells(i + 4, 11) = 清單1_dgv.Rows(i).Cells("交期結束").Value : xlSheet.Cells(i + 4, 12) = 清單1_dgv.Rows(i).Cells("單價").Value

  970.                 xlSheet.Cells(i + 4, 13) = 清單1_dgv.Rows(i).Cells("銷售金額").Value : xlSheet.Cells(i + 4, 14) = 清單1_dgv.Rows(i).Cells("備註").Value

  971.                 xlSheet.Cells(i + 4, 15) = 清單1_dgv.Rows(i).Cells("Price").Value : xlSheet.Cells(i + 4, 16) = 清單1_dgv.Rows(i).Cells("Discount price").Value

  972.                 xlSheet.Cells(i + 4, 17) = 清單1_dgv.Rows(i).Cells("Commercial invoice").Value : xlSheet.Cells(i + 4, 18) = 清單1_dgv.Rows(i).Cells("Overage invoice").Value

  973.                 xlSheet.Cells(i + 4, 19) = 清單1_dgv.Rows(i).Cells("Remark1").Value : xlSheet.Cells(i + 4, 20) = 清單1_dgv.Rows(i).Cells("Fty price").Value

  974.                 xlSheet.Cells(i + 4, 21) = 清單1_dgv.Rows(i).Cells("Mold cost").Value : xlSheet.Cells(i + 4, 22) = "=U" & i + 4 & "*I" & i + 4

  975.                 xlSheet.Cells(i + 4, 23) = 清單1_dgv.Rows(i).Cells("Amortization qty").Value

  976.                 xlSheet.Cells(i + 4, 24) = "=IF((P" & i + 4 & "-U" & i + 4 & ")=0,0,(P" & i + 4 & "-T" & i + 4 & "-U" & i + 4 & ")/(P" & i + 4 & "-U" & i + 4 & "))"

  977.                 xlSheet.Cells(i + 4, 25) = "=(P" & i + 4 & "-T" & i + 4 & "-U" & i + 4 & ")*I" & i + 4 : xlSheet.Cells(i + 4, 26) = 清單1_dgv.Rows(i).Cells("Remark2").Value

  978.                 xlSheet.Cells(i + 4, 27) = "=Q" & i + 4 & "*I" & i + 4 : xlSheet.Cells(i + 4, 28) = "=R" & i + 4 & "*I" & i + 4

  979.                 xlSheet.Cells(i + 4, 29) = "=(T" & i + 4 & "+U" & i + 4 & ")*I" & i + 4 : xlSheet.Cells(i + 4, 30) = "=M" & i + 4 & "-AC" & i + 4

  980.                 xlSheet.Cells(i + 4, 31) = "=AA" & i + 4 & "-AC" & i + 4 : xlSheet.Cells(i + 4, 32) = 清單1_dgv.Rows(i).Cells("Currency").Value

  981.                 xlSheet.Cells(i + 4, 33) = 清單1_dgv.Rows(i).Cells("Exchange").Value : xlSheet.Cells(i + 4, 34) = 清單1_dgv.Rows(i).Cells("年份").Value

  982.                 N1 = i

  983.             Next i

  984.             CC(xlApp, xlSheet)

  985. 

  986.             xlSheet = NewMethod(xlBook)

  987.             xlApp.Sheets(1).Name = "彙總"

  988.             xlBook.Activate() : xlSheet.Activate()

  989. 

  990.             xlSheet.Cells(2, 1) = "ORDER SUMMARY DATA COLLECTION"

  991.             xlSheet.Cells(3, 2) = "平均單價" ' 

  992.             xlSheet.Cells(3, 3) = "總雙數" : xlSheet.Cells(3, 4) = "銷售金額" : xlSheet.Cells(3, 5) = "客戶付款" : xlSheet.Cells(3, 6) = "未收款項"

  993.             xlSheet.Cells(3, 7) = "預收款項" : xlSheet.Cells(3, 8) = "成本金額" : xlSheet.Cells(3, 9) = "利潤" : xlSheet.Cells(3, 10) = "實際收款"

  994.             xlSheet.Cells(4, 1) = "LANDED BRANDED" : xlSheet.Cells(4, 2) = "=D4/C4"

  995.             xlSheet.Cells(4, 3) = TextBox2.Text : xlSheet.Cells(4, 4) = TextBox3.Text : xlSheet.Cells(4, 5) = TextBox5.Text : xlSheet.Cells(4, 6) = TextBox9.Text

  996.             xlSheet.Cells(4, 7) = TextBox21.Text : xlSheet.Cells(4, 8) = TextBox24.Text : xlSheet.Cells(4, 9) = TextBox26.Text : xlSheet.Cells(4, 10) = TextBox28.Text

  997.             xlSheet.Cells(5, 1) = "FIRST                 COST" : xlSheet.Cells(5, 2) = "=D5/C5"

  998.             xlSheet.Cells(5, 3) = TextBox19.Text : xlSheet.Cells(5, 4) = TextBox4.Text : xlSheet.Cells(5, 5) = TextBox11.Text : xlSheet.Cells(5, 6) = TextBox20.Text

  999.             xlSheet.Cells(5, 7) = TextBox22.Text : xlSheet.Cells(5, 8) = TextBox23.Text : xlSheet.Cells(5, 9) = TextBox25.Text : xlSheet.Cells(5, 10) = TextBox27.Text

  1000.             xlSheet.Cells(6, 1) = "合                              計" : xlSheet.Cells(6, 2) = "=D6/C6"

  1001.             xlSheet.Cells(6, 3) = TextBox34.Text : xlSheet.Cells(6, 4) = TextBox36.Text : xlSheet.Cells(6, 5) = TextBox35.Text : xlSheet.Cells(6, 6) = TextBox33.Text

  1002.             xlSheet.Cells(6, 7) = TextBox32.Text : xlSheet.Cells(6, 8) = TextBox31.Text : xlSheet.Cells(6, 9) = TextBox30.Text : xlSheet.Cells(7, 10) = TextBox29.Text

  1003.             xlSheet.Cells(7, 6) = "PS : 應收應付如果 = 正數，及為應付；如果 = 負數，及惟應收。    預收款項 - 未收款項 = 應收應付"

  1004.             xlSheet.Cells(7, 9) = "利潤 + 應收應付 = 總實際收款" : xlSheet.Cells(7, 7) = TextBox37.Text

  1005.             AA(xlApp, xlSheet)

  1006.             xlSheet.PageSetup.PrintArea = ""

  1007.             xlApp.Cells.Select()

  1008.             xlSheet.Range("B1").Select()

  1009.             xlApp.Application.WindowState = xlMinimized

  1010.             MsgBox("列印完成")

  1011.         End If

  1012.     End Sub

  1013.     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet

  1014.         Return CType(xlBook.Worksheets.Add, Worksheet)

  1015.     End Function

  1016.     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1017.         xlSheet.Cells.Select()

  1018.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1019.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone

  1020.         End With

  1021.         xlSheet.Rows("2:7").Select : myExcel.Selection.RowHeight = 35

  1022.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 20

  1023.         xlSheet.Columns("B:J").Select : myExcel.Selection.ColumnWidth = 18

  1024. 

  1025.         xlSheet.Range("A2:J2").Select()

  1026.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1027.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1028.         End With : myExcel.Selection.Merge

  1029. 

  1030.         xlSheet.Range("B4:J6").Select() : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1031.         xlSheet.Range("G7").Select() : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1032.         xlSheet.Range("J7").Select() : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1033. 

  1034.         xlSheet.Range("I7").Select()

  1035.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1036.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1037.         End With

  1038. 

  1039.         xlSheet.Range("F7").Select()

  1040.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 1

  1041.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1042.         End With

  1043. 

  1044.         xlSheet.Range("A3:J3").Select()

  1045.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1046.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1047.         End With

  1048. 

  1049.         xlSheet.Range("A2:J6").Select()

  1050.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1051.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1052.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1053.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1054.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1055.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1056.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1057.         myExcel.ActiveWindow.DisplayGridlines = False

  1058. 

  1059.         xlSheet.Range("C4:C6").Select() : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"

  1060. 

  1061.         xlSheet.Range("B3:J3").Select()

  1062.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent5 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With

  1063. 

  1064.         xlSheet.Range("A4:A6").Select()

  1065.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent4 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With

  1066.     End Sub

  1067.     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1068.         myExcel.ActiveWindow.Zoom = 90

  1069.         xlSheet.Cells.Select()

  1070.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1071.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone

  1072.         End With

  1073.         myExcel.Application.CutCopyMode = False

  1074.         xlSheet.Columns("D:D").Select : myExcel.Selection.NumberFormatLocal = "@"

  1075.         xlSheet.Columns("I:I").Select : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"

  1076.         xlSheet.Columns("J:K").Select : myExcel.Selection.NumberFormatLocal = "yyyy/mm/dd"

  1077.         xlSheet.Columns("L:L").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1078.         xlSheet.Columns("M:M").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1079.         xlSheet.Columns("O:R").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1080.         xlSheet.Columns("T:V").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1081.         xlSheet.Columns("W:W").Select : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"

  1082.         xlSheet.Columns("X:X").Select : myExcel.Selection.NumberFormatLocal = "0.00%"

  1083.         xlSheet.Columns("Y:Y").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1084.         xlSheet.Columns("AA:AE").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1085.         xlSheet.Columns("AG:AG").Select : myExcel.Selection.NumberFormatLocal = "#,##0.0000;[紅色]-#,##0.0000"

  1086.         xlSheet.Columns("AF:AH").Select

  1087.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1088.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1089.         End With

  1090. 

  1091.         xlSheet.Rows("3:3").Select

  1092.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1093.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1094.         End With

  1095.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 18

  1096.         xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 12

  1097.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 16

  1098.         xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 12

  1099.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 13

  1100.         xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12

  1101.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20

  1102.         xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 5

  1103.         xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 8

  1104.         xlSheet.Columns("J:K").Select : myExcel.Selection.ColumnWidth = 9.5

  1105.         xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 6

  1106.         xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 12

  1107.         xlSheet.Columns("N:N").Select : myExcel.Selection.ColumnWidth = 20

  1108.         xlSheet.Columns("O:R").Select : xlSheet.Columns("O:R").EntireColumn.AutoFit

  1109.         xlSheet.Columns("T:Y").Select : xlSheet.Columns("T:Y").EntireColumn.AutoFit

  1110.         xlSheet.Columns("AA:AH").Select : xlSheet.Columns("AA:AH").EntireColumn.AutoFit

  1111. 

  1112.         xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True : myExcel.ActiveWindow.DisplayGridlines = False

  1113. 

  1114.         xlSheet.Range("A3:AH" & N1 + 5).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1115.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1116.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1117.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1118.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1119.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1120.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1121. 

  1122.         xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 45

  1123.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1124.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False

  1125.         End With : myExcel.Selection.AutoFilter

  1126. 

  1127.         xlSheet.Range("H1:I1").Select()

  1128.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1129.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1130. 

  1131.         xlSheet.Range("H2:I2").Select()

  1132.         myExcel.Selection.Merge

  1133.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1134.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1135. 

  1136.         xlSheet.Range("H1:I2").Select()

  1137.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1138.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1139.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1140.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1141.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1142.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1143.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1144. 

  1145.         xlSheet.Range("A1:N3").Select()

  1146.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1147.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1148.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1149.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1150.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1151. 

  1152.         xlSheet.Range("A1:N3").Select()

  1153.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0 : End With

  1154. 

  1155.         xlSheet.Range("X1:Y1").Select()

  1156.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1157.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1158. 

  1159.         xlSheet.Range("X2:Y2").Select()

  1160.         myExcel.Selection.Merge

  1161.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1162.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1163. 

  1164.         xlSheet.Range("Z1:Z2").Select()

  1165.         myExcel.Selection.Merge

  1166.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1167.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1168. 

  1169.         xlSheet.Range("AA1:AA2").Select()

  1170.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1171.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1172. 

  1173.         xlSheet.Range("AB1:AB2").Select()

  1174.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1175.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1176. 

  1177.         xlSheet.Range("AC1:AC2").Select()

  1178.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1179.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1180. 

  1181.         xlSheet.Range("AD1:AD2").Select()

  1182.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1183.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1184. 

  1185.         xlSheet.Range("AE1:AE2").Select()

  1186.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1187.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1188. 

  1189.         xlSheet.Range("O1:Z3").Select()

  1190.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1191.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1192.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1193.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1194.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1195.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 65535 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With

  1196. 

  1197.         xlSheet.Range("AA1:AE3").Select()

  1198.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1199.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1200.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1201.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1202.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1203.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1204.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1205.         With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 5296274 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With

  1206. 

  1207.         xlSheet.Range("AF1:AH3").Select()

  1208.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1209.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1210.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1211.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1212.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1213. 

  1214.         xlSheet.Range("A1:G2").Select()

  1215.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1216.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1217.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1218.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone

  1219.         End With

  1220. 

  1221.         xlSheet.Range("X3").Activate() : myExcel.Selection.ColumnWidth = 8

  1222.         xlSheet.Columns("Y:Y").Select : myExcel.Selection.ColumnWidth = 12

  1223.         xlSheet.Range("X2:Y2").Select() : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"

  1224. 

  1225.         xlSheet.Range("X1:Y2").Select()

  1226.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1227.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1228.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1229.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1230.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1231.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1232.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1233. 

  1234.         xlSheet.Columns("AA:AE").Select : myExcel.Selection.ColumnWidth = 10

  1235. 

  1236.         xlSheet.Range("X1:Y1").Select()

  1237.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1238.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1239. 

  1240.         xlSheet.Range("H1:I1").Select()

  1241.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1242.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With

  1243.     End Sub

  1244. End Class