Option Strict Off Imports System.IO Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle Imports Microsoft.Office.Interop.Excel.Constants Imports Microsoft.Office.Interop.Excel.XlBordersIndex Imports Microsoft.Office.Interop.Excel.XlLineStyle Imports Microsoft.Office.Interop.Excel.XlBorderWeight Imports Microsoft.Office.Interop.Excel.XlThemeFont Imports Microsoft.Office.Interop.Excel.XlThemeColor Imports Microsoft.Office.Interop.Excel.XlWindowState Imports Microsoft.Office.Interop.Excel Imports System.Threading Imports System.Text.RegularExpressions Public Class 樣品進度表_英文版_ Private ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet Dim N1, N2, N3, N4, N5, N6, FFGG, BBNN1, BBNN2, BBNN3, BBNN4, BBNN5 As Integer Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet Dim SSDD, AAWW, HHGG, BBNN11, BBNN12, BBNN13, BBNN14, BBNN15 As String Private ReadOnly RRTT As New Regex("[\u4e00-\u9fa5]") Private Sub Set_清單1() 版本_dgv.DataSource = Nothing : ds1.Clear() 版本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 版本_dgv.ColumnHeadersHeight = 25 版本_dgv.AllowUserToAddRows = False SQL_英文版次() da.Fill(ds1) : 版本_dgv.DataSource = ds1.Tables(0) : conn.Close() End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單2() 部件A_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 部件A_dgv.ColumnHeadersHeight = 25 部件A_dgv.AllowUserToAddRows = False PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_讀取清單2() da.Fill(ds2) : 部件A_dgv.DataSource = ds2.Tables(0) : conn.Close() End Sub Private Sub Set_清單2() 部件A_dgv.DataSource = Nothing : ds2.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單2() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單2() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next 去中文2() End Sub Private Sub 去中文2() BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0 BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = "" For i As Integer = 0 To 部件A_dgv.Rows.Count - 1 資料數 = 部件A_dgv.Rows.Count : MyModule1.進度條() BBNN1 = 部件A_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString() BBNN3 = 部件A_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件A_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString() BBNN5 = 部件A_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString() '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN1 - 1 If II = 0 Then AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("部件").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件A_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If End If Next : 部件A_dgv.Rows(i).Cells("部件").Value = BBNN11 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN2 - 1 If II = 0 Then AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If End If Next : 部件A_dgv.Rows(i).Cells("材料名稱").Value = BBNN12 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN3 - 1 If II = 0 Then AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件A_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If End If Next : 部件A_dgv.Rows(i).Cells("材料說明").Value = BBNN13 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN4 - 1 If II = 0 Then AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("備註").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件A_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If End If Next : 部件A_dgv.Rows(i).Cells("備註").Value = BBNN14 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN5 - 1 If II = 0 Then AAWW = Strings.Left(部件A_dgv.Rows(i).Cells("廠商").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件A_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件A_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If End If Next : 部件A_dgv.Rows(i).Cells("廠商").Value = BBNN15 Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單3() 部件B_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 部件B_dgv.ColumnHeadersHeight = 25 部件B_dgv.AllowUserToAddRows = False PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_部件B() da.Fill(ds3) : 部件B_dgv.DataSource = ds3.Tables(0) : conn.Close() End Sub Private Sub Set_清單3() 部件B_dgv.DataSource = Nothing : ds3.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單3() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單3() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next 去中文3() End Sub Private Sub 去中文3() BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0 BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = "" For i As Integer = 0 To 部件B_dgv.Rows.Count - 1 資料數 = 部件B_dgv.Rows.Count : MyModule1.進度條() BBNN1 = 部件B_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString() BBNN3 = 部件B_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件B_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString() BBNN5 = 部件B_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString() '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN1 - 1 If II = 0 Then AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("部件").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件B_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If End If Next : 部件B_dgv.Rows(i).Cells("部件").Value = BBNN11 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN2 - 1 If II = 0 Then AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If End If Next : 部件B_dgv.Rows(i).Cells("材料名稱").Value = BBNN12 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN3 - 1 If II = 0 Then AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件B_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If End If Next : 部件B_dgv.Rows(i).Cells("材料說明").Value = BBNN13 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN4 - 1 If II = 0 Then AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("備註").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件B_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If End If Next : 部件B_dgv.Rows(i).Cells("備註").Value = BBNN14 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN5 - 1 If II = 0 Then AAWW = Strings.Left(部件B_dgv.Rows(i).Cells("廠商").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件B_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件B_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If End If Next : 部件B_dgv.Rows(i).Cells("廠商").Value = BBNN15 Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單4() 部件C_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 部件C_dgv.ColumnHeadersHeight = 25 部件C_dgv.AllowUserToAddRows = False PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_部件C() da.Fill(ds4) : 部件C_dgv.DataSource = ds4.Tables(0) : conn.Close() End Sub Private Sub Set_清單4() 部件C_dgv.DataSource = Nothing : ds4.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單4() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單4() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next 去中文4() End Sub Private Sub 去中文4() BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0 BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = "" For i As Integer = 0 To 部件C_dgv.Rows.Count - 1 資料數 = 部件C_dgv.Rows.Count : MyModule1.進度條() BBNN1 = 部件C_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString() BBNN3 = 部件C_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件C_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString() BBNN5 = 部件C_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString() '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN1 - 1 If II = 0 Then AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("部件").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件C_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If End If Next : 部件C_dgv.Rows(i).Cells("部件").Value = BBNN11 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN2 - 1 If II = 0 Then AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If End If Next : 部件C_dgv.Rows(i).Cells("材料名稱").Value = BBNN12 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN3 - 1 If II = 0 Then AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件C_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If End If Next : 部件C_dgv.Rows(i).Cells("材料說明").Value = BBNN13 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN4 - 1 If II = 0 Then AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("備註").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件C_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If End If Next : 部件C_dgv.Rows(i).Cells("備註").Value = BBNN14 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN5 - 1 If II = 0 Then AAWW = Strings.Left(部件C_dgv.Rows(i).Cells("廠商").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件C_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件C_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If End If Next : 部件C_dgv.Rows(i).Cells("廠商").Value = BBNN15 Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單5() 部件D_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 部件D_dgv.ColumnHeadersHeight = 25 部件D_dgv.AllowUserToAddRows = False PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_部件D() da.Fill(ds5) : 部件D_dgv.DataSource = ds5.Tables(0) : conn.Close() End Sub Private Sub Set_清單5() 部件D_dgv.DataSource = Nothing : ds5.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單5() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單5() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next '去中文5() End Sub Private Sub 去中文5() BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0 BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = "" For i As Integer = 0 To 部件D_dgv.Rows.Count - 1 資料數 = 部件D_dgv.Rows.Count : MyModule1.進度條() BBNN1 = 部件D_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString() BBNN3 = 部件D_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件D_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString() BBNN5 = 部件D_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString() '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN1 - 1 If II = 0 Then AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("部件").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件D_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If End If Next : 部件D_dgv.Rows(i).Cells("部件").Value = BBNN11 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN2 - 1 If II = 0 Then AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If End If Next : 部件D_dgv.Rows(i).Cells("材料名稱").Value = BBNN12 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN3 - 1 If II = 0 Then AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件D_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If End If Next : 部件D_dgv.Rows(i).Cells("材料說明").Value = BBNN13 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN4 - 1 If II = 0 Then AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("備註").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件D_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If End If Next : 部件D_dgv.Rows(i).Cells("備註").Value = BBNN14 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN5 - 1 If II = 0 Then AAWW = Strings.Left(部件D_dgv.Rows(i).Cells("廠商").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件D_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件D_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If End If Next : 部件D_dgv.Rows(i).Cells("廠商").Value = BBNN15 Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單6() 部件E_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 部件E_dgv.ColumnHeadersHeight = 25 部件E_dgv.AllowUserToAddRows = False PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_部件E() da.Fill(ds6) : 部件E_dgv.DataSource = ds6.Tables(0) : conn.Close() End Sub Private Sub Set_清單6() 部件E_dgv.DataSource = Nothing : ds6.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單6() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單6() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next '去中文6() End Sub Private Sub 去中文6() BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0 BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = "" For i As Integer = 0 To 部件E_dgv.Rows.Count - 1 資料數 = 部件E_dgv.Rows.Count : MyModule1.進度條() BBNN1 = 部件E_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString() BBNN3 = 部件E_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件E_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString() BBNN5 = 部件E_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString() '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN1 - 1 If II = 0 Then AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("部件").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件E_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If End If Next : 部件E_dgv.Rows(i).Cells("部件").Value = BBNN11 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN2 - 1 If II = 0 Then AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If End If Next : 部件E_dgv.Rows(i).Cells("材料名稱").Value = BBNN12 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN3 - 1 If II = 0 Then AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件E_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If End If Next : 部件E_dgv.Rows(i).Cells("材料說明").Value = BBNN13 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN4 - 1 If II = 0 Then AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("備註").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件E_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If End If Next : 部件E_dgv.Rows(i).Cells("備註").Value = BBNN14 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN5 - 1 If II = 0 Then AAWW = Strings.Left(部件E_dgv.Rows(i).Cells("廠商").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件E_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件E_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If End If Next : 部件E_dgv.Rows(i).Cells("廠商").Value = BBNN15 Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單7() 部件F_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 部件F_dgv.ColumnHeadersHeight = 25 部件F_dgv.AllowUserToAddRows = False PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_部件F() da.Fill(ds7) : 部件F_dgv.DataSource = ds7.Tables(0) : conn.Close() End Sub Private Sub Set_清單7() 部件F_dgv.DataSource = Nothing : ds7.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單7() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單7() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next 去中文7() End Sub Private Sub 去中文7() BBNN1 = 0 : BBNN2 = 0 : BBNN3 = 0 : BBNN4 = 0 : BBNN5 = 0 BBNN11 = "" : BBNN12 = "" : BBNN13 = "" : BBNN14 = "" : BBNN15 = "" For i As Integer = 0 To 部件F_dgv.Rows.Count - 1 資料數 = 部件F_dgv.Rows.Count : MyModule1.進度條() BBNN1 = 部件F_dgv.Rows(i).Cells("部件").Value.ToString.Length.ToString() : BBNN2 = 部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString.Length.ToString() BBNN3 = 部件F_dgv.Rows(i).Cells("材料說明").Value.ToString.Length.ToString() : BBNN4 = 部件F_dgv.Rows(i).Cells("備註").Value.ToString.Length.ToString() BBNN5 = 部件F_dgv.Rows(i).Cells("廠商").Value.ToString.Length.ToString() '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN1 - 1 If II = 0 Then AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("部件").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(部件F_dgv.Rows(i).Cells("部件").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("部件").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If End If Next : 部件F_dgv.Rows(i).Cells("部件").Value = BBNN11 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN2 - 1 If II = 0 Then AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN12 = Strings.Left(部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("材料名稱").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN12 : BBNN12 = HHGG & AAWW : End If End If Next : 部件F_dgv.Rows(i).Cells("材料名稱").Value = BBNN12 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN3 - 1 If II = 0 Then AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN13 = Strings.Left(部件F_dgv.Rows(i).Cells("材料說明").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("材料說明").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN13 : BBNN13 = HHGG & AAWW : End If End If Next : 部件F_dgv.Rows(i).Cells("材料說明").Value = BBNN13 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN4 - 1 If II = 0 Then AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("備註").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN14 = Strings.Left(部件F_dgv.Rows(i).Cells("備註").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("備註").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN14 : BBNN14 = HHGG & AAWW : End If End If Next : 部件F_dgv.Rows(i).Cells("備註").Value = BBNN14 '-------------------------------------------------------------------------------------------- For II As Integer = 0 To BBNN5 - 1 If II = 0 Then AAWW = Strings.Left(部件F_dgv.Rows(i).Cells("廠商").Value.ToString, 1) If RRTT.IsMatch(AAWW) Then : Else : BBNN15 = Strings.Left(部件F_dgv.Rows(i).Cells("廠商").Value.ToString, 1) : End If Else AAWW = Strings.Mid(部件F_dgv.Rows(i).Cells("廠商").Value.ToString, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN15 : BBNN15 = HHGG & AAWW : End If End If Next : 部件F_dgv.Rows(i).Cells("廠商").Value = BBNN15 Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Set_讀取清單() 進度表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 進度表_dgv.ColumnHeadersHeight = 25 進度表_dgv.AllowUserToAddRows = False 進度表_dgv.RowTemplate.Height = 140 PA = 版本_dgv.Rows(N2).Cells("SO").Value : PA1 = 版本_dgv.Rows(N2).Cells("版次").Value SQL_英文進度表() da.Fill(ds) : 進度表_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid() End Sub Private Sub Set_清單() 進度表_dgv.DataSource = Nothing : ds.Clear() For i As Integer = 0 To 版本_dgv.Rows.Count - 1 If 版本_dgv.Rows(i).Cells("版次").Value = "V01" Then N2 = i : Set_讀取清單() ElseIf 版本_dgv.Rows(i).Cells("版次").Value <> "V01" Then N2 = i : Set_讀取清單() i = i + Val(Strings.Right(版本_dgv.Rows(i).Cells("版次").Value, 2)) - 1 End If Next End Sub Private Sub Set_grid() 進度表_dgv.Columns(0).FillWeight = 40 : 進度表_dgv.Columns(1).FillWeight = 120 : 進度表_dgv.Columns(2).Visible = False : 進度表_dgv.Columns(3).FillWeight = 40 進度表_dgv.Columns(5).FillWeight = 100 : 進度表_dgv.Columns(6).FillWeight = 80 : 進度表_dgv.Columns(7).Visible = False : 進度表_dgv.Columns(8).FillWeight = 80 進度表_dgv.Columns(9).FillWeight = 100 : 進度表_dgv.Columns(10).FillWeight = 40 : 進度表_dgv.Columns(11).FillWeight = 40 : 進度表_dgv.Columns(12).Visible = False 進度表_dgv.Columns(13).Visible = False : 進度表_dgv.Columns(14).FillWeight = 250 : 進度表_dgv.Columns(15).FillWeight = 250 : 進度表_dgv.Columns(16).FillWeight = 200 進度表_dgv.Columns(17).FillWeight = 200 : 進度表_dgv.Columns(18).FillWeight = 200 : 進度表_dgv.Columns(19).FillWeight = 130 : 進度表_dgv.Columns(4).Visible = False 進度表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.0" : 進度表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0.0" 進度表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 進度表_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 進度表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 進度表_dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight 進度表_dgv.EditMode = DataGridViewEditMode.EditOnEnter N1 = 1 For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 If i = 進度表_dgv.Rows.Count - 1 Then 進度表_dgv.Rows(i).Cells("序號").Value = N1.ToString : Exit For Else If 進度表_dgv(4, i).Value.ToString <> 進度表_dgv(4, i + 1).Value.ToString Then 進度表_dgv.Rows(i).Cells("序號").Value = N1.ToString : N1 += 1 Else 進度表_dgv.Rows(i).Cells("序號").Value = N1.ToString End If End If Next End Sub Private Sub Set_grid0() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 進度表_dgv.Rows(i).Cells("STYLE").Value = 進度表_dgv.Rows(i).Cells("型體號碼").Value & " " & 進度表_dgv.Rows(i).Cells("STYLE").Value & " " & 進度表_dgv.Rows(i).Cells("SO").Value Next Dim mycol As DataGridViewImageColumn = 進度表_dgv.Columns("圖片") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom End Sub Private Sub Set_清單8() 季節客戶_dgv.DataSource = Nothing : ds8.Clear() 季節客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 季節客戶_dgv.ColumnHeadersHeight = 25 季節客戶_dgv.AllowUserToAddRows = False SQL_季節客戶() da.Fill(ds8) : 季節客戶_dgv.DataSource = ds8.Tables(0) : conn.Close() : Set_grid8() End Sub Private Sub Set_grid8() 季節客戶_dgv.Columns(0).FillWeight = 120 : 季節客戶_dgv.Columns(1).FillWeight = 240 End Sub Private Sub 導入A類料() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條() 進度表_dgv.Rows(i).Cells("UPPER").Value = "" Dim aa As Integer = 1 For ii As Integer = 0 To 部件A_dgv.Rows.Count - 1 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件A_dgv.Rows(ii).Cells("流水號").Value Then If aa = 1 Then If 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 Else If 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value & "-" & 部件A_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("備註").Value ElseIf 部件A_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件A_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("UPPER").Value = 進度表_dgv.Rows(i).Cells("UPPER").Value & " " & aa & "、" & 部件A_dgv.Rows(ii).Cells("部件").Value & " - " & 部件A_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 End If End If Next Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 導入B類料() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條() 進度表_dgv.Rows(i).Cells("LINING").Value = "" Dim aa As Integer = 1 For ii As Integer = 0 To 部件B_dgv.Rows.Count - 1 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件B_dgv.Rows(ii).Cells("流水號").Value Then If aa = 1 Then If 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 Else If 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value & "-" & 部件B_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("備註").Value ElseIf 部件B_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件B_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("LINING").Value = 進度表_dgv.Rows(i).Cells("LINING").Value & " " & aa & "、" & 部件B_dgv.Rows(ii).Cells("部件").Value & " - " & 部件B_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 End If End If Next Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 導入C類料() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條() 進度表_dgv.Rows(i).Cells("BUCKLE").Value = "" Dim aa As Integer = 1 For ii As Integer = 0 To 部件C_dgv.Rows.Count - 1 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件C_dgv.Rows(ii).Cells("流水號").Value Then If aa = 1 Then If 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 Else If 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value & "-" & 部件C_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("備註").Value ElseIf 部件C_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件C_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BUCKLE").Value = 進度表_dgv.Rows(i).Cells("BUCKLE").Value & " " & aa & "、" & 部件C_dgv.Rows(ii).Cells("部件").Value & " - " & 部件C_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 End If End If Next Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 導入D類料() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條() 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = "" Dim aa As Integer = 1 For ii As Integer = 0 To 部件D_dgv.Rows.Count - 1 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件D_dgv.Rows(ii).Cells("流水號").Value Then If aa = 1 Then If 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 Else If 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value & "-" & 部件D_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("備註").Value ElseIf 部件D_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件D_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("SOCK LINING").Value = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value & " " & aa & "、" & 部件D_dgv.Rows(ii).Cells("部件").Value & " - " & 部件D_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 End If End If Next Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 導入E類料() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條() 進度表_dgv.Rows(i).Cells("BOTTOM").Value = "" Dim aa As Integer = 1 For ii As Integer = 0 To 部件E_dgv.Rows.Count - 1 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件E_dgv.Rows(ii).Cells("流水號").Value Then If aa = 1 Then If 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value & " - ".ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 Else If 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value & "-" & 部件E_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("備註").Value ElseIf 部件E_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件E_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("BOTTOM").Value = 進度表_dgv.Rows(i).Cells("BOTTOM").Value & " " & aa & "、" & 部件E_dgv.Rows(ii).Cells("部件").Value & " - " & 部件E_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 End If End If Next Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 導入F類料() For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 資料數 = 進度表_dgv.Rows.Count : MyModule1.進度條() 進度表_dgv.Rows(i).Cells("OTHER").Value = "" Dim aa As Integer = 1 For ii As Integer = 0 To 部件F_dgv.Rows.Count - 1 If 進度表_dgv.Rows(i).Cells("流水號").Value = 部件F_dgv.Rows(ii).Cells("流水號").Value Then If aa = 1 Then If 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 Else If 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value & "-" & 部件F_dgv.Rows(ii).Cells("廠商").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料名稱").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("材料說明").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString <> "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString = "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("備註").Value ElseIf 部件F_dgv.Rows(ii).Cells("材料名稱").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("材料說明").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("備註").Value.ToString = "" And 部件F_dgv.Rows(ii).Cells("廠商").Value.ToString <> "" Then 進度表_dgv.Rows(i).Cells("OTHER").Value = 進度表_dgv.Rows(i).Cells("OTHER").Value & " " & aa & "、" & 部件F_dgv.Rows(ii).Cells("部件").Value & " - " & 部件F_dgv.Rows(ii).Cells("廠商").Value End If aa += 1 End If End If Next Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub ComboBox7下拉表單資料載入() SQL_季節清單() SEASON_cb.Items.Clear() : While (dr.Read()) : SEASON_cb.Items.Add(dr("SEASON")) : End While : conn.Close() End Sub Private Sub ComboBox2下拉表單資料載入() SQL_客戶簡稱() CUST_cb.Items.Clear() : While (dr.Read()) : CUST_cb.Items.Add(dr("客戶簡稱")) : End While : conn.Close() End Sub Private Sub 樣品進度表_英文版__Load(sender As Object, e As EventArgs) Handles MyBase.Load WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入() 版本_dgv.Visible = False : 部件A_dgv.Visible = False : 部件B_dgv.Visible = False : 部件C_dgv.Visible = False : 部件D_dgv.Visible = False : 部件E_dgv.Visible = False 部件F_dgv.Visible = False : GroupBox1.Visible = False : SEASON_cb.Enabled = False : CUST_cb.Enabled = False 查看歷史進度表資料_bt.PerformClick() End Sub Private Sub 進度表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 進度表_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 進度表_dgv.Rows.Count - 1 Then Exit Sub Else If 進度表_dgv(0, e.RowIndex).Value.ToString <> 進度表_dgv(0, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(進度表_dgv.RowHeadersVisible, 進度表_dgv.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 進度表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 進度表_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) Exit Sub End If End If End Sub Private Sub 部件F_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 部件F_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 部件F_dgv.Rows.Count - 1 Then Exit Sub Else If 部件F_dgv(0, e.RowIndex).Value.ToString <> 部件F_dgv(0, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(部件F_dgv.RowHeadersVisible, 部件F_dgv.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 部件F_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 部件F_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) Exit Sub End If End If End Sub Private Sub 季節客戶_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 季節客戶_dgv.CellClick If e.RowIndex = -1 Then : Else ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入() SEASON_cb.Text = 季節客戶_dgv.Rows(e.RowIndex).Cells("季節").Value CUST_cb.Text = 季節客戶_dgv.Rows(e.RowIndex).Cells("客戶").Value 關閉_bt.PerformClick() : 重新讀取_bt.PerformClick() End If End Sub Private Sub SEASON_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SEASON_cb.SelectedIndexChanged If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : SEASON_cb.Enabled = False : CUST_cb.Enabled = False : End If End Sub Private Sub CUST_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CUST_cb.SelectedIndexChanged If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : SEASON_cb.Enabled = False : CUST_cb.Enabled = False : End If End Sub Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : MsgBox("季節或客戶沒有選擇!!!") : Else Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單() 資料數 = 進度表_dgv.Rows.Count * 6 : 導入A類料() : 導入B類料() : 導入C類料() : 導入D類料() : 導入E類料() : 導入F類料() : Set_grid0() WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End If End Sub Private Sub 清除_bt_Click(sender As Object, e As EventArgs) Handles 清除_bt.Click SEASON_cb.Enabled = True : CUST_cb.Enabled = True : ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click GroupBox1.Visible = False End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 查看歷史進度表資料_bt.Click Set_清單8() GroupBox1.Visible = True End Sub Private Sub 圖片導入2() SQL_圖片2() PictureBox2.Image = Nothing While dr.Read() = True Dim bytes As Byte() = New Byte(-1) {} bytes = DirectCast(dr.Item("圖片"), Byte()) Dim oStream As New MemoryStream(bytes) PictureBox2.Image = Bitmap.FromStream(oStream) End While conn.Close() PictureBox2.SizeMode = 4 End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click xlApp = CType(CreateObject("Excel.Application"), Application) xlBook = xlApp.Workbooks.Add xlApp.DisplayAlerts = True xlBook.Activate() xlSheet = NewMethod(xlBook) xlSheet.Activate() xlApp.Visible = True xlApp.Application.WindowState = xlMaximized FFGG = 進度表_dgv.Rows.Count + 3 AA(xlApp, xlSheet) xlSheet.Cells(1, 1) = CUST_cb.Text & " - " & SEASON_cb.Text & " - " & 樣品進度表分類2 & " - " & "SAMPLE SCHEDULE" xlSheet.Cells(3, 1) = "No." xlSheet.Cells(3, 2) = "工廠" xlSheet.Cells(3, 3) = "Picture " xlSheet.Cells(3, 4) = "STYLE" xlSheet.Cells(3, 5) = "C_No" xlSheet.Cells(3, 6) = "Color" xlSheet.Cells(3, 7) = "SIZE" xlSheet.Cells(3, 8) = "UPPER_____A." xlSheet.Cells(3, 9) = "LINING_____B." xlSheet.Cells(3, 10) = "STITCHING_____F." xlSheet.Cells(3, 11) = "ACCESSORIES_____C." xlSheet.Cells(3, 12) = "SOCK LINING_____D." xlSheet.Cells(3, 13) = "BOTTOM_____E." xlSheet.Cells(3, 14) = "Double" xlSheet.Cells(3, 15) = "ETD" xlSheet.Cells(3, 16) = "Remark" xlSheet.Cells(3, 17) = "Express number" Dim VVBB As String = "0" For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 N3 = i + 4 SSDD = 進度表_dgv.Rows(i).Cells("型體號碼").Value If VVBB <> SSDD Then 圖片導入2() : N6 = 1 For ii As Integer = 0 To 20 If PictureBox2.Image Is Nothing Then Thread.Sleep(100) '延迟0.1秒 Else BB(xlApp, xlSheet) ii = 20 End If Next ii End If VVBB = SSDD xlSheet.Cells(i + 4, 1) = 進度表_dgv.Rows(i).Cells("序號").Value xlSheet.Cells(i + 4, 2) = 進度表_dgv.Rows(i).Cells("工廠").Value xlSheet.Cells(i + 4, 4) = 進度表_dgv.Rows(i).Cells("STYLE").Value xlSheet.Cells(i + 4, 5) = N6 xlSheet.Cells(i + 4, 6) = 進度表_dgv.Rows(i).Cells("顏色").Value xlSheet.Cells(i + 4, 7) = 進度表_dgv.Rows(i).Cells("SIZE").Value xlSheet.Cells(i + 4, 8) = 進度表_dgv.Rows(i).Cells("UPPER").Value xlSheet.Cells(i + 4, 9) = 進度表_dgv.Rows(i).Cells("LINING").Value xlSheet.Cells(i + 4, 10) = 進度表_dgv.Rows(i).Cells("OTHER").Value xlSheet.Cells(i + 4, 11) = 進度表_dgv.Rows(i).Cells("BUCKLE").Value xlSheet.Cells(i + 4, 12) = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value xlSheet.Cells(i + 4, 13) = 進度表_dgv.Rows(i).Cells("BOTTOM").Value xlSheet.Cells(i + 4, 14) = 進度表_dgv.Rows(i).Cells("數量").Value xlSheet.Cells(i + 4, 15) = 進度表_dgv.Rows(i).Cells("ETA").Value N6 += 1 Next i CC(xlApp, xlSheet) xlSheet.PageSetup.PrintArea = "" xlApp.Cells.Select() xlSheet.Range("B1").Select() xlApp.Application.WindowState = xlMinimized MsgBox("列印完成") End Sub Private Shared Function NewMethod(xlBook As Workbook) As Worksheet Return CType(xlBook.Worksheets.Add, Worksheet) End Function Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet) xlSheet.Cells.Select() With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With xlSheet.Rows("4:" & FFGG).Select With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 8 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With myExcel.Selection.RowHeight = 90 With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 3 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 10 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 16 xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 4 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 5 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 33 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 33 xlSheet.Columns("J:J").Select : myExcel.Selection.ColumnWidth = 33 : xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 33 xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 33 : xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 33 xlSheet.Columns("N:N").Select : myExcel.Selection.ColumnWidth = 6 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("O:O").Select : myExcel.Selection.ColumnWidth = 8 With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : End With xlSheet.Columns("P:P").Select : myExcel.Selection.ColumnWidth = 16 xlSheet.Columns("Q:Q").Select : myExcel.Selection.ColumnWidth = 15 xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 5 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 35 With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 8 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With End Sub Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet) Clipboard.SetDataObject(PictureBox2.Image) xlSheet.Cells(1, 1).Select Thread.Sleep(100) '延迟0.1秒 xlSheet.Range("C" & N3).Select() myExcel.ActiveSheet.Paste If PictureBox2.Image.Height < PictureBox2.Image.Width Then myExcel.Selection.ShapeRange.Width = 45 Else myExcel.Selection.ShapeRange.Height = 40 End If myExcel.Selection.ShapeRange.IncrementLeft(2) myExcel.Selection.ShapeRange.IncrementTop(2) End Sub Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet) xlSheet.Range("A3:Q3").Select() myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlThin : End With myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone N4 = 0 : N5 = 0 Dim ZZXX As Boolean = False : Dim XXCC As Boolean = False For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 If i = 進度表_dgv.Rows.Count - 1 Then xlSheet.Range("A" & N4 + 3 & ":Q" & N5 + 4).Select() myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With Exit For ElseIf (進度表_dgv.Rows(i).Cells("序號").Value = 進度表_dgv.Rows(i + 1).Cells("序號").Value) And i < 進度表_dgv.Rows.Count Then If ZZXX = False Then N4 = i + 1 : ZZXX = True End If N5 = i + 1 ElseIf (進度表_dgv.Rows(i).Cells("序號").Value <> 進度表_dgv.Rows(i + 1).Cells("序號").Value) And i < 進度表_dgv.Rows.Count Then If XXCC = False Then xlSheet.Range("A" & N4 + 3 & ":Q" & N5 + 4).Select() : XXCC = True Else xlSheet.Range("A" & N4 + 4 & ":Q" & N5 + 4).Select() End If myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = xlAutomatic : .TintAndShade = 0 : .Weight = xlHairline : End With ZZXX = False If ZZXX = False Then N4 = i + 1 : ZZXX = True End If N5 = i + 1 End If Next myExcel.ActiveWindow.Zoom = 80 xlSheet.Columns("B:B").Select : xlSheet.Range("B2").Activate() : myExcel.Selection.Delete xlSheet.Columns("H:L").Select : xlSheet.Range("H2").Activate() : myExcel.Selection.Delete xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 100 xlSheet.Rows("4:" & 進度表_dgv.Rows.Count + 3).EntireRow.AutoFit xlSheet.Range("A1:K1").Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With myExcel.Selection.Merge With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With ZZXX = False : XXCC = False myExcel.Application.PrintCommunication = False With myExcel.ActiveSheet.PageSetup .PrintTitleRows = "$1:$3" .PrintTitleColumns = "" End With myExcel.Application.PrintCommunication = True myExcel.ActiveSheet.PageSetup.PrintArea = "" myExcel.Application.PrintCommunication = False With myExcel.ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = myExcel.Application.InchesToPoints(0.25) .RightMargin = myExcel.Application.InchesToPoints(0.25) .TopMargin = myExcel.Application.InchesToPoints(0.75) .BottomMargin = myExcel.Application.InchesToPoints(0.75) .HeaderMargin = myExcel.Application.InchesToPoints(0.3) .FooterMargin = myExcel.Application.InchesToPoints(0.3) .PrintHeadings = False .PrintGridlines = False .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Draft = False .FirstPageNumber = xlAutomatic .BlackAndWhite = False .Zoom = 50 .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With myExcel.Application.PrintCommunication = True End Sub End Class