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 145KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519 
  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. Public Class 樣品進度表

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

  15.     Dim N1, N2, N3, N4, N5, N6, FFGG As Integer

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

  17.     Private Sub Set_清單1()

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

  19.         版本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  20.         版本_dgv.ColumnHeadersHeight = 25

  21.         版本_dgv.AllowUserToAddRows = False

  22.         SQL_樣品訂單控制表1()

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

  24.     End Sub

  25.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  27.         部件A_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  28.         部件A_dgv.ColumnHeadersHeight = 25

  29.         部件A_dgv.AllowUserToAddRows = False

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

  31.         SQL_樣品訂單控制表2()

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

  33.     End Sub

  34.     Private Sub Set_清單2()

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

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

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

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

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

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

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

  42.             End If

  43.         Next

  44.     End Sub

  45.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  47.         部件B_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  48.         部件B_dgv.ColumnHeadersHeight = 25

  49.         部件B_dgv.AllowUserToAddRows = False

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

  51.         SQL_樣品訂單控制表3()

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

  53.     End Sub

  54.     Private Sub Set_清單3()

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

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

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

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

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

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

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

  62.             End If

  63.         Next

  64.     End Sub

  65.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  67.         部件C_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  68.         部件C_dgv.ColumnHeadersHeight = 25

  69.         部件C_dgv.AllowUserToAddRows = False

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

  71.         SQL_樣品訂單控制表4()

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

  73.     End Sub

  74.     Private Sub Set_清單4()

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

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

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

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

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

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

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

  82.             End If

  83.         Next

  84.     End Sub

  85.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  87.         部件D_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  88.         部件D_dgv.ColumnHeadersHeight = 25

  89.         部件D_dgv.AllowUserToAddRows = False

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

  91.         SQL_樣品訂單控制表5()

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

  93.     End Sub

  94.     Private Sub Set_清單5()

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

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

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

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

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

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

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

  102.             End If

  103.         Next

  104.     End Sub

  105.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  107.         部件E_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  108.         部件E_dgv.ColumnHeadersHeight = 25

  109.         部件E_dgv.AllowUserToAddRows = False

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

  111.         SQL_樣品訂單控制表6()

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

  113.     End Sub

  114.     Private Sub Set_清單6()

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

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

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

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

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

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

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

  122.             End If

  123.         Next

  124.     End Sub

  125.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  127.         部件F_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  128.         部件F_dgv.ColumnHeadersHeight = 25

  129.         部件F_dgv.AllowUserToAddRows = False

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

  131.         SQL_樣品訂單控制表7()

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

  133.     End Sub

  134.     Private Sub Set_清單7()

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

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

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

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

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

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

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

  142.             End If

  143.         Next

  144.     End Sub

  145.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  146.     Private Sub Set_讀取清單()

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

  148.         進度表_dgv.ColumnHeadersHeight = 25

  149.         進度表_dgv.AllowUserToAddRows = False

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

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

  152.         SQL_進度表清單()

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

  154.     End Sub

  155.     Private Sub Set_清單()

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

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

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

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

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

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

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

  163.             End If

  164.         Next

  165.     End Sub

  166.     Private Sub Set_grid()

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

  168.         進度表_dgv.Columns(4).Visible = False : 進度表_dgv.Columns(5).FillWeight = 95 : 進度表_dgv.Columns(6).FillWeight = 80 : 進度表_dgv.Columns(7).Visible = False

  169.         進度表_dgv.Columns(8).FillWeight = 80 : 進度表_dgv.Columns(9).FillWeight = 95 : 進度表_dgv.Columns(10).FillWeight = 40 : 進度表_dgv.Columns(11).FillWeight = 40

  170.         進度表_dgv.Columns(12).Visible = False : 進度表_dgv.Columns(13).Visible = False : 進度表_dgv.Columns(14).FillWeight = 230 : 進度表_dgv.Columns(15).FillWeight = 230

  171.         進度表_dgv.Columns(16).FillWeight = 190 : 進度表_dgv.Columns(17).FillWeight = 200 : 進度表_dgv.Columns(18).FillWeight = 200 : 進度表_dgv.Columns(19).FillWeight = 130

  172.         進度表_dgv.Columns(20).FillWeight = 60

  173. 

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

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

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

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

  178.         N1 = 1

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

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

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

  182.             Else

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

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

  185.                 Else

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

  187.                 End If

  188.             End If

  189.         Next

  190.     End Sub

  191.     Private Sub Set_grid0()

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

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

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

  195. 

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

  197.             進度表_dgv.Rows(i).Cells("選擇").Value = False

  198.         Next

  199.         If 進度表_dgv.Rows.Count = 0 Then

  200.         Else

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

  202.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  203.         End If

  204.     End Sub

  205.     Private Sub Set_清單8()

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

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

  208.         季節客戶_dgv.ColumnHeadersHeight = 25

  209.         季節客戶_dgv.AllowUserToAddRows = False

  210.         SQL_樣品訂單控制表()

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

  212.     End Sub

  213.     Private Sub Set_grid8()

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

  215.     End Sub

  216.     Private Sub 導入A類料()

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

  218.             MyModule1.進度條()

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

  220.             Dim aa As Integer = 1

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

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

  223.                     If aa = 1 Then

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

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

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

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

  228. 

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

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

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

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

  233. 

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

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

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

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

  238. 

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

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

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

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

  243. 

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

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

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

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

  248. 

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

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

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

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

  253. 

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

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

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

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

  258. 

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

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

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

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

  263. 

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

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

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

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

  268. 

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

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

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

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

  273. 

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

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

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

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

  278. 

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

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

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

  282. 

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

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

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

  286. 

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

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

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

  290. 

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

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

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

  294.                         End If

  295.                         aa += 1

  296.                     Else

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

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

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

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

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

  302. 

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

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

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

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

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

  308. 

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

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

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

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

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

  314. 

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

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

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

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

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

  320. 

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

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

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

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

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

  326. 

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

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

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

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

  331. 

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

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

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

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

  336. 

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

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

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

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

  341. 

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

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

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

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

  346. 

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

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

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

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

  351. 

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

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

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

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

  356. 

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

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

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

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

  361. 

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

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

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

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

  366. 

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

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

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

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

  371. 

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

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

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

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

  376.                         End If

  377.                         aa += 1

  378.                     End If

  379.                 End If

  380.             Next

  381.         Next

  382.     End Sub

  383.     Private Sub 導入B類料()

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

  385.             MyModule1.進度條()

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

  387.             Dim aa As Integer = 1

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

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

  390.                     If aa = 1 Then

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

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

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

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

  395. 

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

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

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

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

  400. 

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

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

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

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

  405. 

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

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

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

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

  410. 

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

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

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

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

  415. 

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

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

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

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

  420. 

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

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

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

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

  425. 

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

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

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

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

  430. 

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

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

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

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

  435. 

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

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

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

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

  440. 

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

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

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

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

  445. 

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

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

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

  449. 

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

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

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

  453. 

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

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

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

  457. 

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

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

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

  461.                         End If

  462.                         aa += 1

  463.                     Else

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

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

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

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

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

  469. 

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

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

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

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

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

  475. 

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

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

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

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

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

  481. 

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

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

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

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

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

  487. 

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

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

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

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

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

  493. 

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

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

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

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

  498. 

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

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

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

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

  503. 

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

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

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

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

  508. 

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

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

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

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

  513. 

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

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

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

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

  518. 

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

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

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

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

  523. 

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

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

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

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

  528. 

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

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

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

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

  533. 

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

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

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

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

  538. 

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

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

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

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

  543.                         End If

  544.                         aa += 1

  545.                     End If

  546.                 End If

  547.             Next

  548.         Next

  549.     End Sub

  550.     Private Sub 導入C類料()

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

  552.             MyModule1.進度條()

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

  554.             Dim aa As Integer = 1

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

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

  557.                     If aa = 1 Then

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

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

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

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

  562. 

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

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

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

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

  567. 

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

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

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

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

  572. 

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

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

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

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

  577. 

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

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

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

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

  582. 

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

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

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

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

  587. 

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

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

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

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

  592. 

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

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

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

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

  597. 

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

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

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

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

  602. 

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

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

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

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

  607. 

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

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

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

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

  612. 

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

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

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

  616. 

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

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

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

  620. 

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

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

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

  624. 

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

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

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

  628.                         End If

  629.                         aa += 1

  630.                     Else

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

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

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

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

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

  636. 

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

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

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

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

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

  642. 

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

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

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

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

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

  648. 

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

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

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

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

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

  654. 

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

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

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

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

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

  660. 

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

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

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

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

  665. 

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

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

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

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

  670. 

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

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

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

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

  675. 

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

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

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

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

  680. 

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

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

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

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

  685. 

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

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

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

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

  690. 

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

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

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

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

  695. 

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

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

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

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

  700. 

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

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

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

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

  705. 

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

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

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

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

  710.                         End If

  711.                         aa += 1

  712.                     End If

  713.                 End If

  714.             Next

  715.         Next

  716.     End Sub

  717.     Private Sub 導入D類料()

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

  719.             MyModule1.進度條()

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

  721.             Dim aa As Integer = 1

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

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

  724.                     If aa = 1 Then

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

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

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

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

  729. 

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

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

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

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

  734. 

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

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

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

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

  739. 

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

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

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

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

  744. 

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

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

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

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

  749. 

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

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

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

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

  754. 

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

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

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

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

  759. 

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

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

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

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

  764. 

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

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

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

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

  769. 

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

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

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

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

  774. 

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

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

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

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

  779. 

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

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

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

  783. 

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

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

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

  787. 

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

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

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

  791. 

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

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

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

  795.                         End If

  796.                         aa += 1

  797.                     Else

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

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

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

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

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

  803. 

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

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

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

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

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

  809. 

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

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

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

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

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

  815. 

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

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

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

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

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

  821. 

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

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

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

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

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

  827. 

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

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

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

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

  832. 

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

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

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

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

  837. 

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

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

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

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

  842. 

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

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

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

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

  847. 

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

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

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

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

  852. 

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

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

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

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

  857. 

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

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

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

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

  862. 

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

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

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

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

  867. 

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

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

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

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

  872. 

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

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

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

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

  877.                         End If

  878.                         aa += 1

  879.                     End If

  880.                 End If

  881.             Next

  882.         Next

  883.     End Sub

  884.     Private Sub 導入E類料()

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

  886.             MyModule1.進度條()

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

  888.             Dim aa As Integer = 1

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

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

  891.                     If aa = 1 Then

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

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

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

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

  896. 

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

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

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

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

  901. 

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

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

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

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

  906. 

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

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

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

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

  911. 

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

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

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

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

  916. 

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

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

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

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

  921. 

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

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

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

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

  926. 

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

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

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

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

  931. 

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

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

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

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

  936. 

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

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

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

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

  941. 

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

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

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

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

  946. 

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

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

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

  950. 

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

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

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

  954. 

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

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

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

  958. 

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

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

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

  962.                         End If

  963.                         aa += 1

  964.                     Else

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

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

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

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

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

  970. 

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

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

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

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

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

  976. 

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

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

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

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

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

  982. 

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

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

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

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

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

  988. 

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

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

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

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

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

  994. 

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

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

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

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

  999. 

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

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

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

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

  1004. 

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

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

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

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

  1009. 

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

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

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

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

  1014. 

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

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

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

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

  1019. 

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

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

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

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

  1024. 

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

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

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

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

  1029. 

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

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

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

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

  1034. 

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

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

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

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

  1039. 

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

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

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

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

  1044.                         End If

  1045.                         aa += 1

  1046.                     End If

  1047.                 End If

  1048.             Next

  1049.         Next

  1050.     End Sub

  1051.     Private Sub 導入F類料()

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

  1053.             MyModule1.進度條()

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

  1055.             Dim aa As Integer = 1

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

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

  1058.                     If aa = 1 Then

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

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

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

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

  1063. 

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

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

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

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

  1068. 

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

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

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

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

  1073. 

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

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

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

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

  1078. 

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

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

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

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

  1083. 

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

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

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

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

  1088. 

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

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

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

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

  1093. 

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

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

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

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

  1098. 

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

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

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

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

  1103. 

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

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

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

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

  1108. 

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

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

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

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

  1113. 

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

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

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

  1117. 

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

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

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

  1121. 

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

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

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

  1125. 

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

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

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

  1129.                         End If

  1130.                         aa += 1

  1131.                     Else

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

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

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

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

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

  1137. 

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

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

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

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

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

  1143. 

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

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

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

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

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

  1149. 

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

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

  1152.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

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

  1154.  "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1155. 

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

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

  1158.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1159.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value &

  1160.  "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1161. 

  1162.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1163.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1164.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1165.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value

  1166. 

  1167.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1168.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1169.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1170.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1171. 

  1172.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1173.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1174.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1175.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value

  1176. 

  1177.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1178.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1179.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1180.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1181. 

  1182.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1183.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1184.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1185.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1186. 

  1187.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1188.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1189.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1190.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1191. 

  1192.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1193.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1194.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1195.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value

  1196. 

  1197.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1198.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1199.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1200.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value

  1201. 

  1202.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1203.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1204.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1205.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value

  1206. 

  1207.                         ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1208.                             部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1209.                             進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " 

  1210.  " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("廠商").Value

  1211.                         End If

  1212.                         aa += 1

  1213.                     End If

  1214.                 End If

  1215.             Next

  1216.         Next

  1217.     End Sub

  1218.     Private Sub ComboBox7下拉表單資料載入()

  1219.         SQL_季節清單()

  1220.         SEASON_cb.Items.Clear() : While (dr.Read()) : SEASON_cb.Items.Add(dr("SEASON")) : End While : conn.Close()

  1221.     End Sub

  1222.     Private Sub ComboBox2下拉表單資料載入()

  1223.         SQL_客戶簡稱()

  1224.         CUST_cb.Items.Clear() : While (dr.Read()) : CUST_cb.Items.Add(dr("客戶簡稱")) : End While : conn.Close()

  1225.     End Sub

  1226.     Private Sub 樣品進度表DEVELOPMENT_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  1227.         WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  1228.         ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1229.         版本_dgv.Visible = False : 部件A_dgv.Visible = False : 部件B_dgv.Visible = False : 部件C_dgv.Visible = False : 部件D_dgv.Visible = False : 部件E_dgv.Visible = False

  1230.         部件F_dgv.Visible = False : Panel1.Visible = False : SEASON_cb.Enabled = False : CUST_cb.Enabled = False

  1231.         查看歷史進度表資料_bt.PerformClick()

  1232.     End Sub

  1233.     Private Sub 進度表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 進度表_dgv.RowPostPaint

  1234.         Dim linePen As New Pen(Color.Blue, 2)

  1235.         If e.RowIndex = 進度表_dgv.Rows.Count - 1 Then

  1236.             Exit Sub

  1237.         Else

  1238.             If 進度表_dgv(0, e.RowIndex).Value.ToString <> 進度表_dgv(0, e.RowIndex + 1).Value.ToString Then

  1239.                 Dim startX As Integer = IIf(進度表_dgv.RowHeadersVisible, 進度表_dgv.RowHeadersWidth, 0)

  1240.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  1241.                 Dim endX As Integer = startX + 進度表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 進度表_dgv.HorizontalScrollingOffset

  1242.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  1243.                 Exit Sub

  1244.             End If

  1245.         End If

  1246.     End Sub

  1247.     Private Sub 部件F_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 部件F_dgv.RowPostPaint

  1248.         Dim linePen As New Pen(Color.Blue, 2)

  1249.         If e.RowIndex = 部件F_dgv.Rows.Count - 1 Then

  1250.             Exit Sub

  1251.         Else

  1252.             If 部件F_dgv(0, e.RowIndex).Value.ToString <> 部件F_dgv(0, e.RowIndex + 1).Value.ToString Then

  1253.                 Dim startX As Integer = IIf(部件F_dgv.RowHeadersVisible, 部件F_dgv.RowHeadersWidth, 0)

  1254.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  1255.                 Dim endX As Integer = startX + 部件F_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 部件F_dgv.HorizontalScrollingOffset

  1256.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  1257.                 Exit Sub

  1258.             End If

  1259.         End If

  1260.     End Sub

  1261.     Private Sub 季節客戶_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 季節客戶_dgv.CellClick

  1262.         If e.RowIndex = -1 Then : Else

  1263.             ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1264.             SEASON_cb.Text = 季節客戶_dgv.Rows(e.RowIndex).Cells("季節").Value

  1265.             CUST_cb.Text = 季節客戶_dgv.Rows(e.RowIndex).Cells("客戶").Value

  1266.             關閉_bt.PerformClick() : 重新讀取_bt.PerformClick()

  1267.         End If

  1268.     End Sub

  1269.     Private Sub SEASON_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SEASON_cb.SelectedIndexChanged

  1270.         If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : SEASON_cb.Enabled = False : CUST_cb.Enabled = False : End If

  1271.     End Sub

  1272.     Private Sub CUST_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CUST_cb.SelectedIndexChanged

  1273.         If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : SEASON_cb.Enabled = False : CUST_cb.Enabled = False : End If

  1274.     End Sub

  1275.     Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click

  1276.         If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : MsgBox("季節或客戶沒有選擇!!!") : Else

  1277.             Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單()

  1278.             資料數 = 進度表_dgv.Rows.Count * 6 : 導入A類料() : 導入B類料() : 導入C類料() : 導入D類料() : 導入E類料() : 導入F類料() : Set_grid0()

  1279.             WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  1280.         End If

  1281.     End Sub

  1282.     Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click

  1283.         SEASON_cb.Enabled = True : CUST_cb.Enabled = True : ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1284.     End Sub

  1285.     Private Sub 關閉_bt_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click

  1286.         Panel1.Visible = False

  1287.     End Sub

  1288.     Private Sub 查看歷史進度表資料_bt_Click(sender As Object, e As EventArgs) Handles 查看歷史進度表資料_bt.Click

  1289.         Set_清單8() : Panel1.Visible = True

  1290.     End Sub

  1291.     Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click

  1292.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 : 進度表_dgv.Rows(i).Cells("選擇").Value = False : Next

  1293.         全部列印自動框線_cb.Checked = False

  1294.     End Sub

  1295.     Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click

  1296.         For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 : 進度表_dgv.Rows(i).Cells("選擇").Value = True : Next

  1297.         全部列印自動框線_cb.Checked = True

  1298.     End Sub

  1299.     Private Sub 圖片導入2()

  1300.         SQL_圖片導入2()

  1301.         PictureBox2.Image = Nothing

  1302.         While dr.Read() = True

  1303.             Dim unused As Byte() = New Byte(-1) {}

  1304.             Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())

  1305.             Dim oStream As New MemoryStream(bytes)

  1306.             PictureBox2.Image = Bitmap.FromStream(oStream)

  1307. 

  1308.             'Dim bytes As Byte() = New Byte(-1) {}

  1309.             'bytes = DirectCast(dr.Item("圖片"), Byte())

  1310.             'Dim oStream As New MemoryStream(bytes)

  1311.             'PictureBox2.Image = Bitmap.FromStream(oStream)

  1312.         End While

  1313.         conn.Close()

  1314.         PictureBox2.SizeMode = 4

  1315.     End Sub

  1316.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click

  1317.         Dim 判斷 As Boolean = False

  1318.         For I As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1319.             If 進度表_dgv.Rows(I).Cells("選擇").Value = True Then

  1320.                 判斷 = True : Exit For

  1321.             End If

  1322.         Next

  1323.         If 判斷 = False Then

  1324.             MsgBox("最少要勾選一筆資料!!!")

  1325.         Else

  1326.             xlApp = CType(CreateObject("Excel.Application"), Application)

  1327.             xlBook = xlApp.Workbooks.Add

  1328.             xlApp.DisplayAlerts = True

  1329.             xlBook.Activate()

  1330.             xlSheet = NewMethod(xlBook)

  1331.             xlSheet.Activate()

  1332.             xlApp.Visible = True

  1333.             xlApp.Application.WindowState = xlMaximized

  1334.             FFGG = 進度表_dgv.Rows.Count + 3

  1335.             AA(xlApp, xlSheet)

  1336.             xlSheet.Cells(1, 1) = CUST_cb.Text & " - " & SEASON_cb.Text & " - " & 樣品進度表分類1 & " - " & "SAMPLE SCHEDULE"

  1337.             xlSheet.Cells(3, 1) = "No." : xlSheet.Cells(3, 2) = "工廠" : xlSheet.Cells(3, 3) = "圖片" : xlSheet.Cells(3, 4) = "STYLE" : xlSheet.Cells(3, 5) = "C_No" : xlSheet.Cells(3, 6) = "顏色"

  1338.             xlSheet.Cells(3, 7) = "SIZE" : xlSheet.Cells(3, 8) = "UPPER_____A." : xlSheet.Cells(3, 9) = "LINING_____B." : xlSheet.Cells(3, 10) = "STITCHING_____F."

  1339.             xlSheet.Cells(3, 11) = "ACCESSORIES_____C." : xlSheet.Cells(3, 12) = "SOCK LINING_____D." : xlSheet.Cells(3, 13) = "BOTTOM_____E." : xlSheet.Cells(3, 14) = "數量"

  1340.             xlSheet.Cells(3, 15) = "ETD" : xlSheet.Cells(3, 16) = "備註"

  1341.             Dim VVBB As String = "0" : Dim FF As Integer = 0

  1342.             For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1343.                 SSDD = 進度表_dgv.Rows(i).Cells("型體號碼").Value

  1344.                 If 進度表_dgv.Rows(i).Cells("選擇").Value = True Then

  1345.                     N3 = FF + 4

  1346.                     If VVBB <> SSDD Then

  1347.                         圖片導入2() : N6 = 1

  1348.                         For ii As Integer = 0 To 20

  1349.                             If PictureBox2.Image Is Nothing Then

  1350.                                 Thread.Sleep(100) '延迟0.1秒

  1351.                             Else

  1352.                                 BB(xlApp, xlSheet) : ii = 20

  1353.                             End If

  1354.                         Next ii

  1355.                     End If

  1356.                     VVBB = SSDD

  1357.                     xlSheet.Cells(FF + 4, 1) = 進度表_dgv.Rows(i).Cells("序號").Value : xlSheet.Cells(FF + 4, 2) = 進度表_dgv.Rows(i).Cells("工廠").Value

  1358.                     xlSheet.Cells(FF + 4, 4) = 進度表_dgv.Rows(i).Cells("STYLE").Value : xlSheet.Cells(FF + 4, 5) = N6

  1359.                     xlSheet.Cells(FF + 4, 6) = 進度表_dgv.Rows(i).Cells("顏色").Value : xlSheet.Cells(FF + 4, 7) = 進度表_dgv.Rows(i).Cells("SIZE").Value

  1360.                     xlSheet.Cells(FF + 4, 8) = 進度表_dgv.Rows(i).Cells("UPPER").Value : xlSheet.Cells(FF + 4, 9) = 進度表_dgv.Rows(i).Cells("LINING").Value

  1361.                     xlSheet.Cells(FF + 4, 10) = 進度表_dgv.Rows(i).Cells("OTHER").Value : xlSheet.Cells(FF + 4, 11) = 進度表_dgv.Rows(i).Cells("BUCKLE").Value

  1362.                     xlSheet.Cells(FF + 4, 12) = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value : xlSheet.Cells(FF + 4, 13) = 進度表_dgv.Rows(i).Cells("BOTTOM").Value

  1363.                     xlSheet.Cells(FF + 4, 14) = 進度表_dgv.Rows(i).Cells("數量").Value : xlSheet.Cells(FF + 4, 15) = 進度表_dgv.Rows(i).Cells("ETA").Value

  1364.                     FF += 1

  1365.                 End If

  1366.                 N6 += 1

  1367.             Next i

  1368.             CC(xlApp, xlSheet)

  1369.             xlSheet.PageSetup.PrintArea = ""

  1370.             xlApp.Cells.Select()

  1371.             xlSheet.Range("B1").Select()

  1372.             xlApp.Application.WindowState = xlMinimized

  1373.             MsgBox("列印完成")

  1374.         End If

  1375.     End Sub

  1376.     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet

  1377.         Return CType(xlBook.Worksheets.Add, Worksheet)

  1378.     End Function

  1379.     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1380.         xlSheet.Cells.Select()

  1381.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1382.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1383.         xlSheet.Rows("4:" & FFGG).Select

  1384.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 8 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1385.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1386.         myExcel.Selection.RowHeight = 135

  1387.         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1388.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1389. 

  1390.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 3

  1391.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1392.             .ReadingOrder = xlContext : End With

  1393.         xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 10

  1394.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1395.             .ReadingOrder = xlContext : End With

  1396.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 16

  1397.         xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9

  1398.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1399.             .ReadingOrder = xlContext : End With

  1400.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 4

  1401.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1402.             .ReadingOrder = xlContext : End With

  1403.         xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12

  1404.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1405.             .ReadingOrder = xlContext : End With

  1406. 

  1407.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 5

  1408.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1409.             .ReadingOrder = xlContext : End With

  1410. 

  1411.         xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 32 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 32

  1412.         xlSheet.Columns("J:J").Select : myExcel.Selection.ColumnWidth = 32 : xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 32

  1413.         xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 32 : xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 32

  1414.         xlSheet.Columns("N:N").Select : myExcel.Selection.ColumnWidth = 3

  1415.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1416.             .ReadingOrder = xlContext : End With

  1417.         xlSheet.Columns("O:O").Select : myExcel.Selection.ColumnWidth = 8

  1418.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1419.             .ReadingOrder = xlContext : End With

  1420.         xlSheet.Columns("P:P").Select : myExcel.Selection.ColumnWidth = 16

  1421. 

  1422.         xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 5 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 35

  1423.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 8 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  1424.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1425. 

  1426.         xlSheet.Range("A1:P1").Select()

  1427.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1428.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1429.         myExcel.Selection.Merge

  1430.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False

  1431.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1432.     End Sub

  1433.     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1434.         Clipboard.SetDataObject(PictureBox2.Image)

  1435.         xlSheet.Cells(1, 1).Select

  1436.         Thread.Sleep(100) '延迟0.1秒

  1437.         xlSheet.Range("C" & N3).Select()

  1438.         myExcel.ActiveSheet.Paste

  1439.         If PictureBox2.Image.Height < PictureBox2.Image.Width Then

  1440.             myExcel.Selection.ShapeRange.Width = 90

  1441.         Else

  1442.             myExcel.Selection.ShapeRange.Height = 85

  1443.         End If

  1444.         myExcel.Selection.ShapeRange.IncrementLeft(2)

  1445.         myExcel.Selection.ShapeRange.IncrementTop(2)

  1446.     End Sub

  1447.     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1448.         xlSheet.Range("A3:P3").Select()

  1449.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1450.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1451.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1452.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1453.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1454.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlThin : End With

  1455.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1456.         N4 = 0 : N5 = 0

  1457.         If 全部列印自動框線_cb.Checked = True Then

  1458.             Dim ZZXX As Boolean = False : Dim XXCC As Boolean = False

  1459.             For i As Integer = 0 To 進度表_dgv.Rows.Count - 1

  1460.                 If i = 進度表_dgv.Rows.Count - 1 Then

  1461.                     xlSheet.Range("A" & N4 + 3 & ":P" & N5 + 4).Select()

  1462.                     myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1463.                     With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1464.                     With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1465.                     With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1466.                     With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1467.                     With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1468.                     With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1469.                     Exit For

  1470.                 ElseIf (進度表_dgv.Rows(i).Cells("序號").Value = 進度表_dgv.Rows(i + 1).Cells("序號").Value) And i < 進度表_dgv.Rows.Count Then

  1471.                     If ZZXX = False Then

  1472.                         N4 = i + 1 : ZZXX = True

  1473.                     End If

  1474.                     N5 = i + 1

  1475.                 ElseIf (進度表_dgv.Rows(i).Cells("序號").Value <> 進度表_dgv.Rows(i + 1).Cells("序號").Value) And i < 進度表_dgv.Rows.Count Then

  1476.                     If XXCC = False Then

  1477.                         xlSheet.Range("A" & N4 + 3 & ":P" & N5 + 4).Select() : XXCC = True

  1478.                     Else

  1479.                         xlSheet.Range("A" & N4 + 4 & ":P" & N5 + 4).Select()

  1480.                     End If

  1481.                     myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1482.                     With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1483.                     With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1484.                     With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1485.                     With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1486.                     With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1487.                     With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1488. 

  1489.                     ZZXX = False

  1490.                     If ZZXX = False Then

  1491.                         N4 = i + 1 : ZZXX = True

  1492.                     End If

  1493.                     N5 = i + 1

  1494.                 End If

  1495.             Next

  1496.             myExcel.ActiveWindow.Zoom = 80

  1497.             ZZXX = False : XXCC = False

  1498.         End If

  1499.         myExcel.Application.PrintCommunication = False

  1500.         With myExcel.ActiveSheet.PageSetup

  1501.             .PrintTitleRows = "$1:$3"

  1502.             .PrintTitleColumns = ""

  1503.         End With

  1504.         myExcel.Application.PrintCommunication = True

  1505.         myExcel.ActiveSheet.PageSetup.PrintArea = ""

  1506.         myExcel.Application.PrintCommunication = False

  1507.         With myExcel.ActiveSheet.PageSetup

  1508.             .LeftMargin = myExcel.Application.InchesToPoints(0.25)

  1509.             .RightMargin = myExcel.Application.InchesToPoints(0.25)

  1510.             .TopMargin = myExcel.Application.InchesToPoints(0.75)

  1511.             .BottomMargin = myExcel.Application.InchesToPoints(0.75)

  1512.             .HeaderMargin = myExcel.Application.InchesToPoints(0.3)

  1513.             .FooterMargin = myExcel.Application.InchesToPoints(0.3)

  1514.             .FirstPageNumber = xlAutomatic

  1515.             .Zoom = 38

  1516.         End With

  1517.         myExcel.Application.PrintCommunication = True

  1518.     End Sub

  1519. End Class