WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/07、樣品訂單管理系統/樣品進度表.vb

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
Public Class 樣品進度表
    Private ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
    Dim N1, N2, N3, N4, N5, N6, FFGG As Integer
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_清單1()
        版本_dgv.DataSource = Nothing : ds1.Clear()
        版本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        版本_dgv.ColumnHeadersHeight = 25
        版本_dgv.AllowUserToAddRows = False
        SQL_樣品訂單控制表1()
        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
    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_樣品訂單控制表3()
        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
    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_樣品訂單控制表4()
        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
    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_樣品訂單控制表5()
        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
    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_樣品訂單控制表6()
        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
    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_樣品訂單控制表7()
        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
    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(4).Visible = False : 進度表_dgv.Columns(5).FillWeight = 95 : 進度表_dgv.Columns(6).FillWeight = 80 : 進度表_dgv.Columns(7).Visible = False
        進度表_dgv.Columns(8).FillWeight = 80 : 進度表_dgv.Columns(9).FillWeight = 95 : 進度表_dgv.Columns(10).FillWeight = 40 : 進度表_dgv.Columns(11).FillWeight = 40
        進度表_dgv.Columns(12).Visible = False : 進度表_dgv.Columns(13).Visible = False : 進度表_dgv.Columns(14).FillWeight = 230 : 進度表_dgv.Columns(15).FillWeight = 230
        進度表_dgv.Columns(16).FillWeight = 190 : 進度表_dgv.Columns(17).FillWeight = 200 : 進度表_dgv.Columns(18).FillWeight = 200 : 進度表_dgv.Columns(19).FillWeight = 130
        進度表_dgv.Columns(20).FillWeight = 60

        進度表_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
            進度表_dgv.Rows(i).Cells("選擇").Value = False
        Next
        If 進度表_dgv.Rows.Count = 0 Then
        Else
            Dim mycol As DataGridViewImageColumn = 進度表_dgv.Columns("圖片")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        End If
    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
            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
    End Sub
    Private Sub 導入B類料()
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1
            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
    End Sub
    Private Sub 導入C類料()
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1
            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
    End Sub
    Private Sub 導入D類料()
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1
            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
    End Sub
    Private Sub 導入E類料()
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1
            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
    End Sub
    Private Sub 導入F類料()
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1
            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
    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 樣品進度表DEVELOPMENT_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 : Panel1.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 關閉_bt_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click
        Panel1.Visible = False
    End Sub
    Private Sub 查看歷史進度表資料_bt_Click(sender As Object, e As EventArgs) Handles 查看歷史進度表資料_bt.Click
        Set_清單8() : Panel1.Visible = True
    End Sub
    Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 : 進度表_dgv.Rows(i).Cells("選擇").Value = False : Next
        全部列印自動框線_cb.Checked = False
    End Sub
    Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click
        For i As Integer = 0 To 進度表_dgv.Rows.Count - 1 : 進度表_dgv.Rows(i).Cells("選擇").Value = True : Next
        全部列印自動框線_cb.Checked = True
    End Sub
    Private Sub 圖片導入2()
        SQL_圖片導入2()
        PictureBox2.Image = Nothing
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox2.Image = Bitmap.FromStream(oStream)

            '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
        Dim 判斷 As Boolean = False
        For I As Integer = 0 To 進度表_dgv.Rows.Count - 1
            If 進度表_dgv.Rows(I).Cells("選擇").Value = True Then
                判斷 = True : Exit For
            End If
        Next
        If 判斷 = False Then
            MsgBox("最少要勾選一筆資料!!!")
        Else
            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 & " - " & 樣品進度表分類1 & " - " & "SAMPLE SCHEDULE"
            xlSheet.Cells(3, 1) = "No." : xlSheet.Cells(3, 2) = "工廠" : xlSheet.Cells(3, 3) = "圖片" : xlSheet.Cells(3, 4) = "STYLE" : xlSheet.Cells(3, 5) = "C_No" : xlSheet.Cells(3, 6) = "顏色"
            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) = "數量"
            xlSheet.Cells(3, 15) = "ETD" : xlSheet.Cells(3, 16) = "備註"
            Dim VVBB As String = "0" : Dim FF As Integer = 0
            For i As Integer = 0 To 進度表_dgv.Rows.Count - 1
                SSDD = 進度表_dgv.Rows(i).Cells("型體號碼").Value
                If 進度表_dgv.Rows(i).Cells("選擇").Value = True Then
                    N3 = FF + 4
                    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(FF + 4, 1) = 進度表_dgv.Rows(i).Cells("序號").Value : xlSheet.Cells(FF + 4, 2) = 進度表_dgv.Rows(i).Cells("工廠").Value
                    xlSheet.Cells(FF + 4, 4) = 進度表_dgv.Rows(i).Cells("STYLE").Value : xlSheet.Cells(FF + 4, 5) = N6
                    xlSheet.Cells(FF + 4, 6) = 進度表_dgv.Rows(i).Cells("顏色").Value : xlSheet.Cells(FF + 4, 7) = 進度表_dgv.Rows(i).Cells("SIZE").Value
                    xlSheet.Cells(FF + 4, 8) = 進度表_dgv.Rows(i).Cells("UPPER").Value : xlSheet.Cells(FF + 4, 9) = 進度表_dgv.Rows(i).Cells("LINING").Value
                    xlSheet.Cells(FF + 4, 10) = 進度表_dgv.Rows(i).Cells("OTHER").Value : xlSheet.Cells(FF + 4, 11) = 進度表_dgv.Rows(i).Cells("BUCKLE").Value
                    xlSheet.Cells(FF + 4, 12) = 進度表_dgv.Rows(i).Cells("SOCK LINING").Value : xlSheet.Cells(FF + 4, 13) = 進度表_dgv.Rows(i).Cells("BOTTOM").Value
                    xlSheet.Cells(FF + 4, 14) = 進度表_dgv.Rows(i).Cells("數量").Value : xlSheet.Cells(FF + 4, 15) = 進度表_dgv.Rows(i).Cells("ETA").Value
                    FF += 1
                End If
                N6 += 1
            Next i
            CC(xlApp, xlSheet)
            xlSheet.PageSetup.PrintArea = ""
            xlApp.Cells.Select()
            xlSheet.Range("B1").Select()
            xlApp.Application.WindowState = xlMinimized
            MsgBox("列印完成")
        End If
    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 = 135
        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 = 32 : xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 32
        xlSheet.Columns("J:J").Select : myExcel.Selection.ColumnWidth = 32 : xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 32
        xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 32 : xlSheet.Columns("M:M").Select : myExcel.Selection.ColumnWidth = 32
        xlSheet.Columns("N:N").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("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.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

        xlSheet.Range("A1:P1").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
    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 = 90
        Else
            myExcel.Selection.ShapeRange.Height = 85
        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:P3").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
        If 全部列印自動框線_cb.Checked = True Then
            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 & ":P" & 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 & ":P" & N5 + 4).Select() : XXCC = True
                    Else
                        xlSheet.Range("A" & N4 + 4 & ":P" & 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
            ZZXX = False : XXCC = False
        End If
        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
            .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)
            .FirstPageNumber = xlAutomatic
            .Zoom = 38
        End With
        myExcel.Application.PrintCommunication = True
    End Sub
End Class