WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
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.
27 Commits
1 Branch
Tree: 5d7d4e5992
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5d7d4e5992'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/樣品訂單管理系統/樣品進度表(英文版).vb

樣品進度表(英文版).vb 172KB
History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883 
  1. Option Strict Off

  2. Imports System.IO

  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. Imports System.Threading

  13. Imports System.Text.RegularExpressions

  14. Public Class 樣品進度表_英文版_

  15.     Private ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet

  16.     Dim N1, N2, N3, N4, N5, N6, FFGG, BBNN1, BBNN2, BBNN3, BBNN4, BBNN5 As Integer

  17.     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet

  18.     Dim SSDD, AAWW, HHGG, BBNN11, BBNN12, BBNN13, BBNN14, BBNN15 As String

  19.     Private ReadOnly RRTT As New Regex("[\u4e00-\u9fa5]")

  20.     Private Sub Set_清單1()

  21.         版本_dgv.DataSource = Nothing : ds1.Clear()

  22.         版本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  23.         版本_dgv.ColumnHeadersHeight = 25

  24.         版本_dgv.AllowUserToAddRows = False

  25.         SQL_英文版次()

  26.         da.Fill(ds1) : 版本_dgv.DataSource = ds1.Tables(0) : conn.Close()

  27.     End Sub

  28.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  29.     Private Sub Set_讀取清單2()

  30.         部件A_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  31.         部件A_dgv.ColumnHeadersHeight = 25

  32.         部件A_dgv.AllowUserToAddRows = False

  33.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  34.         SQL_讀取清單2()

  35.         da.Fill(ds2) : 部件A_dgv.DataSource = ds2.Tables(0) : conn.Close()

  36.     End Sub

  37.     Private Sub Set_清單2()

  38.         部件A_dgv.DataSource = Nothing : ds2.Clear()

  39.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  40.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  41.                 N2 = i : Set_讀取清單2()

  42.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  43.                 N2 = i : Set_讀取清單2()

  44.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  45.             End If

  46.         Next

  47.         去中文2()

  48.     End Sub

  49.     Private Sub 去中文2()

  50.         BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0

  51.         BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = ""

  52.         For i As Integer = 0 To 部件A_dgv.Rows.Count - 1

  53.             資料數 = 部件A_dgv.Rows.Count : MyModule1.進度條()

  54.             BBNN1 = 部件A_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString()

  55.             BBNN3 = 部件A_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件A_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  56.             BBNN5 = 部件A_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  57.             '--------------------------------------------------------------------------------------------

  58.             For II As Integer = 0 To BBNN1 - 1

  59.                 If II = 0 Then

  60.                     AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("部件").Value.ToString, 1)

  61.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件A_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If

  62.                 Else

  63.                     AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If

  64.                 End If

  65.             Next : 部件A_dgv.Rows(i).Cells("部件").Value = BBNN11

  66.             '--------------------------------------------------------------------------------------------

  67.             For II As Integer = 0 To BBNN2 - 1

  68.                 If II = 0 Then

  69.                     AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1)

  70.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If

  71.                 Else

  72.                     AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If

  73.                 End If

  74.             Next : 部件A_dgv.Rows(i).Cells("材料名稱").Value = BBNN12

  75.             '--------------------------------------------------------------------------------------------

  76.             For II As Integer = 0 To BBNN3 - 1

  77.                 If II = 0 Then

  78.                     AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("材料說明").Value.ToString, 1)

  79.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件A_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If

  80.                 Else

  81.                     AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If

  82.                 End If

  83.             Next : 部件A_dgv.Rows(i).Cells("材料說明").Value = BBNN13

  84.             '--------------------------------------------------------------------------------------------

  85.             For II As Integer = 0 To BBNN4 - 1

  86.                 If II = 0 Then

  87.                     AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("備註").Value.ToString, 1)

  88.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件A_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If

  89.                 Else

  90.                     AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If

  91.                 End If

  92.             Next : 部件A_dgv.Rows(i).Cells("備註").Value = BBNN14

  93.             '--------------------------------------------------------------------------------------------

  94.             For II As Integer = 0 To BBNN5 - 1

  95.                 If II = 0 Then

  96.                     AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("廠商").Value.ToString, 1)

  97.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件A_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If

  98.                 Else

  99.                     AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If

  100.                 End If

  101.             Next : 部件A_dgv.Rows(i).Cells("廠商").Value = BBNN15

  102.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  103.     End Sub

  104.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  105.     Private Sub Set_讀取清單3()

  106.         部件B_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  107.         部件B_dgv.ColumnHeadersHeight = 25

  108.         部件B_dgv.AllowUserToAddRows = False

  109.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  110.         SQL_部件B()

  111.         da.Fill(ds3) : 部件B_dgv.DataSource = ds3.Tables(0) : conn.Close()

  112.     End Sub

  113.     Private Sub Set_清單3()

  114.         部件B_dgv.DataSource = Nothing : ds3.Clear()

  115.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  116.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  117.                 N2 = i : Set_讀取清單3()

  118.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  119.                 N2 = i : Set_讀取清單3()

  120.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  121.             End If

  122.         Next

  123.         去中文3()

  124.     End Sub

  125.     Private Sub 去中文3()

  126.         BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0

  127.         BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = ""

  128.         For i As Integer = 0 To 部件B_dgv.Rows.Count - 1

  129.             資料數 = 部件B_dgv.Rows.Count : MyModule1.進度條()

  130.             BBNN1 = 部件B_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString()

  131.             BBNN3 = 部件B_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件B_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  132.             BBNN5 = 部件B_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  133.             '--------------------------------------------------------------------------------------------

  134.             For II As Integer = 0 To BBNN1 - 1

  135.                 If II = 0 Then

  136.                     AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("部件").Value.ToString, 1)

  137.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件B_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If

  138.                 Else

  139.                     AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If

  140.                 End If

  141.             Next : 部件B_dgv.Rows(i).Cells("部件").Value = BBNN11

  142.             '--------------------------------------------------------------------------------------------

  143.             For II As Integer = 0 To BBNN2 - 1

  144.                 If II = 0 Then

  145.                     AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1)

  146.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If

  147.                 Else

  148.                     AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If

  149.                 End If

  150.             Next : 部件B_dgv.Rows(i).Cells("材料名稱").Value = BBNN12

  151.             '--------------------------------------------------------------------------------------------

  152.             For II As Integer = 0 To BBNN3 - 1

  153.                 If II = 0 Then

  154.                     AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("材料說明").Value.ToString, 1)

  155.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件B_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If

  156.                 Else

  157.                     AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If

  158.                 End If

  159.             Next : 部件B_dgv.Rows(i).Cells("材料說明").Value = BBNN13

  160.             '--------------------------------------------------------------------------------------------

  161.             For II As Integer = 0 To BBNN4 - 1

  162.                 If II = 0 Then

  163.                     AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("備註").Value.ToString, 1)

  164.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件B_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If

  165.                 Else

  166.                     AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If

  167.                 End If

  168.             Next : 部件B_dgv.Rows(i).Cells("備註").Value = BBNN14

  169.             '--------------------------------------------------------------------------------------------

  170.             For II As Integer = 0 To BBNN5 - 1

  171.                 If II = 0 Then

  172.                     AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("廠商").Value.ToString, 1)

  173.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件B_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If

  174.                 Else

  175.                     AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If

  176.                 End If

  177.             Next : 部件B_dgv.Rows(i).Cells("廠商").Value = BBNN15

  178.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  179.     End Sub

  180.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  181.     Private Sub Set_讀取清單4()

  182.         部件C_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  183.         部件C_dgv.ColumnHeadersHeight = 25

  184.         部件C_dgv.AllowUserToAddRows = False

  185.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  186.         SQL_部件C()

  187.         da.Fill(ds4) : 部件C_dgv.DataSource = ds4.Tables(0) : conn.Close()

  188.     End Sub

  189.     Private Sub Set_清單4()

  190.         部件C_dgv.DataSource = Nothing : ds4.Clear()

  191.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  192.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  193.                 N2 = i : Set_讀取清單4()

  194.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  195.                 N2 = i : Set_讀取清單4()

  196.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  197.             End If

  198.         Next

  199.         去中文4()

  200.     End Sub

  201.     Private Sub 去中文4()

  202.         BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0

  203.         BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = ""

  204.         For i As Integer = 0 To 部件C_dgv.Rows.Count - 1

  205.             資料數 = 部件C_dgv.Rows.Count : MyModule1.進度條()

  206.             BBNN1 = 部件C_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString()

  207.             BBNN3 = 部件C_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件C_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  208.             BBNN5 = 部件C_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  209.             '--------------------------------------------------------------------------------------------

  210.             For II As Integer = 0 To BBNN1 - 1

  211.                 If II = 0 Then

  212.                     AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("部件").Value.ToString, 1)

  213.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件C_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If

  214.                 Else

  215.                     AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If

  216.                 End If

  217.             Next : 部件C_dgv.Rows(i).Cells("部件").Value = BBNN11

  218.             '--------------------------------------------------------------------------------------------

  219.             For II As Integer = 0 To BBNN2 - 1

  220.                 If II = 0 Then

  221.                     AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1)

  222.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If

  223.                 Else

  224.                     AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If

  225.                 End If

  226.             Next : 部件C_dgv.Rows(i).Cells("材料名稱").Value = BBNN12

  227.             '--------------------------------------------------------------------------------------------

  228.             For II As Integer = 0 To BBNN3 - 1

  229.                 If II = 0 Then

  230.                     AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("材料說明").Value.ToString, 1)

  231.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件C_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If

  232.                 Else

  233.                     AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If

  234.                 End If

  235.             Next : 部件C_dgv.Rows(i).Cells("材料說明").Value = BBNN13

  236.             '--------------------------------------------------------------------------------------------

  237.             For II As Integer = 0 To BBNN4 - 1

  238.                 If II = 0 Then

  239.                     AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("備註").Value.ToString, 1)

  240.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件C_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If

  241.                 Else

  242.                     AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If

  243.                 End If

  244.             Next : 部件C_dgv.Rows(i).Cells("備註").Value = BBNN14

  245.             '--------------------------------------------------------------------------------------------

  246.             For II As Integer = 0 To BBNN5 - 1

  247.                 If II = 0 Then

  248.                     AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("廠商").Value.ToString, 1)

  249.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件C_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If

  250.                 Else

  251.                     AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If

  252.                 End If

  253.             Next : 部件C_dgv.Rows(i).Cells("廠商").Value = BBNN15

  254.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  255.     End Sub

  256.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  257.     Private Sub Set_讀取清單5()

  258.         部件D_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  259.         部件D_dgv.ColumnHeadersHeight = 25

  260.         部件D_dgv.AllowUserToAddRows = False

  261.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  262.         SQL_部件D()

  263.         da.Fill(ds5) : 部件D_dgv.DataSource = ds5.Tables(0) : conn.Close()

  264.     End Sub

  265.     Private Sub Set_清單5()

  266.         部件D_dgv.DataSource = Nothing : ds5.Clear()

  267.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  268.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  269.                 N2 = i : Set_讀取清單5()

  270.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  271.                 N2 = i : Set_讀取清單5()

  272.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  273.             End If

  274.         Next

  275.         '去中文5()

  276.     End Sub

  277.     Private Sub 去中文5()

  278.         BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0

  279.         BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = ""

  280.         For i As Integer = 0 To 部件D_dgv.Rows.Count - 1

  281.             資料數 = 部件D_dgv.Rows.Count : MyModule1.進度條()

  282.             BBNN1 = 部件D_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString()

  283.             BBNN3 = 部件D_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件D_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  284.             BBNN5 = 部件D_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  285.             '--------------------------------------------------------------------------------------------

  286.             For II As Integer = 0 To BBNN1 - 1

  287.                 If II = 0 Then

  288.                     AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("部件").Value.ToString, 1)

  289.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件D_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If

  290.                 Else

  291.                     AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If

  292.                 End If

  293.             Next : 部件D_dgv.Rows(i).Cells("部件").Value = BBNN11

  294.             '--------------------------------------------------------------------------------------------

  295.             For II As Integer = 0 To BBNN2 - 1

  296.                 If II = 0 Then

  297.                     AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1)

  298.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If

  299.                 Else

  300.                     AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If

  301.                 End If

  302.             Next : 部件D_dgv.Rows(i).Cells("材料名稱").Value = BBNN12

  303.             '--------------------------------------------------------------------------------------------

  304.             For II As Integer = 0 To BBNN3 - 1

  305.                 If II = 0 Then

  306.                     AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("材料說明").Value.ToString, 1)

  307.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件D_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If

  308.                 Else

  309.                     AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If

  310.                 End If

  311.             Next : 部件D_dgv.Rows(i).Cells("材料說明").Value = BBNN13

  312.             '--------------------------------------------------------------------------------------------

  313.             For II As Integer = 0 To BBNN4 - 1

  314.                 If II = 0 Then

  315.                     AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("備註").Value.ToString, 1)

  316.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件D_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If

  317.                 Else

  318.                     AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If

  319.                 End If

  320.             Next : 部件D_dgv.Rows(i).Cells("備註").Value = BBNN14

  321.             '--------------------------------------------------------------------------------------------

  322.             For II As Integer = 0 To BBNN5 - 1

  323.                 If II = 0 Then

  324.                     AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("廠商").Value.ToString, 1)

  325.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件D_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If

  326.                 Else

  327.                     AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If

  328.                 End If

  329.             Next : 部件D_dgv.Rows(i).Cells("廠商").Value = BBNN15

  330.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  331.     End Sub

  332.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  333.     Private Sub Set_讀取清單6()

  334.         部件E_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  335.         部件E_dgv.ColumnHeadersHeight = 25

  336.         部件E_dgv.AllowUserToAddRows = False

  337.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  338.         SQL_部件E()

  339.         da.Fill(ds6) : 部件E_dgv.DataSource = ds6.Tables(0) : conn.Close()

  340.     End Sub

  341.     Private Sub Set_清單6()

  342.         部件E_dgv.DataSource = Nothing : ds6.Clear()

  343.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  344.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  345.                 N2 = i : Set_讀取清單6()

  346.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  347.                 N2 = i : Set_讀取清單6()

  348.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  349.             End If

  350.         Next

  351.         '去中文6()

  352.     End Sub

  353.     Private Sub 去中文6()

  354.         BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0

  355.         BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = ""

  356.         For i As Integer = 0 To 部件E_dgv.Rows.Count - 1

  357.             資料數 = 部件E_dgv.Rows.Count : MyModule1.進度條()

  358.             BBNN1 = 部件E_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString()

  359.             BBNN3 = 部件E_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件E_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  360.             BBNN5 = 部件E_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  361.             '--------------------------------------------------------------------------------------------

  362.             For II As Integer = 0 To BBNN1 - 1

  363.                 If II = 0 Then

  364.                     AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("部件").Value.ToString, 1)

  365.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件E_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If

  366.                 Else

  367.                     AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If

  368.                 End If

  369.             Next : 部件E_dgv.Rows(i).Cells("部件").Value = BBNN11

  370.             '--------------------------------------------------------------------------------------------

  371.             For II As Integer = 0 To BBNN2 - 1

  372.                 If II = 0 Then

  373.                     AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1)

  374.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If

  375.                 Else

  376.                     AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If

  377.                 End If

  378.             Next : 部件E_dgv.Rows(i).Cells("材料名稱").Value = BBNN12

  379.             '--------------------------------------------------------------------------------------------

  380.             For II As Integer = 0 To BBNN3 - 1

  381.                 If II = 0 Then

  382.                     AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("材料說明").Value.ToString, 1)

  383.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件E_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If

  384.                 Else

  385.                     AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If

  386.                 End If

  387.             Next : 部件E_dgv.Rows(i).Cells("材料說明").Value = BBNN13

  388.             '--------------------------------------------------------------------------------------------

  389.             For II As Integer = 0 To BBNN4 - 1

  390.                 If II = 0 Then

  391.                     AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("備註").Value.ToString, 1)

  392.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件E_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If

  393.                 Else

  394.                     AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If

  395.                 End If

  396.             Next : 部件E_dgv.Rows(i).Cells("備註").Value = BBNN14

  397.             '--------------------------------------------------------------------------------------------

  398.             For II As Integer = 0 To BBNN5 - 1

  399.                 If II = 0 Then

  400.                     AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("廠商").Value.ToString, 1)

  401.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件E_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If

  402.                 Else

  403.                     AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If

  404.                 End If

  405.             Next : 部件E_dgv.Rows(i).Cells("廠商").Value = BBNN15

  406.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  407.     End Sub

  408.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  409.     Private Sub Set_讀取清單7()

  410.         部件F_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  411.         部件F_dgv.ColumnHeadersHeight = 25

  412.         部件F_dgv.AllowUserToAddRows = False

  413.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  414.         SQL_部件F()

  415.         da.Fill(ds7) : 部件F_dgv.DataSource = ds7.Tables(0) : conn.Close()

  416.     End Sub

  417.     Private Sub Set_清單7()

  418.         部件F_dgv.DataSource = Nothing : ds7.Clear()

  419.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  420.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  421.                 N2 = i : Set_讀取清單7()

  422.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  423.                 N2 = i : Set_讀取清單7()

  424.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  425.             End If

  426.         Next

  427.         去中文7()

  428.     End Sub

  429.     Private Sub 去中文7()

  430.         BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0

  431.         BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = ""

  432.         For i As Integer = 0 To 部件F_dgv.Rows.Count - 1

  433.             資料數 = 部件F_dgv.Rows.Count : MyModule1.進度條()

  434.             BBNN1 = 部件F_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString()

  435.             BBNN3 = 部件F_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件F_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  436.             BBNN5 = 部件F_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  437.             '--------------------------------------------------------------------------------------------

  438.             For II As Integer = 0 To BBNN1 - 1

  439.                 If II = 0 Then

  440.                     AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("部件").Value.ToString, 1)

  441.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件F_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If

  442.                 Else

  443.                     AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If

  444.                 End If

  445.             Next : 部件F_dgv.Rows(i).Cells("部件").Value = BBNN11

  446.             '--------------------------------------------------------------------------------------------

  447.             For II As Integer = 0 To BBNN2 - 1

  448.                 If II = 0 Then

  449.                     AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1)

  450.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If

  451.                 Else

  452.                     AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If

  453.                 End If

  454.             Next : 部件F_dgv.Rows(i).Cells("材料名稱").Value = BBNN12

  455.             '--------------------------------------------------------------------------------------------

  456.             For II As Integer = 0 To BBNN3 - 1

  457.                 If II = 0 Then

  458.                     AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("材料說明").Value.ToString, 1)

  459.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件F_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If

  460.                 Else

  461.                     AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If

  462.                 End If

  463.             Next : 部件F_dgv.Rows(i).Cells("材料說明").Value = BBNN13

  464.             '--------------------------------------------------------------------------------------------

  465.             For II As Integer = 0 To BBNN4 - 1

  466.                 If II = 0 Then

  467.                     AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("備註").Value.ToString, 1)

  468.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件F_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If

  469.                 Else

  470.                     AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If

  471.                 End If

  472.             Next : 部件F_dgv.Rows(i).Cells("備註").Value = BBNN14

  473.             '--------------------------------------------------------------------------------------------

  474.             For II As Integer = 0 To BBNN5 - 1

  475.                 If II = 0 Then

  476.                     AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("廠商").Value.ToString, 1)

  477.                     If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件F_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If

  478.                 Else

  479.                     AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If

  480.                 End If

  481.             Next : 部件F_dgv.Rows(i).Cells("廠商").Value = BBNN15

  482.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  483.     End Sub

  484.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  485.     Private Sub Set_讀取清單()

  486.         進度表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  487.         進度表_dgv.ColumnHeadersHeight = 25

  488.         進度表_dgv.AllowUserToAddRows = False

  489.         進度表_dgv.RowTemplate.Height = 140

  490.         PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value

  491.         SQL_英文進度表()

  492.         da.Fill(ds) : 進度表_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()

  493.     End Sub

  494.     Private Sub Set_清單()

  495.         進度表_dgv.DataSource = Nothing : ds.Clear()

  496.         For i As Integer = 0 To 版本_dgv.Rows.Count - 1

  497.             If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then

  498.                 N2 = i : Set_讀取清單()

  499.             ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then

  500.                 N2 = i : Set_讀取清單()

  501.                 i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1

  502.             End If

  503.         Next

  504.     End Sub

  505.     Private Sub Set_grid()

  506.         進度表_dgv.Columns(0).FillWeight = 40 : 進度表_dgv.Columns(1).FillWeight = 120 : 進度表_dgv.Columns(2).Visible = False : 進度表_dgv.Columns(3).FillWeight = 40

  507.         進度表_dgv.Columns(5).FillWeight = 100 : 進度表_dgv.Columns(6).FillWeight = 80 : 進度表_dgv.Columns(7).Visible = False : 進度表_dgv.Columns(8).FillWeight = 80

  508.         進度表_dgv.Columns(9).FillWeight = 100 : 進度表_dgv.Columns(10).FillWeight = 40 : 進度表_dgv.Columns(11).FillWeight = 40 : 進度表_dgv.Columns(12).Visible = False

  509.         進度表_dgv.Columns(13).Visible = False : 進度表_dgv.Columns(14).FillWeight = 250 : 進度表_dgv.Columns(15).FillWeight = 250 : 進度表_dgv.Columns(16).FillWeight = 200

  510.         進度表_dgv.Columns(17).FillWeight = 200 : 進度表_dgv.Columns(18).FillWeight = 200 : 進度表_dgv.Columns(19).FillWeight = 130 : 進度表_dgv.Columns(4).Visible = False

  511. 

  512.         進度表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.0" : 進度表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0.0"

  513.         進度表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 進度表_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  514.         進度表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 進度表_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  515.         進度表_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  516.         N1 = 1

  517.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  518.             If i = 進度表_dgv.Rows.Count - 1 Then

  519.                 進度表_dgv.Rows(i).Cells("序號").Value = N1.ToString : Exit For

  520.             Else

  521.                 If 進度表_dgv(4, i).Value.ToString <> 進度表_dgv(4, i + 1).Value.ToString Then

  522.                     進度表_dgv.Rows(i).Cells("序號").Value = N1.ToString : N1 += 1

  523.                 Else

  524.                     進度表_dgv.Rows(i).Cells("序號").Value = N1.ToString

  525.                 End If

  526.             End If

  527.         Next

  528.     End Sub

  529.     Private Sub Set_grid0()

  530.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  531.             進度表_dgv.Rows(i).Cells("STYLE").Value = 進度表_dgv.Rows(i).Cells("型體號碼").Value & " 

  532. " & 進度表_dgv.Rows(i).Cells("STYLE").Value & " 

  533. 

  534. " & 進度表_dgv.Rows(i).Cells("SO").Value

  535.         Next

  536.         Dim mycol As DataGridViewImageColumn = 進度表_dgv.Columns("圖片")

  537.         mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  538.     End Sub

  539.     Private Sub Set_清單8()

  540.         季節客戶_dgv.DataSource = Nothing : ds8.Clear()

  541.         季節客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  542.         季節客戶_dgv.ColumnHeadersHeight = 25

  543.         季節客戶_dgv.AllowUserToAddRows = False

  544.         SQL_季節客戶()

  545.         da.Fill(ds8) : 季節客戶_dgv.DataSource = ds8.Tables(0) : conn.Close() : Set_grid8()

  546.     End Sub

  547.     Private Sub Set_grid8()

  548.         季節客戶_dgv.Columns(0).FillWeight = 120 : 季節客戶_dgv.Columns(1).FillWeight = 240

  549.     End Sub

  550.     Private Sub 導入A類料()

  551.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  552.             資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條()

  553.             進度表_dgv.Rows(i).Cells("UPPER").Value = ""

  554.             Dim aa As Integer = 1

  555.             For ii As Integer = 0 To 部件A_dgv.Rows.Count - 1

  556.                 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件A_dgv.Rows(ii).Cells("流水號").Value Then

  557.                     If aa = 1 Then

  558.                         If 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  559.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  560.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  561.                                      "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  562. 

  563.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  564.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  565.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  566.                                        "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value

  567. 

  568.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  569.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  570.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  571.                                        "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  572. 

  573.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  574.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  575.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  576.                                        "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  577. 

  578.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  579.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  580.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value &

  581.                                        "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  582. 

  583.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  584.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  585.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  586.                                 "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value

  587. 

  588.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  589.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  590.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  591.                                 "-" & 部件A_dgv.Rows(ii).Cells("備註").Value

  592. 

  593.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  594.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  595.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value &

  596.                                 "-" & 部件A_dgv.Rows(ii).Cells("備註").Value

  597. 

  598.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  599.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  600.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  601.                                 "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  602. 

  603.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  604.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  605.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value &

  606.                                 "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  607. 

  608.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  609.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  610.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value &

  611.                                 "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  612. 

  613.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  614.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  615.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value

  616. 

  617.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  618.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  619.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value

  620. 

  621.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  622.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  623.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value

  624. 

  625.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  626.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  627.                             進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("廠商").Value

  628.                         End If

  629.                         aa += 1

  630.                     Else

  631.                         If 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  632.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  633.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  634.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value &

  635.                             "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  636. 

  637.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  638.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  639.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  640.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value &

  641.  "-" & 部件A_dgv.Rows(ii).Cells("備註").Value

  642. 

  643.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  644.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  645.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  646.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value &

  647.  "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  648. 

  649.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  650.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  651.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  652.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value &

  653.  "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  654. 

  655.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  656.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  657.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  658.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value &

  659.  "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  660. 

  661.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  662.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  663.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  664.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value

  665. 

  666.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  667.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  668.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  669.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value

  670. 

  671.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  672.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  673.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  674.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value

  675. 

  676.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  677.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  678.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  679.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  680. 

  681.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  682.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  683.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  684.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  685. 

  686.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  687.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  688.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  689.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value

  690. 

  691.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  692.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  693.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  694.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value

  695. 

  696.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  697.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  698.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  699.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value

  700. 

  701.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  702.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  703.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  704.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value

  705. 

  706.                         ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  707.                             部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  708.                             進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " 

  709.  " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("廠商").Value

  710.                         End If

  711.                         aa += 1

  712.                     End If

  713.                 End If

  714.             Next

  715.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  716.     End Sub

  717.     Private Sub 導入B類料()

  718.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  719.             資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條()

  720.             進度表_dgv.Rows(i).Cells("LINING").Value = ""

  721.             Dim aa As Integer = 1

  722.             For ii As Integer = 0 To 部件B_dgv.Rows.Count - 1

  723.                 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件B_dgv.Rows(ii).Cells("流水號").Value Then

  724.                     If aa = 1 Then

  725.                         If 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  726.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  727.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  728.                                      "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  729. 

  730.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  731.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  732.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  733.                                        "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value

  734. 

  735.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  736.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  737.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  738.                                        "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  739. 

  740.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  741.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  742.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  743.                                        "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  744. 

  745.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  746.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  747.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value &

  748.                                        "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  749. 

  750.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  751.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  752.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  753.                                 "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value

  754. 

  755.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  756.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  757.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  758.                                 "-" & 部件B_dgv.Rows(ii).Cells("備註").Value

  759. 

  760.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  761.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  762.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value &

  763.                                 "-" & 部件B_dgv.Rows(ii).Cells("備註").Value

  764. 

  765.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  766.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  767.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  768.                                 "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  769. 

  770.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  771.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  772.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value &

  773.                                 "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  774. 

  775.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  776.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  777.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value &

  778.                                 "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  779. 

  780.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  781.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  782.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value

  783. 

  784.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  785.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  786.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value

  787. 

  788.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  789.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  790.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value

  791. 

  792.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  793.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  794.                             進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("廠商").Value

  795.                         End If

  796.                         aa += 1

  797.                     Else

  798.                         If 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  799.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  800.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  801.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value &

  802.                             "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  803. 

  804.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  805.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  806.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  807.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value &

  808.  "-" & 部件B_dgv.Rows(ii).Cells("備註").Value

  809. 

  810.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  811.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  812.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  813.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value &

  814.  "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  815. 

  816.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  817.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  818.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  819.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value &

  820.  "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  821. 

  822.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  823.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  824.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  825.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value &

  826.  "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  827. 

  828.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  829.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  830.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  831.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value

  832. 

  833.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  834.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  835.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  836.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value

  837. 

  838.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  839.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  840.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  841.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value

  842. 

  843.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  844.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  845.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  846.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  847. 

  848.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  849.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  850.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  851.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  852. 

  853.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  854.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  855.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  856.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value

  857. 

  858.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  859.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  860.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  861.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value

  862. 

  863.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  864.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  865.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  866.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value

  867. 

  868.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  869.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  870.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  871.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value

  872. 

  873.                         ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  874.                             部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  875.                             進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " 

  876.  " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("廠商").Value

  877.                         End If

  878.                         aa += 1

  879.                     End If

  880.                 End If

  881.             Next

  882.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  883.     End Sub

  884.     Private Sub 導入C類料()

  885.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  886.             資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條()

  887.             進度表_dgv.Rows(i).Cells("BUCKLE").Value = ""

  888.             Dim aa As Integer = 1

  889.             For ii As Integer = 0 To 部件C_dgv.Rows.Count - 1

  890.                 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件C_dgv.Rows(ii).Cells("流水號").Value Then

  891.                     If aa = 1 Then

  892.                         If 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  893.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  894.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  895.                                      "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  896. 

  897.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  898.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  899.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  900.                                        "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value

  901. 

  902.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  903.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  904.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  905.                                        "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  906. 

  907.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  908.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  909.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  910.                                        "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  911. 

  912.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  913.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  914.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value &

  915.                                        "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  916. 

  917.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  918.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  919.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  920.                                 "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value

  921. 

  922.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  923.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  924.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  925.                                 "-" & 部件C_dgv.Rows(ii).Cells("備註").Value

  926. 

  927.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  928.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  929.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value &

  930.                                 "-" & 部件C_dgv.Rows(ii).Cells("備註").Value

  931. 

  932.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  933.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  934.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  935.                                 "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  936. 

  937.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  938.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  939.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value &

  940.                                 "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  941. 

  942.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  943.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  944.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value &

  945.                                 "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  946. 

  947.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  948.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  949.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value

  950. 

  951.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  952.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  953.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value

  954. 

  955.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  956.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  957.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value

  958. 

  959.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  960.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  961.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("廠商").Value

  962.                         End If

  963.                         aa += 1

  964.                     Else

  965.                         If 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  966.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  967.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  968.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value &

  969.                             "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  970. 

  971.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  972.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  973.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  974.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value &

  975.  "-" & 部件C_dgv.Rows(ii).Cells("備註").Value

  976. 

  977.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  978.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  979.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  980.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value &

  981.  "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  982. 

  983.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  984.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  985.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  986.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value &

  987.  "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  988. 

  989.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  990.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  991.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  992.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value &

  993.  "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  994. 

  995.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  996.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  997.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  998.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value

  999. 

  1000.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1001.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1002.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1003.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value

  1004. 

  1005.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1006.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1007.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1008.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value

  1009. 

  1010.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1011.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1012.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1013.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  1014. 

  1015.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1016.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1017.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1018.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  1019. 

  1020.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1021.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1022.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1023.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value

  1024. 

  1025.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1026.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1027.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1028.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value

  1029. 

  1030.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1031.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1032.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1033.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value

  1034. 

  1035.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1036.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1037.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1038.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value

  1039. 

  1040.                         ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1041.                             部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1042.                             進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " 

  1043.  " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("廠商").Value

  1044.                         End If

  1045.                         aa += 1

  1046.                     End If

  1047.                 End If

  1048.             Next

  1049.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  1050.     End Sub

  1051.     Private Sub 導入D類料()

  1052.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1053.             資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條()

  1054.             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = ""

  1055.             Dim aa As Integer = 1

  1056.             For ii As Integer = 0 To 部件D_dgv.Rows.Count - 1

  1057.                 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件D_dgv.Rows(ii).Cells("流水號").Value Then

  1058.                     If aa = 1 Then

  1059.                         If 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1060.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1061.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1062.                                      "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1063. 

  1064.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1065.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1066.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1067.                                        "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value

  1068. 

  1069.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1070.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1071.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1072.                                        "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1073. 

  1074.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1075.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1076.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1077.                                        "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1078. 

  1079.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1080.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1081.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value &

  1082.                                        "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1083. 

  1084.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1085.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1086.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1087.                                 "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value

  1088. 

  1089.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1090.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1091.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1092.                                 "-" & 部件D_dgv.Rows(ii).Cells("備註").Value

  1093. 

  1094.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1095.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1096.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value &

  1097.                                 "-" & 部件D_dgv.Rows(ii).Cells("備註").Value

  1098. 

  1099.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1100.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1101.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1102.                                 "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1103. 

  1104.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1105.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1106.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value &

  1107.                                 "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1108. 

  1109.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1110.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1111.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value &

  1112.                                 "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1113. 

  1114.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1115.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1116.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value

  1117. 

  1118.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1119.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1120.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value

  1121. 

  1122.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1123.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1124.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value

  1125. 

  1126.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1127.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1128.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1129.                         End If

  1130.                         aa += 1

  1131.                     Else

  1132.                         If 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1133.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1134.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1135.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value &

  1136.                             "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1137. 

  1138.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1139.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1140.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1141.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value &

  1142.  "-" & 部件D_dgv.Rows(ii).Cells("備註").Value

  1143. 

  1144.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1145.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1146.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1147.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value &

  1148.  "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1149. 

  1150.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1151.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1152.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1153.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value &

  1154.  "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1155. 

  1156.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1157.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1158.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1159.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value &

  1160.  "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1161. 

  1162.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1163.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1164.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1165.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value

  1166. 

  1167.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1168.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1169.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1170.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value

  1171. 

  1172.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1173.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1174.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1175.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value

  1176. 

  1177.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1178.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1179.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1180.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1181. 

  1182.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1183.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1184.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1185.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1186. 

  1187.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1188.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1189.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1190.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1191. 

  1192.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1193.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1194.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1195.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value

  1196. 

  1197.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1198.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1199.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1200.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value

  1201. 

  1202.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1203.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1204.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1205.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value

  1206. 

  1207.                         ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1208.                             部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1209.                             進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " 

  1210.  " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("廠商").Value

  1211.                         End If

  1212.                         aa += 1

  1213.                     End If

  1214.                 End If

  1215.             Next

  1216.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  1217.     End Sub

  1218.     Private Sub 導入E類料()

  1219.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1220.             資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條()

  1221.             進度表_dgv.Rows(i).Cells("BOTTOM").Value = ""

  1222.             Dim aa As Integer = 1

  1223.             For ii As Integer = 0 To 部件E_dgv.Rows.Count - 1

  1224.                 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件E_dgv.Rows(ii).Cells("流水號").Value Then

  1225.                     If aa = 1 Then

  1226.                         If 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1227.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1228.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1229.                                      "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1230. 

  1231.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1232.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1233.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1234.                                        "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value

  1235. 

  1236.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1237.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1238.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1239.                                        "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1240. 

  1241.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1242.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1243.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1244.                                        "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1245. 

  1246.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1247.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1248.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value &

  1249.                                        "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1250. 

  1251.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1252.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value & " - ".ToString = "" Then

  1253.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1254.                                 "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value

  1255. 

  1256.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1257.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1258.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1259.                                 "-" & 部件E_dgv.Rows(ii).Cells("備註").Value

  1260. 

  1261.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1262.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1263.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value &

  1264.                                 "-" & 部件E_dgv.Rows(ii).Cells("備註").Value

  1265. 

  1266.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1267.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1268.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1269.                                 "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1270. 

  1271.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1272.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1273.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value &

  1274.                                 "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1275. 

  1276.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1277.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1278.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value &

  1279.                                 "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1280. 

  1281.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1282.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1283.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value

  1284. 

  1285.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1286.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1287.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value

  1288. 

  1289.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1290.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1291.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value

  1292. 

  1293.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1294.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1295.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1296.                         End If

  1297.                         aa += 1

  1298.                     Else

  1299.                         If 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1300.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1301.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1302.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value &

  1303.                             "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1304. 

  1305.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1306.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1307.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1308.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value &

  1309.  "-" & 部件E_dgv.Rows(ii).Cells("備註").Value

  1310. 

  1311.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1312.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1313.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1314.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value &

  1315.  "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1316. 

  1317.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1318.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1319.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1320.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value &

  1321.  "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1322. 

  1323.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1324.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1325.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1326.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value &

  1327.  "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1328. 

  1329.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1330.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1331.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1332.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value

  1333. 

  1334.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1335.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1336.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1337.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value

  1338. 

  1339.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1340.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1341.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1342.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value

  1343. 

  1344.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1345.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1346.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1347.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1348. 

  1349.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1350.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1351.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1352.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1353. 

  1354.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1355.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1356.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1357.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1358. 

  1359.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1360.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1361.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1362.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value

  1363. 

  1364.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1365.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1366.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1367.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value

  1368. 

  1369.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1370.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1371.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1372.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value

  1373. 

  1374.                         ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1375.                             部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1376.                             進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " 

  1377.  " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("廠商").Value

  1378.                         End If

  1379.                         aa += 1

  1380.                     End If

  1381.                 End If

  1382.             Next

  1383.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  1384.     End Sub

  1385.     Private Sub 導入F類料()

  1386.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1387.             資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條()

  1388.             進度表_dgv.Rows(i).Cells("OTHER").Value = ""

  1389.             Dim aa As Integer = 1

  1390.             For ii As Integer = 0 To 部件F_dgv.Rows.Count - 1

  1391.                 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件F_dgv.Rows(ii).Cells("流水號").Value Then

  1392.                     If aa = 1 Then

  1393.                         If 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1394.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1395.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1396.                                      "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1397. 

  1398.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1399.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1400.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1401.                                        "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1402. 

  1403.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1404.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1405.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1406.                                        "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1407. 

  1408.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1409.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1410.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1411.                                        "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1412. 

  1413.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1414.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1415.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value &

  1416.                                        "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1417. 

  1418.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1419.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1420.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1421.                                 "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value

  1422. 

  1423.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1424.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1425.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1426.                                 "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1427. 

  1428.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1429.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1430.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value &

  1431.                                 "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1432. 

  1433.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1434.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1435.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1436.                                 "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1437. 

  1438.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1439.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1440.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value &

  1441.                                 "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1442. 

  1443.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1444.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1445.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value &

  1446.                                 "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1447. 

  1448.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1449.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1450.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value

  1451. 

  1452.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1453.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1454.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value

  1455. 

  1456.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1457.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1458.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value

  1459. 

  1460.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1461.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1462.                             進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1463.                         End If

  1464.                         aa += 1

  1465.                     Else

  1466.                         If 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1467.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1468.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1469.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value &

  1470.                             "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1471. 

  1472.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1473.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1474.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1475.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value &

  1476.  "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1477. 

  1478.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1479.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1480.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1481.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value &

  1482.  "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1483. 

  1484.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1485.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1486.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1487.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value &

  1488.  "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1489. 

  1490.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1491.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1492.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1493.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value &

  1494.  "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1495. 

  1496.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1497.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1498.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1499.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value

  1500. 

  1501.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1502.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1503.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1504.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1505. 

  1506.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1507.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1508.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1509.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1510. 

  1511.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1512.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1513.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1514.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1515. 

  1516.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1517.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1518.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1519.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1520. 

  1521.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1522.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1523.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1524.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1525. 

  1526.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1527.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1528.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1529.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value

  1530. 

  1531.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1532.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1533.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1534.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value

  1535. 

  1536.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1537.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1538.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1539.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value

  1540. 

  1541.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1542.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1543.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1544.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1545.                         End If

  1546.                         aa += 1

  1547.                     End If

  1548.                 End If

  1549.             Next

  1550.         Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  1551.     End Sub

  1552.     Private Sub ComboBox7下拉表單資料載入()

  1553.         SQL_季節清單()

  1554.         SEASON_cb.Items.Clear() : While (dr.Read()) : SEASON_cb.Items.Add(dr("SEASON")) : End While : conn.Close()

  1555.     End Sub

  1556.     Private Sub ComboBox2下拉表單資料載入()

  1557.         SQL_客戶簡稱()

  1558.         CUST_cb.Items.Clear() : While (dr.Read()) : CUST_cb.Items.Add(dr("客戶簡稱")) : End While : conn.Close()

  1559.     End Sub

  1560.     Private Sub 樣品進度表_英文版__Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

  1562.         ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1563.         版本_dgv.Visible = False : 部件A_dgv.Visible = False : 部件B_dgv.Visible = False : 部件C_dgv.Visible = False : 部件D_dgv.Visible = False : 部件E_dgv.Visible = False

  1564.         部件F_dgv.Visible = False : GroupBox1.Visible = False : SEASON_cb.Enabled = False : CUST_cb.Enabled = False

  1565.         查看歷史進度表資料_bt.PerformClick()

  1566.     End Sub

  1567.     Private Sub 進度表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 進度表_dgv.RowPostPaint

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

  1569.         If e.RowIndex = 進度表_dgv.Rows.Count - 1 Then

  1570.             Exit Sub

  1571.         Else

  1572.             If 進度表_dgv(0, e.RowIndex).Value.ToString <> 進度表_dgv(0, e.RowIndex + 1).Value.ToString Then

  1573.                 Dim startX As Integer = IIf(進度表_dgv.RowHeadersVisible, 進度表_dgv.RowHeadersWidth, 0)

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

  1575.                 Dim endX As Integer = startX + 進度表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 進度表_dgv.HorizontalScrollingOffset

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

  1577.                 Exit Sub

  1578.             End If

  1579.         End If

  1580.     End Sub

  1581.     Private Sub 部件F_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 部件F_dgv.RowPostPaint

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

  1583.         If e.RowIndex = 部件F_dgv.Rows.Count - 1 Then

  1584.             Exit Sub

  1585.         Else

  1586.             If 部件F_dgv(0, e.RowIndex).Value.ToString <> 部件F_dgv(0, e.RowIndex + 1).Value.ToString Then

  1587.                 Dim startX As Integer = IIf(部件F_dgv.RowHeadersVisible, 部件F_dgv.RowHeadersWidth, 0)

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

  1589.                 Dim endX As Integer = startX + 部件F_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 部件F_dgv.HorizontalScrollingOffset

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

  1591.                 Exit Sub

  1592.             End If

  1593.         End If

  1594.     End Sub

  1595.     Private Sub 季節客戶_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 季節客戶_dgv.CellClick

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

  1597.             ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1598.             SEASON_cb.Text = 季節客戶_dgv.Rows(e.RowIndex).Cells("季節").Value

  1599.             CUST_cb.Text = 季節客戶_dgv.Rows(e.RowIndex).Cells("客戶").Value

  1600.             關閉_bt.PerformClick() : 重新讀取_bt.PerformClick()

  1601.         End If

  1602.     End Sub

  1603.     Private Sub SEASON_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SEASON_cb.SelectedIndexChanged

  1604.         If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : SEASON_cb.Enabled = False : CUST_cb.Enabled = False : End If

  1605.     End Sub

  1606.     Private Sub CUST_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CUST_cb.SelectedIndexChanged

  1607.         If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : SEASON_cb.Enabled = False : CUST_cb.Enabled = False : End If

  1608.     End Sub

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

  1610.         If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : MsgBox("季節或客戶沒有選擇!!!") : Else

  1611.             Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單()

  1612.             資料數 = 進度表_dgv.Rows.Count * 6 : 導入A類料() : 導入B類料() : 導入C類料() : 導入D類料() : 導入E類料() : 導入F類料() : Set_grid0()

  1613.             WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  1614.         End If

  1615.     End Sub

  1616.     Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click

  1617.         SEASON_cb.Enabled = True : CUST_cb.Enabled = True : ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1618.     End Sub

  1619.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click

  1620.         GroupBox1.Visible = False

  1621.     End Sub

  1622.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 查看歷史進度表資料_bt.Click

  1623.         Set_清單8()

  1624.         GroupBox1.Visible = True

  1625.     End Sub

  1626.     Private Sub 圖片導入2()

  1627.         SQL_圖片2()

  1628.         PictureBox2.Image = Nothing

  1629.         While dr.Read() = True

  1630.             Dim bytes As Byte() = New Byte(-1) {}

  1631.             bytes = DirectCast(dr.Item("圖片"), Byte())

  1632.             Dim oStream As New MemoryStream(bytes)

  1633.             PictureBox2.Image = Bitmap.FromStream(oStream)

  1634.         End While

  1635.         conn.Close()

  1636.         PictureBox2.SizeMode = 4

  1637.     End Sub

  1638.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click

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

  1640.         xlBook = xlApp.Workbooks.Add

  1641.         xlApp.DisplayAlerts = True

  1642.         xlBook.Activate()

  1643.         xlSheet = NewMethod(xlBook)

  1644.         xlSheet.Activate()

  1645.         xlApp.Visible = True

  1646.         xlApp.Application.WindowState = xlMaximized

  1647.         FFGG = 進度表_dgv.Rows.Count + 3

  1648.         AA(xlApp, xlSheet)

  1649.         xlSheet.Cells(1, 1) = CUST_cb.Text & " - " & SEASON_cb.Text & " - " & 樣品進度表分類2 & " - " & "SAMPLE SCHEDULE"

  1650.         xlSheet.Cells(3, 1) = "No."

  1651.         xlSheet.Cells(3, 2) = "工廠"

  1652.         xlSheet.Cells(3, 3) = "Picture "

  1653.         xlSheet.Cells(3, 4) = "STYLE"

  1654.         xlSheet.Cells(3, 5) = "C_No"

  1655.         xlSheet.Cells(3, 6) = "Color"

  1656.         xlSheet.Cells(3, 7) = "SIZE"

  1657.         xlSheet.Cells(3, 8) = "UPPER_____A."

  1658.         xlSheet.Cells(3, 9) = "LINING_____B."

  1659.         xlSheet.Cells(3, 10) = "STITCHING_____F."

  1660.         xlSheet.Cells(3, 11) = "ACCESSORIES_____C."

  1661.         xlSheet.Cells(3, 12) = "SOCK LINING_____D."

  1662.         xlSheet.Cells(3, 13) = "BOTTOM_____E."

  1663.         xlSheet.Cells(3, 14) = "Double"

  1664.         xlSheet.Cells(3, 15) = "ETD"

  1665.         xlSheet.Cells(3, 16) = "Remark"

  1666.         xlSheet.Cells(3, 17) = "Express number"

  1667.         Dim VVBB As String = "0"

  1668.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1669.             N3 = i + 4

  1670.             SSDD = 進度表_dgv.Rows(i).Cells("型體號碼").Value

  1671.             If VVBB <> SSDD Then

  1672.                 圖片導入2() : N6 = 1

  1673.                 For ii As Integer = 0 To 20

  1674.                     If PictureBox2.Image Is Nothing Then

  1675.                         Thread.Sleep(100) '延迟0.1秒

  1676.                     Else

  1677.                         BB(xlApp, xlSheet)

  1678.                         ii = 20

  1679.                     End If

  1680.                 Next ii

  1681.             End If

  1682.             VVBB = SSDD

  1683.             xlSheet.Cells(i + 4, 1) = 進度表_dgv.Rows(i).Cells("序號").Value

  1684.             xlSheet.Cells(i + 4, 2) = 進度表_dgv.Rows(i).Cells("工廠").Value

  1685.             xlSheet.Cells(i + 4, 4) = 進度表_dgv.Rows(i).Cells("STYLE").Value

  1686.             xlSheet.Cells(i + 4, 5) = N6

  1687.             xlSheet.Cells(i + 4, 6) = 進度表_dgv.Rows(i).Cells("顏色").Value

  1688.             xlSheet.Cells(i + 4, 7) = 進度表_dgv.Rows(i).Cells("SIZE").Value

  1689.             xlSheet.Cells(i + 4, 8) = 進度表_dgv.Rows(i).Cells("UPPER").Value

  1690.             xlSheet.Cells(i + 4, 9) = 進度表_dgv.Rows(i).Cells("LINING").Value

  1691.             xlSheet.Cells(i + 4, 10) = 進度表_dgv.Rows(i).Cells("OTHER").Value

  1692.             xlSheet.Cells(i + 4, 11) = 進度表_dgv.Rows(i).Cells("BUCKLE").Value

  1693.             xlSheet.Cells(i + 4, 12) = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value

  1694.             xlSheet.Cells(i + 4, 13) = 進度表_dgv.Rows(i).Cells("BOTTOM").Value

  1695.             xlSheet.Cells(i + 4, 14) = 進度表_dgv.Rows(i).Cells("數量").Value

  1696.             xlSheet.Cells(i + 4, 15) = 進度表_dgv.Rows(i).Cells("ETA").Value

  1697.             N6 += 1

  1698.         Next i

  1699.         CC(xlApp, xlSheet)

  1700.         xlSheet.PageSetup.PrintArea = ""

  1701.         xlApp.Cells.Select()

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

  1703.         xlApp.Application.WindowState = xlMinimized

  1704.         MsgBox("列印完成")

  1705.     End Sub

  1706. 

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

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

  1709.     End Function

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

  1711.         xlSheet.Cells.Select()

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

  1713.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1714.         xlSheet.Rows("4:" & FFGG).Select

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

  1716.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1717.         myExcel.Selection.RowHeight = 90

  1718.         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1719.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1720. 

  1721.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 3

  1722.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1723.             .ReadingOrder = xlContext : End With

  1724.         xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 10

  1725.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1726.             .ReadingOrder = xlContext : End With

  1727.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 16

  1728.         xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9

  1729.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1730.             .ReadingOrder = xlContext : End With

  1731.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 4

  1732.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1733.             .ReadingOrder = xlContext : End With

  1734.         xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12

  1735.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1736.             .ReadingOrder = xlContext : End With

  1737. 

  1738.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 5

  1739.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1740.             .ReadingOrder = xlContext : End With

  1741. 

  1742.         xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 33 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 33

  1743.         xlSheet.Columns("J:J").Select : myExcel.Selection.ColumnWidth = 33 : xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 33

  1744.         xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 33 : xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 33

  1745.         xlSheet.Columns("N:N").Select : myExcel.Selection.ColumnWidth = 6

  1746.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1747.             .ReadingOrder = xlContext : End With

  1748.         xlSheet.Columns("O:O").Select : myExcel.Selection.ColumnWidth = 8

  1749.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1750.             .ReadingOrder = xlContext : End With

  1751.         xlSheet.Columns("P:P").Select : myExcel.Selection.ColumnWidth = 16

  1752.         xlSheet.Columns("Q:Q").Select : myExcel.Selection.ColumnWidth = 15

  1753. 

  1754.         xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 5 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 35

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

  1756.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1757.     End Sub

  1758.     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1759.         Clipboard.SetDataObject(PictureBox2.Image)

  1760.         xlSheet.Cells(1, 1).Select

  1761.         Thread.Sleep(100) '延迟0.1秒

  1762.         xlSheet.Range("C" & N3).Select()

  1763.         myExcel.ActiveSheet.Paste

  1764.         If PictureBox2.Image.Height < PictureBox2.Image.Width Then

  1765.             myExcel.Selection.ShapeRange.Width = 45

  1766.         Else

  1767.             myExcel.Selection.ShapeRange.Height = 40

  1768.         End If

  1769.         myExcel.Selection.ShapeRange.IncrementLeft(2)

  1770.         myExcel.Selection.ShapeRange.IncrementTop(2)

  1771.     End Sub

  1772.     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1773.         xlSheet.Range("A3:Q3").Select()

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

  1775.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1776.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1777.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1778.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

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

  1780.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1781.         N4 = 0 : N5 = 0

  1782.         Dim ZZXX As Boolean = False : Dim XXCC As Boolean = False

  1783.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1784.             If i = 進度表_dgv.Rows.Count - 1 Then

  1785.                 xlSheet.Range("A" & N4 + 3 & ":Q" & N5 + 4).Select()

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

  1787.                 With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1788.                 With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1789.                 With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1790.                 With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1791.                 With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1792.                 With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1793.                 Exit For

  1794.             ElseIf (進度表_dgv.Rows(i).Cells("序號").Value = 進度表_dgv.Rows(i + 1).Cells("序號").Value) And i < 進度表_dgv.Rows.Count Then

  1795.                 If ZZXX = False Then

  1796.                     N4 = i + 1 : ZZXX = True

  1797.                 End If

  1798.                 N5 = i + 1

  1799.             ElseIf (進度表_dgv.Rows(i).Cells("序號").Value <> 進度表_dgv.Rows(i + 1).Cells("序號").Value) And i < 進度表_dgv.Rows.Count Then

  1800.                 If XXCC = False Then

  1801.                     xlSheet.Range("A" & N4 + 3 & ":Q" & N5 + 4).Select() : XXCC = True

  1802.                 Else

  1803.                     xlSheet.Range("A" & N4 + 4 & ":Q" & N5 + 4).Select()

  1804.                 End If

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

  1806.                 With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1807.                 With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1808.                 With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1809.                 With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1810.                 With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1811.                 With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1812. 

  1813.                 ZZXX = False

  1814.                 If ZZXX = False Then

  1815.                     N4 = i + 1 : ZZXX = True

  1816.                 End If

  1817.                 N5 = i + 1

  1818.             End If

  1819.         Next

  1820.         myExcel.ActiveWindow.Zoom = 80

  1821. 

  1822.         xlSheet.Columns("B:B").Select : xlSheet.Range("B2").Activate() : myExcel.Selection.Delete

  1823.         xlSheet.Columns("H:L").Select : xlSheet.Range("H2").Activate() : myExcel.Selection.Delete

  1824.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 100

  1825.         xlSheet.Rows("4:" & 進度表_dgv.Rows.Count + 3).EntireRow.AutoFit

  1826.         xlSheet.Range("A1:K1").Select()

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

  1828.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1829.         myExcel.Selection.Merge

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

  1831.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1832. 

  1833.         ZZXX = False : XXCC = False

  1834.         myExcel.Application.PrintCommunication = False

  1835.         With myExcel.ActiveSheet.PageSetup

  1836.             .PrintTitleRows = "$1:$3"

  1837.             .PrintTitleColumns = ""

  1838.         End With

  1839.         myExcel.Application.PrintCommunication = True

  1840.         myExcel.ActiveSheet.PageSetup.PrintArea = ""

  1841.         myExcel.Application.PrintCommunication = False

  1842.         With myExcel.ActiveSheet.PageSetup

  1843.             .LeftHeader = ""

  1844.             .CenterHeader = ""

  1845.             .RightHeader = ""

  1846.             .LeftFooter = ""

  1847.             .CenterFooter = ""

  1848.             .RightFooter = ""

  1849.             .LeftMargin = myExcel.Application.InchesToPoints(0.25)

  1850.             .RightMargin = myExcel.Application.InchesToPoints(0.25)

  1851.             .TopMargin = myExcel.Application.InchesToPoints(0.75)

  1852.             .BottomMargin = myExcel.Application.InchesToPoints(0.75)

  1853.             .HeaderMargin = myExcel.Application.InchesToPoints(0.3)

  1854.             .FooterMargin = myExcel.Application.InchesToPoints(0.3)

  1855.             .PrintHeadings = False

  1856.             .PrintGridlines = False

  1857.             .PrintQuality = 600

  1858.             .CenterHorizontally = False

  1859.             .CenterVertically = False

  1860.             .Draft = False

  1861.             .FirstPageNumber = xlAutomatic

  1862.             .BlackAndWhite = False

  1863.             .Zoom = 50

  1864.             .OddAndEvenPagesHeaderFooter = False

  1865.             .DifferentFirstPageHeaderFooter = False

  1866.             .ScaleWithDocHeaderFooter = True

  1867.             .AlignMarginsHeaderFooter = True

  1868.             .EvenPage.LeftHeader.Text = ""

  1869.             .EvenPage.CenterHeader.Text = ""

  1870.             .EvenPage.RightHeader.Text = ""

  1871.             .EvenPage.LeftFooter.Text = ""

  1872.             .EvenPage.CenterFooter.Text = ""

  1873.             .EvenPage.RightFooter.Text = ""

  1874.             .FirstPage.LeftHeader.Text = ""

  1875.             .FirstPage.CenterHeader.Text = ""

  1876.             .FirstPage.RightHeader.Text = ""

  1877.             .FirstPage.LeftFooter.Text = ""

  1878.             .FirstPage.CenterFooter.Text = ""

  1879.             .FirstPage.RightFooter.Text = ""

  1880.         End With

  1881.         myExcel.Application.PrintCommunication = True

  1882.     End Sub

  1883. End Class