WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/樣品訂單管理系統/樣品INVOICE.vb

Option Strict Off
Imports System.Data.SqlClient
Imports System.Text.RegularExpressions
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
Public Class 樣品INVOICE
    Dim conn As New SqlConnection
    Dim da As New SqlDataAdapter
    Dim cmd As New SqlCommand
    Dim ds As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet
    Dim dr As SqlDataReader
    Dim DTP As String : Dim GGHH As String : Dim DDFF As String
    Dim BBNN1 As Integer : Dim BBNN11 As String : Dim AAWW As String : Dim HHGG As String
    Dim RRTT As New Regex("[\u4e00-\u9fa5]")
    Dim KKOO As Double : Dim N1 As Integer
    Dim xlApp As Application
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Private Sub Set_DGV2載入前設定()
        DataGridView2.DataSource = Nothing : ds2.Clear()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False
        DataGridView2.RowTemplate.Height = 25
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV2載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : DataGridView2.DataSource = ds2.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_清單()
        Set_DGV2載入前設定()
        SQL1 = "SELECT 樣品訂單控制表.客戶, INVOICE樣品單.UPS, INVOICE樣品單.ATTN, INVOICE樣品單.CARTON, INVOICE樣品單.DATE
                FROM 樣品訂單控制表 INNER JOIN 樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次 RIGHT OUTER JOIN
                     INVOICE樣品單 ON 樣品訂單清單.流水號 = INVOICE樣品單.對應流水號
                WHERE INVOICE樣品單.狀態 LIKE N'" & 樣品進度表分類4 & "'
                GROUP BY 樣品訂單控制表.客戶, INVOICE樣品單.UPS, INVOICE樣品單.ATTN, INVOICE樣品單.CARTON, INVOICE樣品單.DATE
                ORDER BY   INVOICE樣品單.UPS DESC"
        Set_DGV2載入後設定()
    End Sub
    Private Sub Set_grid()
        DataGridView2.Columns(0).Width = 195 : DataGridView2.Columns(1).Width = 265 : DataGridView2.Columns(2).Width = 165 : DataGridView2.Columns(3).Width = 100 : DataGridView2.Columns(4).Width = 100
    End Sub
    Private Sub Set_DGV1載入前設定()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.RowTemplate.Height = 50
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV1載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid1()
    End Sub
    Private Sub Set_清單1()
        Set_DGV1載入前設定()
        SQL1 = "SELECT 樣品訂單控制表.客戶 AS Customer, 樣品訂單控制表.狀態 AS [Sample type], INVOICE樣品單.HTS_CODE AS [Hts Code], 樣品訂單控制表.型體號碼 AS [Styie Number], 
                       樣品訂單清單.顏色 AS Colorway, 樣品訂單清單.SO AS [Upper Material], 樣品訂單清單.SO AS [Outsole Material], INVOICE樣品單.G_S_F, INVOICE樣品單.PAIRS, 
                       INVOICE樣品單.UNIT AS [UNIT], INVOICE樣品單.PAIRS * INVOICE樣品單.UNIT AS [TTL], INVOICE樣品單.對應流水號
                FROM 樣品訂單控制表 INNER JOIN 樣品訂單清單 ON 樣品訂單控制表.SO = 樣品訂單清單.SO AND 樣品訂單控制表.版次 = 樣品訂單清單.版次 RIGHT OUTER JOIN INVOICE樣品單 ON 
                     樣品訂單清單.流水號 = INVOICE樣品單.對應流水號
                WHERE (INVOICE樣品單.UPS LIKE N'" & TextBox2.Text & "')
                ORDER BY   [Styie Number], Colorway"
        Set_DGV1載入後設定()
    End Sub
    Private Sub Set_grid1()
        DataGridView1.Columns(0).Width = 100 : DataGridView1.Columns(1).Width = 100 : DataGridView1.Columns(2).Width = 85 : DataGridView1.Columns(3).Width = 100 : DataGridView1.Columns(4).Width = 100
        DataGridView1.Columns(5).Width = 163 : DataGridView1.Columns(6).Width = 162 : DataGridView1.Columns(7).Width = 50 : DataGridView1.Columns(8).Width = 50 : DataGridView1.Columns(9).Width = 50
        DataGridView1.Columns(10).Width = 50 : DataGridView1.Columns(11).Visible = False
        DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0.0" : DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0.0" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0.0"
        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP (1) 材料名稱 FROM 樣品訂單部件表 
                    WHERE (流水號 LIKE N'" & DataGridView1.Rows(i).Cells("對應流水號").Value & "') AND (部件 LIKE 'A.%') AND (部件 LIKE '%面料A' OR 部件 LIKE '%面料')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
            If (dr.Read()) Then : DDFF = dr("材料名稱") : Else : DDFF = "" : End If : conn.Close()
            '--------------------------------------------------------------------------------------------
            BBNN1 = DDFF.Length.ToString()
            For II As Integer = 0 To BBNN1 - 1
                If II = 0 Then
                    AAWW = Strings.Left(DDFF, 1)
                    If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(DDFF, 1) : End If
                Else
                    AAWW = Strings.Mid(DDFF, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If
                End If
            Next : DataGridView1.Rows(i).Cells("Upper Material").Value = BBNN11
            '--------------------------------------------------------------------------------------------
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP (1) 材料名稱 FROM 樣品訂單部件表 
                    WHERE (流水號 LIKE N'" & DataGridView1.Rows(i).Cells("對應流水號").Value & "') AND (部件 LIKE N'E.OUTSOLE 大底')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
            If (dr.Read()) Then : DDFF = dr("材料名稱") : Else : DDFF = "" : End If : conn.Close()
            '--------------------------------------------------------------------------------------------
            BBNN1 = DDFF.Length.ToString()
            For II As Integer = 0 To BBNN1 - 1
                If II = 0 Then
                    AAWW = Strings.Left(DDFF, 1)
                    If RRTT.IsMatch(AAWW) Then : Else : BBNN11 = Strings.Left(DDFF, 1) : End If
                Else
                    AAWW = Strings.Mid(DDFF, II + 1, 1) : If RRTT.IsMatch(AAWW) Then : Else : HHGG = BBNN11 : BBNN11 = HHGG & AAWW : End If
                End If
            Next : DataGridView1.Rows(i).Cells("Outsole Material").Value = BBNN11
            '--------------------------------------------------------------------------------------------
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub Set_DGV3載入前設定()
        DataGridView3.DataSource = Nothing : ds3.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 25
        DataGridView3.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Private Sub Set_DGV3載入後設定()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : DataGridView3.DataSource = ds3.Tables(0) : conn.Close() : Set_grid4()
    End Sub
    Private Sub Set_清單3()
        Set_DGV3載入前設定()
        SQL1 = "SELECT 樣品訂單控制表.季節, 樣品訂單控制表.客戶, 樣品訂單控制表.SO, 樣品訂單控制表.版次, 樣品訂單控制表.型體號碼, 
                       樣品訂單控制表.型體名稱, 樣品訂單清單.顏色, 樣品訂單清單.數量, CONVERT(money, 樣品訂單清單.KEEP) AS KEEP, 
                       樣品訂單清單.寄出, 樣品訂單清單.流水號
                FROM 樣品訂單清單 LEFT OUTER JOIN 樣品訂單控制表 ON 樣品訂單清單.SO = 樣品訂單控制表.SO AND 樣品訂單清單.版次 = 樣品訂單控制表.版次
                WHERE (樣品訂單清單.數量 - CONVERT(money, 樣品訂單清單.KEEP) - 樣品訂單清單.寄出 > 0) AND (樣品訂單控制表.狀態 LIKE N'" & 樣品進度表分類4 & "')
                ORDER BY   樣品訂單控制表.型體號碼, 樣品訂單控制表.型體名稱, 樣品訂單清單.顏色"
        Set_DGV3載入後設定()
    End Sub
    Private Sub Set_grid4()
        DataGridView3.Columns(0).Width = 85 : DataGridView3.Columns(1).Width = 140 : DataGridView3.Columns(2).Width = 60 : DataGridView3.Columns(3).Width = 40 : DataGridView3.Columns(4).Width = 120
        DataGridView3.Columns(5).Width = 140 : DataGridView3.Columns(6).Width = 120 : DataGridView3.Columns(7).Width = 40 : DataGridView3.Columns(8).Width = 40 : DataGridView3.Columns(9).Width = 40
        DataGridView3.Columns(10).Visible = False
        DataGridView3.Columns(7).DefaultCellStyle.Format = "#,##0.0" : DataGridView3.Columns(8).DefaultCellStyle.Format = "#,##0.0" : DataGridView3.Columns(9).DefaultCellStyle.Format = "#,##0.0"
        DataGridView3.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView3.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView3.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView3.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        conn.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT  ATTN FROM INVOICE用客戶資料 ORDER BY ATTN"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("ATTN")) : End While : conn.Close()
    End Sub
    Private Sub 樣品INVOICE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "UPDATE 樣品訂單清單 SET KEEP = N'0' WHERE (KEEP LIKE N'')"
        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "UPDATE 樣品訂單清單 SET 寄出 = N'0' WHERE (寄出 IS NULL)"
        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
        ComboBox1下拉表單資料載入()
        Set_清單3() : Set_清單()
        ComboBox3.Text = "NA" : ComboBox2.Text = "NA" : ComboBox4.Text = "NA"
        Button8.Enabled = False : Button2.Enabled = False : Button6.Enabled = False : Button15.Enabled = False : Button4.Enabled = False
        Button3.Enabled = False : TextBox4.Enabled = False : TextBox3.Enabled = False
        DataGridView2.Visible = True : DataGridView3.Visible = False
    End Sub
    Private Sub 樣品INVOICE_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        If Button8.Enabled = True Then
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "DELETE FROM INVOICE樣品單 WHERE (UPS = N'" & TextBox2.Text & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
        End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("對應流水號").Value : TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("PAIRS").Value
        End If
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox2.Text = DataGridView2.Rows(e.RowIndex).Cells("UPS").Value
            ComboBox1.Text = DataGridView2.Rows(e.RowIndex).Cells("ATTN").Value
            ComboBox2.Text = DataGridView2.Rows(e.RowIndex).Cells("CARTON").Value
            TextBox6.Text = DataGridView2.Rows(e.RowIndex).Cells("DATE").Value
            Set_清單1()
        End If
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox3.Text = DataGridView3.Rows(e.RowIndex).Cells("流水號").Value
            TextBox4.Text = DataGridView3.Rows(e.RowIndex).Cells("數量").Value - DataGridView3.Rows(e.RowIndex).Cells("KEEP").Value - DataGridView3.Rows(e.RowIndex).Cells("寄出").Value
            TextBox4.Text = Strings.Format(Val(TextBox4.Text), "#,##0.0")
        End If
    End Sub
    Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView3.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = DataGridView3.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView3(4, e.RowIndex).Value.ToString <> DataGridView3(4, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView3.RowHeadersVisible, DataGridView3.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView3.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView3.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        If TextBox5.Text = "" Then
            TextBox5.Text = "0"
        Else
        End If
    End Sub
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        清單修改2.Close() : INVOICE用客戶資料 = True : 清單修改2.ShowDialog() : ComboBox1下拉表單資料載入() : INVOICE用客戶資料 = False
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        conn.Close()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT  TEL FROM INVOICE用客戶資料 WHERE ATTN LIKE N'" & ComboBox1.Text & "' ORDER BY ATTN"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        If (dr.Read()) Then : TextBox1.Text = dr("TEL") : End If : conn.Close()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "NA" Then
            MsgBox("資料不齊全，請檢查UPS號、ATTN、CARTON等位置不可空白或NA")
        Else
            Button1.Enabled = False : TextBox2.Enabled = False : Button6.Enabled = True : Button15.Enabled = True
            Button18.Enabled = False : ComboBox1.Enabled = False : ComboBox2.Enabled = False : DataGridView2.Visible = False : DataGridView3.Visible = True
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT TOP(1) UPS FROM INVOICE樣品單 WHERE UPS LIKE N'" & TextBox2.Text & "'  ORDER BY ATTN"
            cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
            If (dr.Read()) Then
                Button2.Enabled = True : conn.Close()
                Button6.Visible = False : Button15.Visible = False : Button6.Enabled = False : Button15.Enabled = False
                Button4.Visible = True : Button3.Visible = True : Button4.Enabled = True : Button3.Enabled = True
            Else
                Button8.Enabled = True : conn.Close()
                Button6.Visible = True : Button15.Visible = True : Button6.Enabled = True : Button15.Enabled = True
                Button4.Visible = False : Button3.Visible = False : Button4.Enabled = False : Button3.Enabled = False
                DataGridView1.DataSource = Nothing : ds.Clear()
            End If
            Set_清單3()
        End If
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Button1.Enabled = True : Button8.Enabled = False : TextBox2.Enabled = True : Button6.Enabled = False : Button15.Enabled = False : Button4.Enabled = False : Button3.Enabled = False
        Button18.Enabled = True : ComboBox1.Enabled = True : ComboBox2.Enabled = True : DataGridView2.Visible = True : DataGridView3.Visible = False

        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT 寄出 FROM 樣品訂單清單 WHERE 流水號 LIKE N'" & DataGridView1.Rows(i).Cells("對應流水號").Value & "'"
            cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
            If (dr.Read()) Then
                KKOO = dr("寄出")
            End If : conn.Close()
            KKOO = KKOO + DataGridView1.Rows(i).Cells("PAIRS").Value

            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "UPDATE 樣品訂單清單 SET  寄出 = N'" & KKOO & "' WHERE (流水號 LIKE N'" & DataGridView1.Rows(i).Cells("對應流水號").Value & "')"
            cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
        Next : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

        Set_清單()
        TextBox2.Text = "" : ComboBox1下拉表單資料載入() : ComboBox3.Text = "NA" : ComboBox2.Text = "NA" : ComboBox4.Text = "NA" : DataGridView1.DataSource = Nothing : ds.Clear()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button1.Enabled = True : Button2.Enabled = False : TextBox2.Enabled = True : Button6.Enabled = False : Button15.Enabled = False : Button4.Enabled = False : Button3.Enabled = False
        Button18.Enabled = True : ComboBox1.Enabled = True : ComboBox2.Enabled = True : DataGridView2.Visible = True : DataGridView3.Visible = False
        Set_清單()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Strings.Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox3.Text = "NA" Then
            MsgBox("材質不可為NA")
        ElseIf ComboBox4.Text = "NA" Then
            MsgBox("size不可為NA")
        Else
            If Val(TextBox4.Text) < Val(TextBox5.Text) Then
                MsgBox("寄出數不可大於可寄數，哪來的鞋子?")
            ElseIf Val(TextBox5.Text) = 0 Then
                MsgBox("寄出數不可為零，快遞公司無法寄幽靈?")
            Else
                Set_日期格式轉換()
                conn.Close()
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "SELECT  UPS FROM INVOICE樣品單 WHERE UPS LIKE N'" & TextBox2.Text & "' AND 對應流水號 LIKE N'" & TextBox3.Text & "' ORDER BY ATTN"
                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
                If (dr.Read()) Then
                    MsgBox("本單號中已有新增過該資料，如有錯誤請刪除後從新添加。")
                    conn.Close()
                Else
                    If ComboBox3.Text = "皮" Then : GGHH = "6403990090" : ElseIf ComboBox3.Text = "PU" Then : GGHH = "6402992900" : ElseIf ComboBox3.Text = "布" Then : GGHH = "6404199000" : End If
                    conn.Close() : dr.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "INSERT INTO INVOICE樣品單 (UPS, ATTN, DATE, CARTON, G_S_F, PAIRS, UNIT, 對應流水號, HTS_CODE, 狀態) 
                            VALUES (N'" & TextBox2.Text & "', N'" & ComboBox1.Text & "', N'" & DTP & "', N'" & ComboBox2.Text & "', N'" & ComboBox4.Text &
                                "', N'" & TextBox5.Text & "', N'2', N'" & TextBox3.Text & "', N'" & GGHH & "', N'" & 樣品進度表分類4 & "')"
                    cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                    Set_清單1()
                End If
            End If
        End If
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        If TextBox3.Text = "" Then
            MsgBox("沒有選擇要刪除的資料")
        Else
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "DELETE FROM INVOICE樣品單 WHERE (UPS = N'" & TextBox2.Text & "') AND (對應流水號 = N'" & TextBox3.Text & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
            Set_清單1()
        End If
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If ComboBox3.Text = "NA" Then
            MsgBox("材質不可為NA")
        ElseIf ComboBox4.Text = "NA" Then
            MsgBox("size不可為NA")
        Else
            If Val(TextBox4.Text) < Val(TextBox5.Text) Then
                MsgBox("寄出數不可大於可寄數，哪來的鞋子?")
            ElseIf Val(TextBox5.Text) = 0 Then
                MsgBox("寄出數不可為零，快遞公司無法寄幽靈?")
            Else
                Set_日期格式轉換()
                conn.Close()
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "SELECT  UPS FROM INVOICE樣品單 WHERE UPS LIKE N'" & TextBox2.Text & "' AND 對應流水號 LIKE N'" & TextBox3.Text & "' ORDER BY ATTN"
                cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
                If (dr.Read()) Then
                    MsgBox("本單號中已有新增過該資料，如有錯誤請刪除後從新添加。")
                    conn.Close()
                Else
                    conn.Close()
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "SELECT 寄出 FROM 樣品訂單清單 WHERE 流水號 LIKE N'" & TextBox3.Text & "'"
                    cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
                    If (dr.Read()) Then
                        KKOO = dr("寄出")
                    End If : conn.Close()
                    KKOO = KKOO + Val(TextBox5.Text)
                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "UPDATE 樣品訂單清單 SET  寄出 = N'" & KKOO & "' WHERE (流水號 LIKE N'" & TextBox3.Text & "')"
                    cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                    Set_清單3()

                    If ComboBox3.Text = "皮" Then : GGHH = "6403990090" : ElseIf ComboBox3.Text = "PU" Then : GGHH = "6402992900" : ElseIf ComboBox3.Text = "布" Then : GGHH = "6404199000" : End If
                    conn.Close() : dr.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                    SQL1 = "INSERT INTO INVOICE樣品單 (UPS, ATTN, DATE, CARTON, G_S_F, PAIRS, UNIT, 對應流水號, HTS_CODE, 狀態) 
                            VALUES (N'" & TextBox2.Text & "', N'" & ComboBox1.Text & "', N'" & DTP & "', N'" & ComboBox2.Text & "', N'" & ComboBox4.Text &
                                "', N'" & TextBox5.Text & "', N'2', N'" & TextBox3.Text & "', N'" & GGHH & "', N'" & 樣品進度表分類4 & "')"
                    cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                    Set_清單1()
                End If
            End If
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If TextBox3.Text = "" Then
            MsgBox("沒有選擇要刪除的資料")
        Else
            conn.Close()
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "SELECT 寄出 FROM 樣品訂單清單 WHERE 流水號 LIKE N'" & TextBox3.Text & "'"
            cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
            If (dr.Read()) Then
                KKOO = dr("寄出")
            End If : conn.Close()
            KKOO = KKOO - Val(TextBox5.Text)
            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "UPDATE 樣品訂單清單 SET  寄出 = N'" & KKOO & "' WHERE (流水號 LIKE N'" & TextBox3.Text & "')"
            cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
            Set_清單3()

            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "DELETE FROM INVOICE樣品單 WHERE (UPS = N'" & TextBox2.Text & "') AND (對應流水號 = N'" & TextBox3.Text & "')"
            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader : conn.Close()
            Set_清單1()
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        xlApp = CType(CreateObject("Excel.Application"), Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlBook.Activate()
        xlSheet = NewMethod(xlBook)
        xlSheet.Activate()
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized

        xlSheet.Cells(1, 1) = "SHIP TO :" : xlSheet.Cells(1, 2) = "Me Too LLC" : xlSheet.Cells(2, 2) = "49, West 37th street-2nd FL." : xlSheet.Cells(3, 2) = "New York, NY 10018" : xlSheet.Cells(4, 2) = "USA"
        xlSheet.Cells(1, 6) = "FROM :" : xlSheet.Cells(1, 7) = "DONGGUAN SEN KANG FOOTWEAR CO.,LTD" : xlSheet.Cells(2, 7) = "HuJing Road, Jiao yuan village," : xlSheet.Cells(3, 7) = "He Tian Managemet District.HouJie Town, "
        xlSheet.Cells(4, 7) = "Dongguan City Guangdong, CN 523945" : xlSheet.Cells(5, 7) = "China"

        xlSheet.Cells(6, 1) = "ATTN : " : xlSheet.Cells(6, 2) = ComboBox1.Text : xlSheet.Cells(7, 1) = "TEL : " : xlSheet.Cells(7, 2) = TextBox1.Text : xlSheet.Cells(8, 1) = "FAX : "
        xlSheet.Cells(9, 1) = "DATE : " : xlSheet.Cells(9, 2) = TextBox6.Text : xlSheet.Cells(7, 6) = "TEL : " : xlSheet.Cells(7, 7) = "0769-38937740"

        xlSheet.Cells(10, 1) = "INVOICE" : xlSheet.Cells(11, 1) = "Carton# : " & ComboBox2.Text
        xlSheet.Cells(12, 1) = "Customer" : xlSheet.Cells(12, 2) = "Sample type" : xlSheet.Cells(12, 3) = "HTS CODE" : xlSheet.Cells(12, 4) = "Style Name" : xlSheet.Cells(12, 5) = "Colorway"
        xlSheet.Cells(12, 6) = "Upper Material" : xlSheet.Cells(12, 7) = "Outsole Material" : xlSheet.Cells(12, 8) = "Gender/Size/Foot" : xlSheet.Cells(12, 9) = "Pairs" : xlSheet.Cells(12, 10) = "UNIT(US$)"
        xlSheet.Cells(12, 11) = "TTL(US$)"

        N1 = 0
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            xlSheet.Cells(i + 13, 1) = DataGridView1.Rows(i).Cells("Customer").Value
            xlSheet.Cells(i + 13, 2) = DataGridView1.Rows(i).Cells("Sample type").Value
            xlSheet.Cells(i + 13, 3) = DataGridView1.Rows(i).Cells("Hts Code").Value
            xlSheet.Cells(i + 13, 4) = DataGridView1.Rows(i).Cells("Styie Number").Value
            xlSheet.Cells(i + 13, 5) = DataGridView1.Rows(i).Cells("Colorway").Value
            xlSheet.Cells(i + 13, 6) = DataGridView1.Rows(i).Cells("Upper Material").Value
            xlSheet.Cells(i + 13, 7) = DataGridView1.Rows(i).Cells("Outsole Material").Value
            xlSheet.Cells(i + 13, 8) = DataGridView1.Rows(i).Cells("G_S_F").Value
            xlSheet.Cells(i + 13, 9) = DataGridView1.Rows(i).Cells("PAIRS").Value
            xlSheet.Cells(i + 13, 10) = DataGridView1.Rows(i).Cells("UNIT").Value
            xlSheet.Cells(i + 13, 11) = DataGridView1.Rows(i).Cells("TTL").Value
            N1 = i
        Next

        xlSheet.Cells(N1 + 15, 8) = "TOTAL" : xlSheet.Cells(N1 + 15, 9) = "=SUM(I13:I" & N1 + 14 & ")" : xlSheet.Cells(N1 + 15, 11) = "=SUM(K13:K" & N1 + 14 & ")"
        xlSheet.Cells(N1 + 16, 1) = "Samples are marked or mutilated and classified HTS 6403990090&6402992900& 6404199000 per ruling letter N247780 attached"
        xlSheet.Cells(N1 + 17, 1) = "VALUE FOR CUSTOMS PURPOSES ONLY"
        xlSheet.Cells(N1 + 18, 1) = "UPS " & TextBox2.Text
        xlSheet.Cells(N1 + 19, 1) = "MADE IN CHINA  SAMPLE NOT FOR RESALE"
        xlSheet.Cells(N1 + 20, 1) = "SIGNATURE : " & gUserName

        AA(xlApp, xlSheet)

        xlSheet.PageSetup.PrintArea = ""
        xlApp.Cells.Select()
        xlSheet.Range("B1").Select()
        xlApp.Application.WindowState = xlMinimized
        MsgBox("列印完成")
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Range("A1:A9").Select()
        myExcel.Selection.Font.Bold = True
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With
        xlSheet.Range("F1:F9").Select()
        myExcel.Selection.Font.Bold = True
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Rows("1:9").Select : myExcel.Selection.RowHeight = 20 : xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 25
        xlSheet.Rows("11:11").Select : myExcel.Selection.RowHeight = 30 : xlSheet.Rows("12:12").Select : myExcel.Selection.RowHeight = 25
        xlSheet.Rows("13:" & N1 + 15).Select : myExcel.Selection.RowHeight = 30
        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 = 20
        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 13
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("F:G").Select : myExcel.Selection.ColumnWidth = 20
        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("I:K").Select : myExcel.Selection.ColumnWidth = 8
        xlSheet.Rows("12:" & N1 + 15).Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Rows(13 + N1 + 3 & ":" & 13 + N1 + 7).Select : myExcel.Selection.RowHeight = 25 : myExcel.Selection.Font.Bold = True

        xlSheet.Rows("10:11").Select : myExcel.Selection.Font.Bold = True
        xlSheet.Range("A10:K10").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 = 20 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Range("A11:K11").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 = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With


        xlSheet.Range("A" & 13 + N1 + 3 & ":K" & 13 + N1 + 3).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
        xlSheet.Range("A" & 13 + N1 + 4 & ":K" & 13 + N1 + 4).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
        xlSheet.Range("A" & 13 + N1 + 5 & ":K" & 13 + N1 + 5).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
        xlSheet.Range("A" & 13 + N1 + 6 & ":K" & 13 + N1 + 6).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
        xlSheet.Range("A" & 13 + N1 + 7 & ":K" & 13 + N1 + 7).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


        xlSheet.Range("A10:K10").Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A12:K" & 13 + N1 + 2).Select()
        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

        myExcel.ActiveWindow.DisplayGridlines = False

        myExcel.Application.CutCopyMode = False
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$12"
            .PrintTitleColumns = ""
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintQuality = 600
            .CenterHorizontally = False
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        DataGridView2.Visible = True : DataGridView3.Visible = False
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        DataGridView2.Visible = False : DataGridView3.Visible = True
    End Sub
End Class