WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
關注 4
收藏 0
複製 0
程式碼 問題 0 合併請求 0 版本發佈 0 Wiki 活動
暫無描述
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.
16 提交
1 分支
目錄樹: d4222c0627
分支列表 標籤
${ item.name }
建立分支 ${ searchTerm }
從 'd4222c0627'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/樣品訂單管理系統/樣品進度表(英文版).vb

樣品進度表(英文版).vb 181KB
歷史記錄 原始文件

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924 
  1. Option Strict Off

  2. Imports System.Data.SqlClient

  3. Imports System.IO

  4. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle

  5. Imports Microsoft.Office.Interop.Excel.Constants

  6. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  7. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  8. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  9. Imports Microsoft.Office.Interop.Excel.XlThemeFont

  10. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  11. Imports Microsoft.Office.Interop.Excel.XlWindowState

  12. Imports Microsoft.Office.Interop.Excel

  13. Imports System.Threading

  14. Imports System.Text.RegularExpressions

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

  16.     Dim conn As New SqlConnection

  17.     Dim da As New SqlDataAdapter

  18.     Dim cmd As New SqlCommand

  19.     Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet : Dim ds4 As New DataSet

  20.     Dim ds5 As New DataSet : Dim ds6 As New DataSet : Dim ds7 As New DataSet : Dim ds8 As New DataSet

  21.     Dim dr As SqlDataReader

  22.     Dim N1 As Integer = 0 : Dim N2 As Integer = 0 : Dim N3 As Integer = 0 : Dim N4 As Integer = 0 : Dim N5 As Integer = 0 : Dim N6 As Integer = 0 : Dim FFGG As Integer

  23.     Dim xlApp As Application

  24.     Dim xlBook As Workbook

  25.     Dim xlSheet As Worksheet

  26.     Dim SSDD As String : Dim AAWW As String : Dim HHGG As String

  27.     Dim BBNN1 As Integer : Dim BBNN2 As Integer : Dim BBNN3 As Integer : Dim BBNN4 As Integer : Dim BBNN5 As Integer

  28.     Dim BBNN11 As String : Dim BBNN12 As String : Dim BBNN13 As String : Dim BBNN14 As String : Dim BBNN15 As String

  29.     Dim RRTT As New Regex("[\u4e00-\u9fa5]")

  30.     Private Sub Set_清單1()

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

  32.         DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  33.         DataGridView2.ColumnHeadersHeight = 25

  34.         DataGridView2.AllowUserToAddRows = False

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

  36.         SQL1 = "SELECT SO, 版次 FROM 樣品訂單控制表 WHERE 季節 LIKE N'" & ComboBox7.Text & "' AND 客戶 LIKE N'" & ComboBox2.Text & "' AND 狀態 LIKE N'" & 樣品進度表分類2 & "' ORDER BY 型體號碼, SO, 版次 DESC"

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

  38.     End Sub

  39.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  41.         DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  42.         DataGridView3.ColumnHeadersHeight = 25

  43.         DataGridView3.AllowUserToAddRows = False

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

  45.         SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號

  46.                 FROM 樣品訂單部件表

  47.                 WHERE (SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND (版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "') AND (部件 LIKE N'A.%')

  48.                 ORDER BY   SO, 版次, 流水號, 部件"

  49.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()

  50.     End Sub

  51.     Private Sub Set_清單2()

  52.         DataGridView3.DataSource = Nothing : ds2.Clear()

  53.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  54.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  56.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  58.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  59.             End If

  60.         Next

  61.         去中文2()

  62.     End Sub

  63.     Private Sub 去中文2()

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

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

  66.         For i As Integer = 0 To DataGridView3.Rows.Count - 1

  67.             資料數 = DataGridView3.Rows.Count : MyModule1.進度條()

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

  69.             BBNN3 = DataGridView3.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = DataGridView3.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  70.             BBNN5 = DataGridView3.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  71.             '--------------------------------------------------------------------------------------------

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

  73.                 If II = 0 Then

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

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

  76.                 Else

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

  78.                 End If

  79.             Next : DataGridView3.Rows(i).Cells("部件").Value = BBNN11

  80.             '--------------------------------------------------------------------------------------------

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

  82.                 If II = 0 Then

  83.                     AAWW = Strings.Left(DataGridView3.Rows(i).Cells("材料名稱").Value.ToString, 1)

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

  85.                 Else

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

  87.                 End If

  88.             Next : DataGridView3.Rows(i).Cells("材料名稱").Value = BBNN12

  89.             '--------------------------------------------------------------------------------------------

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

  91.                 If II = 0 Then

  92.                     AAWW = Strings.Left(DataGridView3.Rows(i).Cells("材料說明").Value.ToString, 1)

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

  94.                 Else

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

  96.                 End If

  97.             Next : DataGridView3.Rows(i).Cells("材料說明").Value = BBNN13

  98.             '--------------------------------------------------------------------------------------------

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

  100.                 If II = 0 Then

  101.                     AAWW = Strings.Left(DataGridView3.Rows(i).Cells("備註").Value.ToString, 1)

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

  103.                 Else

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

  105.                 End If

  106.             Next : DataGridView3.Rows(i).Cells("備註").Value = BBNN14

  107.             '--------------------------------------------------------------------------------------------

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

  109.                 If II = 0 Then

  110.                     AAWW = Strings.Left(DataGridView3.Rows(i).Cells("廠商").Value.ToString, 1)

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

  112.                 Else

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

  114.                 End If

  115.             Next : DataGridView3.Rows(i).Cells("廠商").Value = BBNN15

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

  117.     End Sub

  118.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  120.         DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  121.         DataGridView4.ColumnHeadersHeight = 25

  122.         DataGridView4.AllowUserToAddRows = False

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

  124.         SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號

  125.                 FROM 樣品訂單部件表

  126.                 WHERE (SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND (版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "') AND (部件 LIKE N'B.%')

  127.                 ORDER BY   SO, 版次, 流水號, 部件"

  128.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView4.DataSource = ds3.Tables(0) : conn.Close()

  129.     End Sub

  130.     Private Sub Set_清單3()

  131.         DataGridView4.DataSource = Nothing : ds3.Clear()

  132.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  133.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  135.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  137.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  138.             End If

  139.         Next

  140.         去中文3()

  141.     End Sub

  142.     Private Sub 去中文3()

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

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

  145.         For i As Integer = 0 To DataGridView4.Rows.Count - 1

  146.             資料數 = DataGridView4.Rows.Count : MyModule1.進度條()

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

  148.             BBNN3 = DataGridView4.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = DataGridView4.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  149.             BBNN5 = DataGridView4.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  150.             '--------------------------------------------------------------------------------------------

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

  152.                 If II = 0 Then

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

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

  155.                 Else

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

  157.                 End If

  158.             Next : DataGridView4.Rows(i).Cells("部件").Value = BBNN11

  159.             '--------------------------------------------------------------------------------------------

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

  161.                 If II = 0 Then

  162.                     AAWW = Strings.Left(DataGridView4.Rows(i).Cells("材料名稱").Value.ToString, 1)

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

  164.                 Else

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

  166.                 End If

  167.             Next : DataGridView4.Rows(i).Cells("材料名稱").Value = BBNN12

  168.             '--------------------------------------------------------------------------------------------

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

  170.                 If II = 0 Then

  171.                     AAWW = Strings.Left(DataGridView4.Rows(i).Cells("材料說明").Value.ToString, 1)

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

  173.                 Else

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

  175.                 End If

  176.             Next : DataGridView4.Rows(i).Cells("材料說明").Value = BBNN13

  177.             '--------------------------------------------------------------------------------------------

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

  179.                 If II = 0 Then

  180.                     AAWW = Strings.Left(DataGridView4.Rows(i).Cells("備註").Value.ToString, 1)

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

  182.                 Else

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

  184.                 End If

  185.             Next : DataGridView4.Rows(i).Cells("備註").Value = BBNN14

  186.             '--------------------------------------------------------------------------------------------

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

  188.                 If II = 0 Then

  189.                     AAWW = Strings.Left(DataGridView4.Rows(i).Cells("廠商").Value.ToString, 1)

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

  191.                 Else

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

  193.                 End If

  194.             Next : DataGridView4.Rows(i).Cells("廠商").Value = BBNN15

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

  196.     End Sub

  197.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  199.         DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  200.         DataGridView5.ColumnHeadersHeight = 25

  201.         DataGridView5.AllowUserToAddRows = False

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

  203.         SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號

  204.                 FROM 樣品訂單部件表

  205.                 WHERE (SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND (版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "') AND (部件 LIKE N'C.%')

  206.                 ORDER BY   SO, 版次, 流水號, 部件"

  207.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : DataGridView5.DataSource = ds4.Tables(0) : conn.Close()

  208.     End Sub

  209.     Private Sub Set_清單4()

  210.         DataGridView5.DataSource = Nothing : ds4.Clear()

  211.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  212.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  214.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  216.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  217.             End If

  218.         Next

  219.         去中文4()

  220.     End Sub

  221.     Private Sub 去中文4()

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

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

  224.         For i As Integer = 0 To DataGridView5.Rows.Count - 1

  225.             資料數 = DataGridView5.Rows.Count : MyModule1.進度條()

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

  227.             BBNN3 = DataGridView5.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = DataGridView5.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  228.             BBNN5 = DataGridView5.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  229.             '--------------------------------------------------------------------------------------------

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

  231.                 If II = 0 Then

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

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

  234.                 Else

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

  236.                 End If

  237.             Next : DataGridView5.Rows(i).Cells("部件").Value = BBNN11

  238.             '--------------------------------------------------------------------------------------------

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

  240.                 If II = 0 Then

  241.                     AAWW = Strings.Left(DataGridView5.Rows(i).Cells("材料名稱").Value.ToString, 1)

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

  243.                 Else

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

  245.                 End If

  246.             Next : DataGridView5.Rows(i).Cells("材料名稱").Value = BBNN12

  247.             '--------------------------------------------------------------------------------------------

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

  249.                 If II = 0 Then

  250.                     AAWW = Strings.Left(DataGridView5.Rows(i).Cells("材料說明").Value.ToString, 1)

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

  252.                 Else

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

  254.                 End If

  255.             Next : DataGridView5.Rows(i).Cells("材料說明").Value = BBNN13

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

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

  258.                 If II = 0 Then

  259.                     AAWW = Strings.Left(DataGridView5.Rows(i).Cells("備註").Value.ToString, 1)

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

  261.                 Else

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

  263.                 End If

  264.             Next : DataGridView5.Rows(i).Cells("備註").Value = BBNN14

  265.             '--------------------------------------------------------------------------------------------

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

  267.                 If II = 0 Then

  268.                     AAWW = Strings.Left(DataGridView5.Rows(i).Cells("廠商").Value.ToString, 1)

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

  270.                 Else

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

  272.                 End If

  273.             Next : DataGridView5.Rows(i).Cells("廠商").Value = BBNN15

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

  275.     End Sub

  276.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  278.         DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  279.         DataGridView6.ColumnHeadersHeight = 25

  280.         DataGridView6.AllowUserToAddRows = False

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

  282.         SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號

  283.                 FROM 樣品訂單部件表

  284.                 WHERE (SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND (版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "') AND (部件 LIKE N'D.%')

  285.                 ORDER BY   SO, 版次, 流水號, 部件"

  286.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()

  287.     End Sub

  288.     Private Sub Set_清單5()

  289.         DataGridView6.DataSource = Nothing : ds5.Clear()

  290.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  291.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  293.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  295.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  296.             End If

  297.         Next

  298.         '去中文5()

  299.     End Sub

  300.     Private Sub 去中文5()

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

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

  303.         For i As Integer = 0 To DataGridView6.Rows.Count - 1

  304.             資料數 = DataGridView6.Rows.Count : MyModule1.進度條()

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

  306.             BBNN3 = DataGridView6.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = DataGridView6.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  307.             BBNN5 = DataGridView6.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  308.             '--------------------------------------------------------------------------------------------

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

  310.                 If II = 0 Then

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

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

  313.                 Else

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

  315.                 End If

  316.             Next : DataGridView6.Rows(i).Cells("部件").Value = BBNN11

  317.             '--------------------------------------------------------------------------------------------

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

  319.                 If II = 0 Then

  320.                     AAWW = Strings.Left(DataGridView6.Rows(i).Cells("材料名稱").Value.ToString, 1)

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

  322.                 Else

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

  324.                 End If

  325.             Next : DataGridView6.Rows(i).Cells("材料名稱").Value = BBNN12

  326.             '--------------------------------------------------------------------------------------------

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

  328.                 If II = 0 Then

  329.                     AAWW = Strings.Left(DataGridView6.Rows(i).Cells("材料說明").Value.ToString, 1)

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

  331.                 Else

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

  333.                 End If

  334.             Next : DataGridView6.Rows(i).Cells("材料說明").Value = BBNN13

  335.             '--------------------------------------------------------------------------------------------

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

  337.                 If II = 0 Then

  338.                     AAWW = Strings.Left(DataGridView6.Rows(i).Cells("備註").Value.ToString, 1)

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

  340.                 Else

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

  342.                 End If

  343.             Next : DataGridView6.Rows(i).Cells("備註").Value = BBNN14

  344.             '--------------------------------------------------------------------------------------------

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

  346.                 If II = 0 Then

  347.                     AAWW = Strings.Left(DataGridView6.Rows(i).Cells("廠商").Value.ToString, 1)

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

  349.                 Else

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

  351.                 End If

  352.             Next : DataGridView6.Rows(i).Cells("廠商").Value = BBNN15

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

  354.     End Sub

  355.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  357.         DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  358.         DataGridView7.ColumnHeadersHeight = 25

  359.         DataGridView7.AllowUserToAddRows = False

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

  361.         SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號

  362.                 FROM 樣品訂單部件表

  363.                 WHERE (SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND (版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "') AND (部件 LIKE N'E.%')

  364.                 ORDER BY   SO, 版次, 流水號, 部件"

  365.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()

  366.     End Sub

  367.     Private Sub Set_清單6()

  368.         DataGridView7.DataSource = Nothing : ds6.Clear()

  369.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  370.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  372.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  374.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  375.             End If

  376.         Next

  377.         '去中文6()

  378.     End Sub

  379.     Private Sub 去中文6()

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

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

  382.         For i As Integer = 0 To DataGridView7.Rows.Count - 1

  383.             資料數 = DataGridView7.Rows.Count : MyModule1.進度條()

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

  385.             BBNN3 = DataGridView7.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = DataGridView7.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  386.             BBNN5 = DataGridView7.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  387.             '--------------------------------------------------------------------------------------------

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

  389.                 If II = 0 Then

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

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

  392.                 Else

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

  394.                 End If

  395.             Next : DataGridView7.Rows(i).Cells("部件").Value = BBNN11

  396.             '--------------------------------------------------------------------------------------------

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

  398.                 If II = 0 Then

  399.                     AAWW = Strings.Left(DataGridView7.Rows(i).Cells("材料名稱").Value.ToString, 1)

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

  401.                 Else

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

  403.                 End If

  404.             Next : DataGridView7.Rows(i).Cells("材料名稱").Value = BBNN12

  405.             '--------------------------------------------------------------------------------------------

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

  407.                 If II = 0 Then

  408.                     AAWW = Strings.Left(DataGridView7.Rows(i).Cells("材料說明").Value.ToString, 1)

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

  410.                 Else

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

  412.                 End If

  413.             Next : DataGridView7.Rows(i).Cells("材料說明").Value = BBNN13

  414.             '--------------------------------------------------------------------------------------------

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

  416.                 If II = 0 Then

  417.                     AAWW = Strings.Left(DataGridView7.Rows(i).Cells("備註").Value.ToString, 1)

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

  419.                 Else

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

  421.                 End If

  422.             Next : DataGridView7.Rows(i).Cells("備註").Value = BBNN14

  423.             '--------------------------------------------------------------------------------------------

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

  425.                 If II = 0 Then

  426.                     AAWW = Strings.Left(DataGridView7.Rows(i).Cells("廠商").Value.ToString, 1)

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

  428.                 Else

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

  430.                 End If

  431.             Next : DataGridView7.Rows(i).Cells("廠商").Value = BBNN15

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

  433.     End Sub

  434.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  436.         DataGridView8.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  437.         DataGridView8.ColumnHeadersHeight = 25

  438.         DataGridView8.AllowUserToAddRows = False

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

  440.         SQL1 = "SELECT 部件, 材料名稱, 材料說明, 備註, 廠商, 流水號

  441.                 FROM 樣品訂單部件表

  442.                 WHERE (SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND (版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "') AND (部件 LIKE N'F.%')

  443.                 ORDER BY   SO, 版次, 流水號, 部件"

  444.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds7) : DataGridView8.DataSource = ds7.Tables(0) : conn.Close()

  445.     End Sub

  446.     Private Sub Set_清單7()

  447.         DataGridView8.DataSource = Nothing : ds7.Clear()

  448.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  449.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  451.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  453.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  454.             End If

  455.         Next

  456.         去中文7()

  457.     End Sub

  458.     Private Sub 去中文7()

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

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

  461.         For i As Integer = 0 To DataGridView8.Rows.Count - 1

  462.             資料數 = DataGridView8.Rows.Count : MyModule1.進度條()

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

  464.             BBNN3 = DataGridView8.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = DataGridView8.Rows(i).Cells("備註").Value.ToString.Length.ToString()

  465.             BBNN5 = DataGridView8.Rows(i).Cells("廠商").Value.ToString.Length.ToString()

  466.             '--------------------------------------------------------------------------------------------

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

  468.                 If II = 0 Then

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

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

  471.                 Else

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

  473.                 End If

  474.             Next : DataGridView8.Rows(i).Cells("部件").Value = BBNN11

  475.             '--------------------------------------------------------------------------------------------

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

  477.                 If II = 0 Then

  478.                     AAWW = Strings.Left(DataGridView8.Rows(i).Cells("材料名稱").Value.ToString, 1)

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

  480.                 Else

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

  482.                 End If

  483.             Next : DataGridView8.Rows(i).Cells("材料名稱").Value = BBNN12

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

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

  486.                 If II = 0 Then

  487.                     AAWW = Strings.Left(DataGridView8.Rows(i).Cells("材料說明").Value.ToString, 1)

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

  489.                 Else

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

  491.                 End If

  492.             Next : DataGridView8.Rows(i).Cells("材料說明").Value = BBNN13

  493.             '--------------------------------------------------------------------------------------------

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

  495.                 If II = 0 Then

  496.                     AAWW = Strings.Left(DataGridView8.Rows(i).Cells("備註").Value.ToString, 1)

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

  498.                 Else

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

  500.                 End If

  501.             Next : DataGridView8.Rows(i).Cells("備註").Value = BBNN14

  502.             '--------------------------------------------------------------------------------------------

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

  504.                 If II = 0 Then

  505.                     AAWW = Strings.Left(DataGridView8.Rows(i).Cells("廠商").Value.ToString, 1)

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

  507.                 Else

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

  509.                 End If

  510.             Next : DataGridView8.Rows(i).Cells("廠商").Value = BBNN15

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

  512.     End Sub

  513.     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  514.     Private Sub Set_讀取清單()

  515.         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  516.         DataGridView1.ColumnHeadersHeight = 25

  517.         DataGridView1.AllowUserToAddRows = False

  518.         DataGridView1.RowTemplate.Height = 140

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

  520.         SQL1 = "SELECT 樣品訂單控制表.SO AS 序號, 鞋樣素描圖控制表.圖片, 樣品訂單控制表.SO, 樣品訂單控制表.版次, 樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱 AS STYLE, 樣品訂單控制表.工廠, 

  521.                        樣品訂單控制表.ISS_DATE, 樣品訂單控制表.ETA, 樣品訂單清單.顏色, 樣品訂單清單.數量, 樣品訂單清單.SIZE, 樣品訂單清單.KEEP, 樣品訂單清單.流水號, 樣品訂單清單.流水號 AS UPPER, 

  522.                        樣品訂單清單.流水號 AS LINING, 樣品訂單清單.流水號 AS BUCKLE, 樣品訂單清單.流水號 AS [SOCK LINING], 樣品訂單清單.流水號 AS BOTTOM, 樣品訂單清單.流水號 AS OTHER

  523.                 FROM 樣品訂單控制表 LEFT OUTER JOIN 鞋樣素描圖控制表 ON 樣品訂單控制表.型體號碼 = 鞋樣素描圖控制表.型體編號 AND 樣品訂單控制表.型體名稱 = 鞋樣素描圖控制表.型體名稱 FULL OUTER JOIN

  524.                      樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次

  525.                 WHERE (樣品訂單控制表.季節 LIKE N'" & ComboBox7.Text & "') AND (樣品訂單控制表.客戶 LIKE N'" & ComboBox2.Text & "') AND 

  526.                       (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類2 & "') AND (樣品訂單控制表.SO LIKE '" & DataGridView2.Rows(N2).Cells("SO").Value & "') AND 

  527.                       (樣品訂單控制表.版次 LIKE '" & DataGridView2.Rows(N2).Cells("版次").Value & "')

  528.                 ORDER BY   型體號碼, 樣品訂單控制表.SO, 樣品訂單控制表.版次 DESC"

  529.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()

  530.     End Sub

  531.     Private Sub Set_清單()

  532.         DataGridView1.DataSource = Nothing : ds.Clear()

  533.         For i As Integer = 0 To DataGridView2.Rows.Count - 1

  534.             If DataGridView2.Rows(i).Cells("版次").Value = "V01" Then

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

  536.             ElseIf DataGridView2.Rows(i).Cells("版次").Value <> "V01" Then

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

  538.                 i = i + Val(Strings.Right(DataGridView2.Rows(i).Cells("版次").Value, 2)) - 1

  539.             End If

  540.         Next

  541.     End Sub

  542.     Private Sub Set_grid()

  543.         DataGridView1.Columns(0).Width = 40 : DataGridView1.Columns(1).Width = 120 : DataGridView1.Columns(2).Visible = False : DataGridView1.Columns(3).Width = 40 : DataGridView1.Columns(4).Visible = False

  544.         DataGridView1.Columns(5).Width = 100 : DataGridView1.Columns(6).Width = 80 : DataGridView1.Columns(7).Visible = False : DataGridView1.Columns(8).Width = 80

  545.         DataGridView1.Columns(9).Width = 100 : DataGridView1.Columns(10).Width = 40 : DataGridView1.Columns(11).Width = 40 : DataGridView1.Columns(12).Visible = False

  546.         DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Width = 250 : DataGridView1.Columns(15).Width = 250 : DataGridView1.Columns(16).Width = 200

  547.         DataGridView1.Columns(17).Width = 200 : DataGridView1.Columns(18).Width = 200 : DataGridView1.Columns(19).Width = 130

  548. 

  549.         DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0.0" : DataGridView1.Columns(12).DefaultCellStyle.Format = "#,##0.0"

  550.         DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  551.         DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  552.         DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter

  553.         N1 = 1

  554.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  555.             If i = DataGridView1.Rows.Count - 1 Then

  556.                 DataGridView1.Rows(i).Cells("序號").Value = N1.ToString : Exit For

  557.             Else

  558.                 If DataGridView1(4, i).Value.ToString <> DataGridView1(4, i + 1).Value.ToString Then

  559.                     DataGridView1.Rows(i).Cells("序號").Value = N1.ToString : N1 = N1 + 1

  560.                 Else

  561.                     DataGridView1.Rows(i).Cells("序號").Value = N1.ToString

  562.                 End If

  563.             End If

  564.         Next

  565.     End Sub

  566.     Private Sub Set_grid0()

  567.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  568.             DataGridView1.Rows(i).Cells("STYLE").Value = DataGridView1.Rows(i).Cells("型體號碼").Value & " 

  569. " & DataGridView1.Rows(i).Cells("STYLE").Value & " 

  570. 

  571. " & DataGridView1.Rows(i).Cells("SO").Value

  572.         Next

  573.         Dim mycol As DataGridViewImageColumn = DataGridView1.Columns("圖片")

  574.         mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  575.     End Sub

  576.     Private Sub Set_清單8()

  577.         DataGridView9.DataSource = Nothing : ds8.Clear()

  578.         DataGridView9.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  579.         DataGridView9.ColumnHeadersHeight = 25

  580.         DataGridView9.AllowUserToAddRows = False

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

  582.         SQL1 = "SELECT 季節, 客戶 FROM 樣品訂單控制表 WHERE (狀態 LIKE '" & 樣品進度表分類2 & "') GROUP BY 季節, 客戶 ORDER BY 客戶, 季節"

  583.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close() : Set_grid8()

  584.     End Sub

  585.     Private Sub Set_grid8()

  586.         DataGridView9.Columns(0).Width = 120 : DataGridView9.Columns(1).Width = 240

  587.     End Sub

  588.     Private Sub 導入A類料()

  589.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  590.             資料數 = DataGridView1.Rows.Count : MyModule1.進度條()

  591.             DataGridView1.Rows(i).Cells("UPPER").Value = ""

  592.             Dim aa As Integer = 1

  593.             For ii As Integer = 0 To DataGridView3.Rows.Count - 1

  594.                 If DataGridView1.Rows(i).Cells("流水號").Value = DataGridView3.Rows(ii).Cells("流水號").Value Then

  595.                     If aa = 1 Then

  596.                         If DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  597.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  598.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  599.                                      "-" & DataGridView3.Rows(ii).Cells("材料說明").Value & "-" & DataGridView3.Rows(ii).Cells("備註").Value & "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  600. 

  601.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  602.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  603.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  604.                                        "-" & DataGridView3.Rows(ii).Cells("材料說明").Value & "-" & DataGridView3.Rows(ii).Cells("備註").Value

  605. 

  606.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  607.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  608.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  609.                                        "-" & DataGridView3.Rows(ii).Cells("材料說明").Value & "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  610. 

  611.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  612.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  613.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  614.                                        "-" & DataGridView3.Rows(ii).Cells("備註").Value & "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  615. 

  616.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  617.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  618.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料說明").Value &

  619.                                        "-" & DataGridView3.Rows(ii).Cells("備註").Value & "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  620. 

  621.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  622.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  623.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  624.                                 "-" & DataGridView3.Rows(ii).Cells("材料說明").Value

  625. 

  626.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  627.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  628.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  629.                                 "-" & DataGridView3.Rows(ii).Cells("備註").Value

  630. 

  631.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  632.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  633.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料說明").Value &

  634.                                 "-" & DataGridView3.Rows(ii).Cells("備註").Value

  635. 

  636.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  637.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  638.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value &

  639.                                 "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  640. 

  641.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  642.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  643.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料說明").Value &

  644.                                 "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  645. 

  646.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  647.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  648.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("備註").Value &

  649.                                 "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  650. 

  651.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  652.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  653.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料名稱").Value

  654. 

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

  656.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  657.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("材料說明").Value

  658. 

  659.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  660.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  661.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("備註").Value

  662. 

  663.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  664.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  665.                             DataGridView1.Rows(i).Cells("UPPER").Value = aa & "、" & DataGridView3.Rows(ii).Cells("部件").Value & " - " & DataGridView3.Rows(ii).Cells("廠商").Value

  666.                         End If

  667.                         aa += 1

  668.                     Else

  669.                         If DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  670.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  671.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  673.                             "-" & DataGridView3.Rows(ii).Cells("材料說明").Value & "-" & DataGridView3.Rows(ii).Cells("備註").Value & "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  674. 

  675.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  676.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  677.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  679.  "-" & DataGridView3.Rows(ii).Cells("備註").Value

  680. 

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

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

  683.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  685.  "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  686. 

  687.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  688.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  689.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  691.  "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  692. 

  693.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  694.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  695.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  697.  "-" & DataGridView3.Rows(ii).Cells("廠商").Value

  698. 

  699.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  700.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  701.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  703. 

  704.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  705.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  706.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  708. 

  709.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  710.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  711.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  713. 

  714.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  715.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  716.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  718. 

  719.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  720.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  721.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  723. 

  724.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  725.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  726.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  728. 

  729.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  730.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  731.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  733. 

  734.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  735.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  736.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  738. 

  739.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  740.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString = "" Then

  741.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  743. 

  744.                         ElseIf DataGridView3.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView3.Rows(ii).Cells("材料說明").Value.ToString = "" And

  745.                             DataGridView3.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView3.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  746.                             DataGridView1.Rows(i).Cells("UPPER").Value = DataGridView1.Rows(i).Cells("UPPER").Value & " 

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

  748.                         End If

  749.                         aa += 1

  750.                     End If

  751.                 End If

  752.             Next

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

  754.     End Sub

  755.     Private Sub 導入B類料()

  756.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  757.             資料數 = DataGridView1.Rows.Count : MyModule1.進度條()

  758.             DataGridView1.Rows(i).Cells("LINING").Value = ""

  759.             Dim aa As Integer = 1

  760.             For ii As Integer = 0 To DataGridView4.Rows.Count - 1

  761.                 If DataGridView1.Rows(i).Cells("流水號").Value = DataGridView4.Rows(ii).Cells("流水號").Value Then

  762.                     If aa = 1 Then

  763.                         If DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  764.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  765.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  766.                                      "-" & DataGridView4.Rows(ii).Cells("材料說明").Value & "-" & DataGridView4.Rows(ii).Cells("備註").Value & "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  767. 

  768.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  769.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  770.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  771.                                        "-" & DataGridView4.Rows(ii).Cells("材料說明").Value & "-" & DataGridView4.Rows(ii).Cells("備註").Value

  772. 

  773.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  774.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  775.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  776.                                        "-" & DataGridView4.Rows(ii).Cells("材料說明").Value & "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  777. 

  778.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  779.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  780.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  781.                                        "-" & DataGridView4.Rows(ii).Cells("備註").Value & "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  782. 

  783.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  784.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  785.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料說明").Value &

  786.                                        "-" & DataGridView4.Rows(ii).Cells("備註").Value & "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  787. 

  788.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  789.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  790.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  791.                                 "-" & DataGridView4.Rows(ii).Cells("材料說明").Value

  792. 

  793.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  794.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  795.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  796.                                 "-" & DataGridView4.Rows(ii).Cells("備註").Value

  797. 

  798.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  799.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  800.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料說明").Value &

  801.                                 "-" & DataGridView4.Rows(ii).Cells("備註").Value

  802. 

  803.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  804.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  805.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value &

  806.                                 "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  807. 

  808.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  809.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  810.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料說明").Value &

  811.                                 "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  812. 

  813.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  814.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  815.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("備註").Value &

  816.                                 "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  817. 

  818.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  819.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  820.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料名稱").Value

  821. 

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

  823.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  824.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("材料說明").Value

  825. 

  826.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  827.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  828.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("備註").Value

  829. 

  830.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  831.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  832.                             DataGridView1.Rows(i).Cells("LINING").Value = aa & "、" & DataGridView4.Rows(ii).Cells("部件").Value & " - " & DataGridView4.Rows(ii).Cells("廠商").Value

  833.                         End If

  834.                         aa += 1

  835.                     Else

  836.                         If DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  837.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  838.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  840.                             "-" & DataGridView4.Rows(ii).Cells("材料說明").Value & "-" & DataGridView4.Rows(ii).Cells("備註").Value & "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  841. 

  842.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  843.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  844.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  846.  "-" & DataGridView4.Rows(ii).Cells("備註").Value

  847. 

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

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

  850.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  852.  "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  853. 

  854.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  855.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  856.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  858.  "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  859. 

  860.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  861.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  862.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  864.  "-" & DataGridView4.Rows(ii).Cells("廠商").Value

  865. 

  866.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  867.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  868.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  870. 

  871.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  872.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  873.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  875. 

  876.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  877.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  878.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  880. 

  881.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  882.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  883.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  885. 

  886.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  887.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  888.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  890. 

  891.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  892.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  893.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  895. 

  896.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  897.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  898.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  900. 

  901.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  902.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  903.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  905. 

  906.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  907.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString = "" Then

  908.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  910. 

  911.                         ElseIf DataGridView4.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView4.Rows(ii).Cells("材料說明").Value.ToString = "" And

  912.                             DataGridView4.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView4.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  913.                             DataGridView1.Rows(i).Cells("LINING").Value = DataGridView1.Rows(i).Cells("LINING").Value & " 

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

  915.                         End If

  916.                         aa += 1

  917.                     End If

  918.                 End If

  919.             Next

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

  921.     End Sub

  922.     Private Sub 導入C類料()

  923.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  924.             資料數 = DataGridView1.Rows.Count : MyModule1.進度條()

  925.             DataGridView1.Rows(i).Cells("BUCKLE").Value = ""

  926.             Dim aa As Integer = 1

  927.             For ii As Integer = 0 To DataGridView5.Rows.Count - 1

  928.                 If DataGridView1.Rows(i).Cells("流水號").Value = DataGridView5.Rows(ii).Cells("流水號").Value Then

  929.                     If aa = 1 Then

  930.                         If DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  931.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  932.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  933.                                      "-" & DataGridView5.Rows(ii).Cells("材料說明").Value & "-" & DataGridView5.Rows(ii).Cells("備註").Value & "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  934. 

  935.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  936.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  937.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  938.                                        "-" & DataGridView5.Rows(ii).Cells("材料說明").Value & "-" & DataGridView5.Rows(ii).Cells("備註").Value

  939. 

  940.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  941.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  942.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  943.                                        "-" & DataGridView5.Rows(ii).Cells("材料說明").Value & "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  944. 

  945.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  946.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  947.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  948.                                        "-" & DataGridView5.Rows(ii).Cells("備註").Value & "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  949. 

  950.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  951.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  952.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料說明").Value &

  953.                                        "-" & DataGridView5.Rows(ii).Cells("備註").Value & "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  954. 

  955.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  956.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  957.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  958.                                 "-" & DataGridView5.Rows(ii).Cells("材料說明").Value

  959. 

  960.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  961.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  962.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  963.                                 "-" & DataGridView5.Rows(ii).Cells("備註").Value

  964. 

  965.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  966.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  967.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料說明").Value &

  968.                                 "-" & DataGridView5.Rows(ii).Cells("備註").Value

  969. 

  970.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  971.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  972.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value &

  973.                                 "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  974. 

  975.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  976.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  977.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料說明").Value &

  978.                                 "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  979. 

  980.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  981.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  982.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("備註").Value &

  983.                                 "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  984. 

  985.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  986.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  987.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料名稱").Value

  988. 

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

  990.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  991.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("材料說明").Value

  992. 

  993.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  994.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  995.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("備註").Value

  996. 

  997.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  998.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  999.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = aa & "、" & DataGridView5.Rows(ii).Cells("部件").Value & " - " & DataGridView5.Rows(ii).Cells("廠商").Value

  1000.                         End If

  1001.                         aa += 1

  1002.                     Else

  1003.                         If DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1004.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1005.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1007.                             "-" & DataGridView5.Rows(ii).Cells("材料說明").Value & "-" & DataGridView5.Rows(ii).Cells("備註").Value & "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  1008. 

  1009.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1010.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1011.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1013.  "-" & DataGridView5.Rows(ii).Cells("備註").Value

  1014. 

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

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

  1017.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1019.  "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  1020. 

  1021.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1022.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1023.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1025.  "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  1026. 

  1027.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1028.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1029.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1031.  "-" & DataGridView5.Rows(ii).Cells("廠商").Value

  1032. 

  1033.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1034.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1035.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1037. 

  1038.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1039.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1040.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1042. 

  1043.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1044.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1045.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1047. 

  1048.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1049.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1050.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1052. 

  1053.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1054.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1055.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1057. 

  1058.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1059.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1060.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1062. 

  1063.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1064.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1065.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1067. 

  1068.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1069.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1070.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1072. 

  1073.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1074.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1075.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1077. 

  1078.                         ElseIf DataGridView5.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView5.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1079.                             DataGridView5.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView5.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1080.                             DataGridView1.Rows(i).Cells("BUCKLE").Value = DataGridView1.Rows(i).Cells("BUCKLE").Value & " 

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

  1082.                         End If

  1083.                         aa += 1

  1084.                     End If

  1085.                 End If

  1086.             Next

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

  1088.     End Sub

  1089.     Private Sub 導入D類料()

  1090.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  1091.             資料數 = DataGridView1.Rows.Count : MyModule1.進度條()

  1092.             DataGridView1.Rows(i).Cells("SOCK LINING").Value = ""

  1093.             Dim aa As Integer = 1

  1094.             For ii As Integer = 0 To DataGridView6.Rows.Count - 1

  1095.                 If DataGridView1.Rows(i).Cells("流水號").Value = DataGridView6.Rows(ii).Cells("流水號").Value Then

  1096.                     If aa = 1 Then

  1097.                         If DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1098.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1099.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1100.                                      "-" & DataGridView6.Rows(ii).Cells("材料說明").Value & "-" & DataGridView6.Rows(ii).Cells("備註").Value & "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1101. 

  1102.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1103.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1104.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1105.                                        "-" & DataGridView6.Rows(ii).Cells("材料說明").Value & "-" & DataGridView6.Rows(ii).Cells("備註").Value

  1106. 

  1107.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1108.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1109.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1110.                                        "-" & DataGridView6.Rows(ii).Cells("材料說明").Value & "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1111. 

  1112.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1113.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1114.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1115.                                        "-" & DataGridView6.Rows(ii).Cells("備註").Value & "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1116. 

  1117.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1118.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1119.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料說明").Value &

  1120.                                        "-" & DataGridView6.Rows(ii).Cells("備註").Value & "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1121. 

  1122.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1123.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1124.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1125.                                 "-" & DataGridView6.Rows(ii).Cells("材料說明").Value

  1126. 

  1127.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1128.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1129.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1130.                                 "-" & DataGridView6.Rows(ii).Cells("備註").Value

  1131. 

  1132.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1133.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1134.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料說明").Value &

  1135.                                 "-" & DataGridView6.Rows(ii).Cells("備註").Value

  1136. 

  1137.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1138.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1139.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value &

  1140.                                 "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1141. 

  1142.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1143.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1144.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料說明").Value &

  1145.                                 "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1146. 

  1147.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1148.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1149.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("備註").Value &

  1150.                                 "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1151. 

  1152.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1153.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1154.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料名稱").Value

  1155. 

  1156.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1157.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1158.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("材料說明").Value

  1159. 

  1160.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1161.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1162.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("備註").Value

  1163. 

  1164.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1165.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1166.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = aa & "、" & DataGridView6.Rows(ii).Cells("部件").Value & " - " & DataGridView6.Rows(ii).Cells("廠商").Value

  1167.                         End If

  1168.                         aa += 1

  1169.                     Else

  1170.                         If DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1171.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1172.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1174.                             "-" & DataGridView6.Rows(ii).Cells("材料說明").Value & "-" & DataGridView6.Rows(ii).Cells("備註").Value & "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1175. 

  1176.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1177.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1178.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1180.  "-" & DataGridView6.Rows(ii).Cells("備註").Value

  1181. 

  1182.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1183.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1184.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1186.  "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1187. 

  1188.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1189.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1190.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1192.  "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1193. 

  1194.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1195.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1196.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1198.  "-" & DataGridView6.Rows(ii).Cells("廠商").Value

  1199. 

  1200.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1201.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1202.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1204. 

  1205.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1206.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1207.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1209. 

  1210.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1211.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1212.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1214. 

  1215.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1216.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1217.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1219. 

  1220.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1221.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1222.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1224. 

  1225.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1226.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1227.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1229. 

  1230.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1231.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1232.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1234. 

  1235.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1236.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1237.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1239. 

  1240.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1241.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1242.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1244. 

  1245.                         ElseIf DataGridView6.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView6.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1246.                             DataGridView6.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView6.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1247.                             DataGridView1.Rows(i).Cells("SOCK LINING").Value = DataGridView1.Rows(i).Cells("SOCK LINING").Value & " 

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

  1249.                         End If

  1250.                         aa += 1

  1251.                     End If

  1252.                 End If

  1253.             Next

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

  1255.     End Sub

  1256.     Private Sub 導入E類料()

  1257.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  1258.             資料數 = DataGridView1.Rows.Count : MyModule1.進度條()

  1259.             DataGridView1.Rows(i).Cells("BOTTOM").Value = ""

  1260.             Dim aa As Integer = 1

  1261.             For ii As Integer = 0 To DataGridView7.Rows.Count - 1

  1262.                 If DataGridView1.Rows(i).Cells("流水號").Value = DataGridView7.Rows(ii).Cells("流水號").Value Then

  1263.                     If aa = 1 Then

  1264.                         If DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1265.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1266.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1267.                                      "-" & DataGridView7.Rows(ii).Cells("材料說明").Value & "-" & DataGridView7.Rows(ii).Cells("備註").Value & "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1268. 

  1269.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1270.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1271.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1272.                                        "-" & DataGridView7.Rows(ii).Cells("材料說明").Value & "-" & DataGridView7.Rows(ii).Cells("備註").Value

  1273. 

  1274.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1275.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1276.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1277.                                        "-" & DataGridView7.Rows(ii).Cells("材料說明").Value & "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1278. 

  1279.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1280.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1281.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1282.                                        "-" & DataGridView7.Rows(ii).Cells("備註").Value & "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1283. 

  1284.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1285.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1286.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料說明").Value &

  1287.                                        "-" & DataGridView7.Rows(ii).Cells("備註").Value & "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1288. 

  1289.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1290.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value & " - ".ToString = "" Then

  1291.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1292.                                 "-" & DataGridView7.Rows(ii).Cells("材料說明").Value

  1293. 

  1294.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1295.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1296.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1297.                                 "-" & DataGridView7.Rows(ii).Cells("備註").Value

  1298. 

  1299.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1300.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1301.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料說明").Value &

  1302.                                 "-" & DataGridView7.Rows(ii).Cells("備註").Value

  1303. 

  1304.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1305.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1306.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value &

  1307.                                 "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1308. 

  1309.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1310.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1311.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料說明").Value &

  1312.                                 "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1313. 

  1314.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1315.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1316.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("備註").Value &

  1317.                                 "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1318. 

  1319.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1320.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1321.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料名稱").Value

  1322. 

  1323.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1324.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1325.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("材料說明").Value

  1326. 

  1327.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1328.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1329.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("備註").Value

  1330. 

  1331.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1332.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1333.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = aa & "、" & DataGridView7.Rows(ii).Cells("部件").Value & " - " & DataGridView7.Rows(ii).Cells("廠商").Value

  1334.                         End If

  1335.                         aa += 1

  1336.                     Else

  1337.                         If DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1338.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1339.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1341.                             "-" & DataGridView7.Rows(ii).Cells("材料說明").Value & "-" & DataGridView7.Rows(ii).Cells("備註").Value & "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1342. 

  1343.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1344.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1345.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1347.  "-" & DataGridView7.Rows(ii).Cells("備註").Value

  1348. 

  1349.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1350.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1351.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1353.  "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1354. 

  1355.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1356.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1357.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1359.  "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1360. 

  1361.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1362.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1363.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1365.  "-" & DataGridView7.Rows(ii).Cells("廠商").Value

  1366. 

  1367.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1368.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1369.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1371. 

  1372.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1373.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1374.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1376. 

  1377.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1378.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1379.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1381. 

  1382.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1383.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1384.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1386. 

  1387.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1388.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1389.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1391. 

  1392.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1393.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1394.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1396. 

  1397.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1398.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1399.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1401. 

  1402.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1403.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1404.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1406. 

  1407.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1408.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1409.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1411. 

  1412.                         ElseIf DataGridView7.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView7.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1413.                             DataGridView7.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView7.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1414.                             DataGridView1.Rows(i).Cells("BOTTOM").Value = DataGridView1.Rows(i).Cells("BOTTOM").Value & " 

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

  1416.                         End If

  1417.                         aa += 1

  1418.                     End If

  1419.                 End If

  1420.             Next

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

  1422.     End Sub

  1423.     Private Sub 導入F類料()

  1424.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  1425.             資料數 = DataGridView1.Rows.Count : MyModule1.進度條()

  1426.             DataGridView1.Rows(i).Cells("OTHER").Value = ""

  1427.             Dim aa As Integer = 1

  1428.             For ii As Integer = 0 To DataGridView8.Rows.Count - 1

  1429.                 If DataGridView1.Rows(i).Cells("流水號").Value = DataGridView8.Rows(ii).Cells("流水號").Value Then

  1430.                     If aa = 1 Then

  1431.                         If DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1432.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1433.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1434.                                      "-" & DataGridView8.Rows(ii).Cells("材料說明").Value & "-" & DataGridView8.Rows(ii).Cells("備註").Value & "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1435. 

  1436.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1437.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1438.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1439.                                        "-" & DataGridView8.Rows(ii).Cells("材料說明").Value & "-" & DataGridView8.Rows(ii).Cells("備註").Value

  1440. 

  1441.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1442.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1443.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1444.                                        "-" & DataGridView8.Rows(ii).Cells("材料說明").Value & "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1445. 

  1446.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1447.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1448.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1449.                                        "-" & DataGridView8.Rows(ii).Cells("備註").Value & "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1450. 

  1451.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1452.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1453.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料說明").Value &

  1454.                                        "-" & DataGridView8.Rows(ii).Cells("備註").Value & "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1455. 

  1456.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1457.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1458.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1459.                                 "-" & DataGridView8.Rows(ii).Cells("材料說明").Value

  1460. 

  1461.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1462.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1463.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1464.                                 "-" & DataGridView8.Rows(ii).Cells("備註").Value

  1465. 

  1466.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1467.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1468.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料說明").Value &

  1469.                                 "-" & DataGridView8.Rows(ii).Cells("備註").Value

  1470. 

  1471.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1472.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1473.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value &

  1474.                                 "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1475. 

  1476.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1477.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1478.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料說明").Value &

  1479.                                 "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1480. 

  1481.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1482.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1483.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("備註").Value &

  1484.                                 "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1485. 

  1486.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1487.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1488.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料名稱").Value

  1489. 

  1490.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1491.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1492.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("材料說明").Value

  1493. 

  1494.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1495.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1496.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("備註").Value

  1497. 

  1498.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1499.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1500.                             DataGridView1.Rows(i).Cells("OTHER").Value = aa & "、" & DataGridView8.Rows(ii).Cells("部件").Value & " - " & DataGridView8.Rows(ii).Cells("廠商").Value

  1501.                         End If

  1502.                         aa += 1

  1503.                     Else

  1504.                         If DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1505.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1506.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1508.                             "-" & DataGridView8.Rows(ii).Cells("材料說明").Value & "-" & DataGridView8.Rows(ii).Cells("備註").Value & "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1509. 

  1510.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1511.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1512.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1514.  "-" & DataGridView8.Rows(ii).Cells("備註").Value

  1515. 

  1516.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1517.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1518.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1520.  "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1521. 

  1522.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1523.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1524.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1526.  "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1527. 

  1528.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1529.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1530.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1532.  "-" & DataGridView8.Rows(ii).Cells("廠商").Value

  1533. 

  1534.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1535.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1536.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1538. 

  1539.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1540.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1541.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1543. 

  1544.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1545.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1546.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1548. 

  1549.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1550.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1551.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1553. 

  1554.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1555.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1556.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1558. 

  1559.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1560.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1561.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1563. 

  1564.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1565.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1566.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1568. 

  1569.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString <> "" And

  1570.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1571.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1573. 

  1574.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1575.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString <> "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString = "" Then

  1576.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1578. 

  1579.                         ElseIf DataGridView8.Rows(ii).Cells("材料名稱").Value.ToString = "" And DataGridView8.Rows(ii).Cells("材料說明").Value.ToString = "" And

  1580.                             DataGridView8.Rows(ii).Cells("備註").Value.ToString = "" And DataGridView8.Rows(ii).Cells("廠商").Value.ToString <> "" Then

  1581.                             DataGridView1.Rows(i).Cells("OTHER").Value = DataGridView1.Rows(i).Cells("OTHER").Value & " 

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

  1583.                         End If

  1584.                         aa += 1

  1585.                     End If

  1586.                 End If

  1587.             Next

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

  1589.     End Sub

  1590.     Private Sub ComboBox7下拉表單資料載入()

  1591.         conn.Close()

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

  1593.         SQL1 = "SELECT SEASON FROM 季節清單 ORDER BY SEASON"

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

  1595.         ComboBox7.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("SEASON")) : End While : conn.Close()

  1596.     End Sub

  1597.     Private Sub ComboBox2下拉表單資料載入()

  1598.         conn.Close()

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

  1600.         SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"

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

  1602.         ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("客戶簡稱")) : End While : conn.Close()

  1603.     End Sub

  1604.     Private Sub 樣品進度表_英文版__Load(sender As Object, e As EventArgs) Handles MyBase.Load

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

  1606.         ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1607.         DataGridView2.Visible = False : DataGridView3.Visible = False : DataGridView4.Visible = False : DataGridView5.Visible = False : DataGridView6.Visible = False : DataGridView7.Visible = False

  1608.         DataGridView8.Visible = False : GroupBox1.Visible = False : ComboBox7.Enabled = False : ComboBox2.Enabled = False

  1609.     End Sub

  1610.     Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint

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

  1612.         If e.RowIndex = DataGridView1.Rows.Count - 1 Then

  1613.             Exit Sub

  1614.         Else

  1615.             If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then

  1616.                 Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)

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

  1618.                 Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset

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

  1620.                 Exit Sub

  1621.             End If

  1622.         End If

  1623.     End Sub

  1624.     Private Sub DataGridView8_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView8.RowPostPaint

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

  1626.         If e.RowIndex = DataGridView8.Rows.Count - 1 Then

  1627.             Exit Sub

  1628.         Else

  1629.             If DataGridView8(0, e.RowIndex).Value.ToString <> DataGridView8(0, e.RowIndex + 1).Value.ToString Then

  1630.                 Dim startX As Integer = IIf(DataGridView8.RowHeadersVisible, DataGridView8.RowHeadersWidth, 0)

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

  1632.                 Dim endX As Integer = startX + DataGridView8.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView8.HorizontalScrollingOffset

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

  1634.                 Exit Sub

  1635.             End If

  1636.         End If

  1637.     End Sub

  1638.     Private Sub DataGridView9_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView9.CellClick

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

  1640.             ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1641.             ComboBox7.Text = DataGridView9.Rows(e.RowIndex).Cells("季節").Value

  1642.             ComboBox2.Text = DataGridView9.Rows(e.RowIndex).Cells("客戶").Value

  1643.         End If

  1644.     End Sub

  1645.     Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged

  1646.         If ComboBox7.Text = "" Or ComboBox2.Text = "" Then : Else : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單()

  1647.             導入A類料() : 導入B類料() : 導入C類料() : 導入D類料() : 導入E類料() : 導入F類料() : Set_grid0() : ComboBox7.Enabled = False : ComboBox2.Enabled = False : End If

  1648.     End Sub

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

  1650.         If ComboBox7.Text = "" Or ComboBox2.Text = "" Then : Else : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單()

  1651.             導入A類料() : 導入B類料() : 導入C類料() : 導入D類料() : 導入E類料() : 導入F類料() : Set_grid0() : ComboBox7.Enabled = False : ComboBox2.Enabled = False : End If

  1652.     End Sub

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

  1654.         ComboBox7.Enabled = True : ComboBox2.Enabled = True

  1655.         ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()

  1656.     End Sub

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

  1658.         GroupBox1.Visible = False

  1659.     End Sub

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

  1661.         Set_清單8()

  1662.         GroupBox1.Visible = True

  1663.     End Sub

  1664.     Private Sub 圖片導入2()

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

  1666.         SQL1 = "SELECT TOP (1) 圖片 FROM 鞋樣素描圖控制表 WHERE  型體編號  LIKE N'" & SSDD & "'"

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

  1668.         PictureBox2.Image = Nothing

  1669.         While dr.Read() = True

  1670.             Dim bytes As Byte() = New Byte(-1) {}

  1671.             bytes = DirectCast(dr.Item("圖片"), Byte())

  1672.             Dim oStream As New MemoryStream(bytes)

  1673.             PictureBox2.Image = Bitmap.FromStream(oStream)

  1674.         End While

  1675.         conn.Close()

  1676.         PictureBox2.SizeMode = 4

  1677.     End Sub

  1678.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

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

  1680.         xlBook = xlApp.Workbooks.Add

  1681.         xlApp.DisplayAlerts = True

  1682.         xlBook.Activate()

  1683.         xlSheet = NewMethod(xlBook)

  1684.         xlSheet.Activate()

  1685.         xlApp.Visible = True

  1686.         xlApp.Application.WindowState = xlMaximized

  1687.         FFGG = DataGridView1.Rows.Count + 3

  1688.         AA(xlApp, xlSheet)

  1689.         xlSheet.Cells(1, 1) = ComboBox2.Text & " - " & ComboBox7.Text & " - " & 樣品進度表分類2 & " - " & "SAMPLE SCHEDULE"

  1690.         xlSheet.Cells(3, 1) = "No."

  1691.         xlSheet.Cells(3, 2) = "工廠"

  1692.         xlSheet.Cells(3, 3) = "Picture "

  1693.         xlSheet.Cells(3, 4) = "STYLE"

  1694.         xlSheet.Cells(3, 5) = "C_No"

  1695.         xlSheet.Cells(3, 6) = "Color"

  1696.         xlSheet.Cells(3, 7) = "SIZE"

  1697.         xlSheet.Cells(3, 8) = "UPPER_____A."

  1698.         xlSheet.Cells(3, 9) = "LINING_____B."

  1699.         xlSheet.Cells(3, 10) = "STITCHING_____F."

  1700.         xlSheet.Cells(3, 11) = "ACCESSORIES_____C."

  1701.         xlSheet.Cells(3, 12) = "SOCK LINING_____D."

  1702.         xlSheet.Cells(3, 13) = "BOTTOM_____E."

  1703.         xlSheet.Cells(3, 14) = "Double"

  1704.         xlSheet.Cells(3, 15) = "ETD"

  1705.         xlSheet.Cells(3, 16) = "Remark"

  1706.         xlSheet.Cells(3, 17) = "Express number"

  1707.         Dim VVBB As String = "0"

  1708.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  1709.             N3 = i + 4

  1710.             SSDD = DataGridView1.Rows(i).Cells("型體號碼").Value

  1711.             If VVBB <> SSDD Then

  1712.                 圖片導入2() : N6 = 1

  1713.                 For ii As Integer = 0 To 20

  1714.                     If PictureBox2.Image Is Nothing Then

  1715.                         Thread.Sleep(100) '延迟0.1秒

  1716.                     Else

  1717.                         BB(xlApp, xlSheet)

  1718.                         ii = 20

  1719.                     End If

  1720.                 Next ii

  1721.             End If

  1722.             VVBB = SSDD

  1723.             xlSheet.Cells(i + 4, 1) = DataGridView1.Rows(i).Cells("序號").Value

  1724.             xlSheet.Cells(i + 4, 2) = DataGridView1.Rows(i).Cells("工廠").Value

  1725.             xlSheet.Cells(i + 4, 4) = DataGridView1.Rows(i).Cells("STYLE").Value

  1726.             xlSheet.Cells(i + 4, 5) = N6

  1727.             xlSheet.Cells(i + 4, 6) = DataGridView1.Rows(i).Cells("顏色").Value

  1728.             xlSheet.Cells(i + 4, 7) = DataGridView1.Rows(i).Cells("SIZE").Value

  1729.             xlSheet.Cells(i + 4, 8) = DataGridView1.Rows(i).Cells("UPPER").Value

  1730.             xlSheet.Cells(i + 4, 9) = DataGridView1.Rows(i).Cells("LINING").Value

  1731.             xlSheet.Cells(i + 4, 10) = DataGridView1.Rows(i).Cells("OTHER").Value

  1732.             xlSheet.Cells(i + 4, 11) = DataGridView1.Rows(i).Cells("BUCKLE").Value

  1733.             xlSheet.Cells(i + 4, 12) = DataGridView1.Rows(i).Cells("SOCK LINING").Value

  1734.             xlSheet.Cells(i + 4, 13) = DataGridView1.Rows(i).Cells("BOTTOM").Value

  1735.             xlSheet.Cells(i + 4, 14) = DataGridView1.Rows(i).Cells("數量").Value

  1736.             xlSheet.Cells(i + 4, 15) = DataGridView1.Rows(i).Cells("ETA").Value

  1737.             N6 = N6 + 1

  1738.         Next i

  1739.         CC(xlApp, xlSheet)

  1740.         xlSheet.PageSetup.PrintArea = ""

  1741.         xlApp.Cells.Select()

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

  1743.         xlApp.Application.WindowState = xlMinimized

  1744.         MsgBox("列印完成")

  1745.     End Sub

  1746. 

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

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

  1749.     End Function

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

  1751.         xlSheet.Cells.Select()

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

  1753.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1754.         xlSheet.Rows("4:" & FFGG).Select

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

  1756.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1757.         myExcel.Selection.RowHeight = 90

  1758.         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  1759.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1760. 

  1761.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 3

  1762.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1763.             .ReadingOrder = xlContext : End With

  1764.         xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 10

  1765.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1766.             .ReadingOrder = xlContext : End With

  1767.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 16

  1768.         xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9

  1769.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1770.             .ReadingOrder = xlContext : End With

  1771.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 4

  1772.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1773.             .ReadingOrder = xlContext : End With

  1774.         xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12

  1775.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1776.             .ReadingOrder = xlContext : End With

  1777. 

  1778.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 5

  1779.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1780.             .ReadingOrder = xlContext : End With

  1781. 

  1782.         xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 27 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 27

  1783.         xlSheet.Columns("J:J").Select : myExcel.Selection.ColumnWidth = 20 : xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 27

  1784.         xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 27 : xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 27

  1785.         xlSheet.Columns("N:N").Select : myExcel.Selection.ColumnWidth = 6

  1786.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1787.             .ReadingOrder = xlContext : End With

  1788.         xlSheet.Columns("O:O").Select : myExcel.Selection.ColumnWidth = 8

  1789.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1790.             .ReadingOrder = xlContext : End With

  1791.         xlSheet.Columns("P:P").Select : myExcel.Selection.ColumnWidth = 16

  1792.         xlSheet.Columns("Q:Q").Select : myExcel.Selection.ColumnWidth = 15

  1793.         xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 27

  1794. 

  1795.         xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 5 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 35

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

  1797.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1798.     End Sub

  1799.     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1800.         Clipboard.SetDataObject(PictureBox2.Image)

  1801.         xlSheet.Cells(1, 1).Select

  1802.         Thread.Sleep(100) '延迟0.1秒

  1803.         xlSheet.Range("C" & N3).Select()

  1804.         myExcel.ActiveSheet.Paste

  1805.         If PictureBox2.Image.Height < PictureBox2.Image.Width Then

  1806.             myExcel.Selection.ShapeRange.Width = 45

  1807.         Else

  1808.             myExcel.Selection.ShapeRange.Height = 40

  1809.         End If

  1810.         myExcel.Selection.ShapeRange.IncrementLeft(2)

  1811.         myExcel.Selection.ShapeRange.IncrementTop(2)

  1812.     End Sub

  1813.     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1814.         xlSheet.Range("A3:Q3").Select()

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

  1816.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1817.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1818.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1819.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

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

  1821.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1822.         N4 = 0 : N5 = 0

  1823.         Dim ZZXX As Boolean = False : Dim XXCC As Boolean = False

  1824.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  1825.             If i = DataGridView1.Rows.Count - 1 Then

  1826.                 xlSheet.Range("A" & N4 + 3 & ":Q" & N5 + 4).Select()

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

  1828.                 With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1829.                 With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1830.                 With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1831.                 With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1832.                 With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1833.                 With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1834.                 Exit For

  1835.             ElseIf (DataGridView1.Rows(i).Cells("序號").Value = DataGridView1.Rows(i + 1).Cells("序號").Value) And i < DataGridView1.Rows.Count Then

  1836.                 If ZZXX = False Then

  1837.                     N4 = i + 1 : ZZXX = True

  1838.                 End If

  1839.                 N5 = i + 1

  1840.             ElseIf (DataGridView1.Rows(i).Cells("序號").Value <> DataGridView1.Rows(i + 1).Cells("序號").Value) And i < DataGridView1.Rows.Count Then

  1841.                 If XXCC = False Then

  1842.                     xlSheet.Range("A" & N4 + 3 & ":Q" & N5 + 4).Select() : XXCC = True

  1843.                 Else

  1844.                     xlSheet.Range("A" & N4 + 4 & ":Q" & N5 + 4).Select()

  1845.                 End If

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

  1847.                 With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1848.                 With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1849.                 With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1850.                 With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With

  1851.                 With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1852.                 With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With

  1853. 

  1854.                 ZZXX = False

  1855.                 If ZZXX = False Then

  1856.                     N4 = i + 1 : ZZXX = True

  1857.                 End If

  1858.                 N5 = i + 1

  1859.             End If

  1860.         Next

  1861.         myExcel.ActiveWindow.Zoom = 90

  1862. 

  1863.         xlSheet.Columns("B:B").Select : xlSheet.Range("B2").Activate() : myExcel.Selection.Delete

  1864.         xlSheet.Columns("H:L").Select : xlSheet.Range("H2").Activate() : myExcel.Selection.Delete

  1865.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 100

  1866.         xlSheet.Rows("4:" & DataGridView1.Rows.Count + 3).EntireRow.AutoFit

  1867.         xlSheet.Range("A1:K1").Select()

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

  1869.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1870.         myExcel.Selection.Merge

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

  1872.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1873. 

  1874.         ZZXX = False : XXCC = False

  1875.         myExcel.Application.PrintCommunication = False

  1876.         With myExcel.ActiveSheet.PageSetup

  1877.             .PrintTitleRows = "$1:$3"

  1878.             .PrintTitleColumns = ""

  1879.         End With

  1880.         myExcel.Application.PrintCommunication = True

  1881.         myExcel.ActiveSheet.PageSetup.PrintArea = ""

  1882.         myExcel.Application.PrintCommunication = False

  1883.         With myExcel.ActiveSheet.PageSetup

  1884.             .LeftHeader = ""

  1885.             .CenterHeader = ""

  1886.             .RightHeader = ""

  1887.             .LeftFooter = ""

  1888.             .CenterFooter = ""

  1889.             .RightFooter = ""

  1890.             .LeftMargin = myExcel.Application.InchesToPoints(0.25)

  1891.             .RightMargin = myExcel.Application.InchesToPoints(0.25)

  1892.             .TopMargin = myExcel.Application.InchesToPoints(0.75)

  1893.             .BottomMargin = myExcel.Application.InchesToPoints(0.75)

  1894.             .HeaderMargin = myExcel.Application.InchesToPoints(0.3)

  1895.             .FooterMargin = myExcel.Application.InchesToPoints(0.3)

  1896.             .PrintHeadings = False

  1897.             .PrintGridlines = False

  1898.             .PrintQuality = 600

  1899.             .CenterHorizontally = False

  1900.             .CenterVertically = False

  1901.             .Draft = False

  1902.             .FirstPageNumber = xlAutomatic

  1903.             .BlackAndWhite = False

  1904.             .Zoom = 50

  1905.             .OddAndEvenPagesHeaderFooter = False

  1906.             .DifferentFirstPageHeaderFooter = False

  1907.             .ScaleWithDocHeaderFooter = True

  1908.             .AlignMarginsHeaderFooter = True

  1909.             .EvenPage.LeftHeader.Text = ""

  1910.             .EvenPage.CenterHeader.Text = ""

  1911.             .EvenPage.RightHeader.Text = ""

  1912.             .EvenPage.LeftFooter.Text = ""

  1913.             .EvenPage.CenterFooter.Text = ""

  1914.             .EvenPage.RightFooter.Text = ""

  1915.             .FirstPage.LeftHeader.Text = ""

  1916.             .FirstPage.CenterHeader.Text = ""

  1917.             .FirstPage.RightHeader.Text = ""

  1918.             .FirstPage.LeftFooter.Text = ""

  1919.             .FirstPage.CenterFooter.Text = ""

  1920.             .FirstPage.RightFooter.Text = ""

  1921.         End With

  1922.         myExcel.Application.PrintCommunication = True

  1923.     End Sub

  1924. End Class