GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/03、倉儲管理系統/倉儲控制表.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
Public Class 倉儲控制表
    ReadOnly ds12 As New DataSet : Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Dim KKKK As String : Dim 物料規格 As String : Dim 比例 As Integer : ReadOnly 對話框(3) As String : Dim N1 As Integer
    Private Sub Set_清單()
        Dim ds As New DataSet : 控制表_dgv.DataSource = Nothing : ds.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25
        控制表_dgv.AllowUserToAddRows = False
        If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then
            控制表_dgv.RowTemplate.Height = 75
        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then
            控制表_dgv.RowTemplate.Height = 45
        ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then
            控制表_dgv.RowTemplate.Height = 25
        End If

        SQL_倉儲控制表_控制表()
        da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()

        控制表_dgv.Columns(0).FillWeight = 90 : 控制表_dgv.Columns(1).FillWeight = 85 : 控制表_dgv.Columns(2).FillWeight = 160 : 控制表_dgv.Columns(3).FillWeight = 170
        控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False : 控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(7).Visible = False
        控制表_dgv.Columns(8).Visible = False : 控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(10).Visible = False : 控制表_dgv.Columns(11).Visible = False
        控制表_dgv.Columns(12).FillWeight = 100 : 控制表_dgv.Columns(13).FillWeight = 60 : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False
        控制表_dgv.Columns(16).Visible = False : 控制表_dgv.Columns(17).FillWeight = 60 : 控制表_dgv.Columns(18).FillWeight = 60 : 控制表_dgv.Columns(19).FillWeight = 60
        控制表_dgv.Columns(20).Visible = False : 控制表_dgv.Columns(21).FillWeight = 45 : 控制表_dgv.Columns(22).FillWeight = 60 : 控制表_dgv.Columns(23).Visible = False
        控制表_dgv.Columns(24).Visible = False

        控制表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        控制表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0"
        控制表_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        控制表_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        跑馬燈_tb.Text = ""
        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            資料數 = 控制表_dgv.Rows.Count : MyModule1.進度條()
            '-------------------------庫存狀態數字計算----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then
                控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0"
            End If
            If 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then
                控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0"
            End If
            控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value
            '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value <= 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value / 100 * 70 Then
                跑馬燈_tb.Text = 跑馬燈_tb.Text & " " & 表頭(77) & " : " & 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value &
                                 "_" & 表頭(81) & " : " & String.Format(控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value, "#,##0") & "_" & 對話框(0) & "  ---"
            End If
            Timer1.Interval = 250 : Timer1.Enabled = True
            '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
            If i = 0 Then
                PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value
                SQL_規格庫抬頭讀取()
                If dr.Read() Then
                    AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                End If
                conn.Close()
            Else
                If 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
                    PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value
                    SQL_規格庫抬頭讀取()
                    If dr.Read() Then
                        AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
                    End If
                    conn.Close()
                End If
            End If
            Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
            If 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB03" Then
                If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
            ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB04" Then
                If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
            ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB05" Then
                If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
            ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB06" Then
                If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                    ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
            ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB07" Then
                If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                    ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                    ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If
            ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB08" Then
                If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
                    ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
                If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                    ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                    ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                    ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                    ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                    ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                    ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If
                If 控制表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                    ZA8 = AAA8 & "=" & 控制表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + " - " + ZA8 : End If : End If
            End If
            控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value = 物料規格
            '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
            If 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then
                控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / 400 * 100
            Else
                控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / (控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100
            End If
            If 控制表_dgv.Rows(i).Cells(表頭(81)).Value > 100 Then : 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 100 : End If
        Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        Set_進度條顯示()
        Dim myco2 As DataGridViewImageColumn = 控制表_dgv.Columns(25)
        myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
        If 低網速模式 = False Then
            控制表_dgv.Columns(26).Width = 60 : 控制表_dgv.Columns(26).Visible = True
            Dim mycol As DataGridViewImageColumn = 控制表_dgv.Columns("Image")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 控制表_dgv.Columns.Count = 27 Then
                控制表_dgv.Columns(26).Visible = False
            End If
        End If
    End Sub
    Private Sub Set_進度條顯示()
        Dim Col As New DataGridViewProgressColumn With {
            .Width = 30,
            .DataPropertyName = 表頭(82)
        }
        Col.HeaderText = 表頭(82) : Col.Name = "容量" : Col.DataPropertyName = 表頭(81)
        控制表_dgv.Columns.Insert(25, Col)
    End Sub
    Private Sub 指定倉庫_cb_下拉表單資料載入()
        SQL_指定倉庫_下拉表單() : 指定倉庫_cb.Items.Clear() : While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
    End Sub
    Private Sub 格式控制1()
        If Label2.Text = "A1" Then : Label2.Enabled = False : A1_tb.Enabled = False : Else : Label2.Enabled = True : A1_tb.Enabled = True : End If
        If Label3.Text = "A2" Then : Label3.Enabled = False : A2_tb.Enabled = False : Else : Label3.Enabled = True : A2_tb.Enabled = True : End If
        If Label4.Text = "A3" Then : Label4.Enabled = False : A3_tb.Enabled = False : Else : Label4.Enabled = True : A3_tb.Enabled = True : End If
        If Label5.Text = "A4" Then : Label5.Enabled = False : A4_tb.Enabled = False : Else : Label5.Enabled = True : A4_tb.Enabled = True : End If
        If Label6.Text = "A5" Then : Label6.Enabled = False : A5_tb.Enabled = False : Else : Label6.Enabled = True : A5_tb.Enabled = True : End If
        If Label7.Text = "A6" Then : Label7.Enabled = False : A6_tb.Enabled = False : Else : Label7.Enabled = True : A6_tb.Enabled = True : End If
        If Label8.Text = "A7" Then : Label8.Enabled = False : A7_tb.Enabled = False : Else : Label8.Enabled = True : A7_tb.Enabled = True : End If
        If Label9.Text = "A8" Then : Label9.Enabled = False : A8_tb.Enabled = False : Else : Label9.Enabled = True : A8_tb.Enabled = True : End If
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds12.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds12) : 語言_dgv.DataSource = ds12.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "倉儲控制表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "同級別全資料_ch" Then : 同級別全資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "指定倉庫_lb" Then : 指定倉庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "無庫存全資料_ch" Then : 無庫存全資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "規格_lb" Then : 規格_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "重新整理_tsm" Then : 重新整理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "列印_bt" Then : 列印_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_品名" Then : 表頭(12) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_規格" Then : 表頭(13) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_備註" Then : 表頭(14) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准人" Then : 表頭(21) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准日期" Then : 表頭(22) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_採購單號" Then : 表頭(24) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_選擇" Then : 表頭(44) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_入庫" Then : 表頭(45) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_出庫" Then : 表頭(46) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉儲單號" Then : 表頭(47) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_指定倉庫" Then : 表頭(48) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最低庫存" Then : 表頭(65) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_狀態" Then : 表頭(71) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉庫作業" Then : 表頭(72) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_作業日期" Then : 表頭(73) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_類別" Then : 表頭(76) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_料號" Then : 表頭(77) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_庫存" Then : 表頭(78) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_未入庫" Then : 表頭(79) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_未出庫" Then : 表頭(80) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_可領用" Then : 表頭(81) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_進度條" Then : 表頭(82) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 倉儲控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        分母 = 100 : 分段1 = 0.1 : 分段2 = 0.09 : 分段3 = 0.3 : 分段4 = 0.29 : 進度條後墜 = " %"
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(501) = True : 介面 = "H501" : 語言轉換讀取()

        SQL_清單欄位查詢()
        If Acdr.Read() Then
            小間距1_ch.Checked = Acdr("L_1_1") : 中間距1_ch.Checked = Acdr("L_2_1") : 大間距1_ch.Checked = Acdr("L_3_1")
        End If : Access1.Close()

        KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : PA10 = KKKK
        指定倉庫_cb_下拉表單資料載入()
        If 倉儲倉級2 = "1" Then : 指定倉庫_cb.SelectedIndex = 0 : End If
        格式控制1()
        MyModule1.清單字體大小調整()
        控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 倉儲控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 採購單詢價_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(501) = False : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H501" : 語言轉換讀取()
        Set_清單()
    End Sub
    Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String
        '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）---
        文字旋轉 = Mid(s & s & s, Len(s) - (v Mod Len(s)) + 1, Len(s))
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If 跑馬燈_tb.Text = "" Then
            Timer1.Enabled = False
        Else
            跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text, -1)
        End If
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    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(2, e.RowIndex).Value.ToString <> 控制表_dgv(2, 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 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            圖片檔1_pb.Image = Nothing : 圖片檔2_pb.Image = Nothing
            PA2 = 控制表_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()
            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)
                圖片檔1_pb.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close() : 圖片檔1_pb.SizeMode = 4

            PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("圖檔編號").Value : SQL_物料圖庫_圖檔讀取二()
            While dr.Read() = True
                Dim unused1 As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片檔2_pb.Image = Bitmap.FromStream(oStream)
            End While
            conn.Close() : 圖片檔2_pb.SizeMode = 4

            AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
            PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("規格庫抬頭指定").Value
            SQL_規格庫抬頭讀取()
            If dr.Read() Then
                AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
            End If
            conn.Close()

            If AAA1 = "" Then : Label2.Text = "A1" : Else : Label2.Text = AAA1 : End If : If AAA2 = "" Then : Label3.Text = "A2" : Else : Label3.Text = AAA2 : End If
            If AAA3 = "" Then : Label4.Text = "A3" : Else : Label4.Text = AAA3 : End If : If AAA4 = "" Then : Label5.Text = "A4" : Else : Label5.Text = AAA4 : End If
            If AAA5 = "" Then : Label6.Text = "A5" : Else : Label6.Text = AAA5 : End If : If AAA6 = "" Then : Label7.Text = "A6" : Else : Label7.Text = AAA6 : End If
            If AAA7 = "" Then : Label8.Text = "A7" : Else : Label8.Text = AAA7 : End If : If AAA8 = "" Then : Label9.Text = "A8" : Else : Label9.Text = AAA8 : End If

            A1_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A1").Value : A2_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A2").Value
            A3_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A3").Value : A4_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A4").Value
            A5_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A5").Value : A6_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A6").Value
            A7_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A7").Value : A8_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A8").Value
            品名_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("" & 表頭(12) & "").Value
            格式控制1()

            Dim ds1 As New DataSet : 明細表_dgv.DataSource = Nothing : ds1.Clear()
            明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            明細表_dgv.ColumnHeadersHeight = 40
            明細表_dgv.AllowUserToAddRows = False
            明細表_dgv.RowTemplate.Height = 35

            PA11 = 控制表_dgv.Rows(e.RowIndex).Cells("" & 表頭(77) & "").Value : SQL_倉儲控制表_明細()
            da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()

            明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 140 : 明細表_dgv.Columns(2).FillWeight = 120 : 明細表_dgv.Columns(3).Visible = False
            明細表_dgv.Columns(4).FillWeight = 80 : 明細表_dgv.Columns(5).FillWeight = 80 : 明細表_dgv.Columns(6).FillWeight = 200 : 明細表_dgv.Columns(7).FillWeight = 80
            明細表_dgv.Columns(8).FillWeight = 150 : 明細表_dgv.Columns(9).FillWeight = 120 : 明細表_dgv.Columns(10).FillWeight = 100 : 明細表_dgv.Columns(11).FillWeight = 120
            明細表_dgv.Columns(12).FillWeight = 100 : 明細表_dgv.Columns(13).FillWeight = 120 : 明細表_dgv.Columns(14).FillWeight = 100

            明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
            明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(0).Frozen = True : 明細表_dgv.Columns(1).Frozen = True : 明細表_dgv.Columns(2).Frozen = True : 明細表_dgv.Columns(3).Frozen = True
            明細表_dgv.Columns(4).Frozen = True : 明細表_dgv.Columns(5).Frozen = True
        End If
    End Sub
    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
        Set_清單()
    End Sub
    Private Sub 同級別全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 同級別全資料_ch.CheckedChanged
        Set_清單()
    End Sub
    Private Sub 無庫存全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 無庫存全資料_ch.CheckedChanged
        If 無庫存全資料_ch.Checked = True Then : KKKK = "" : Else : KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : End If : PA10 = KKKK
        Set_清單()
    End Sub
    Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
        小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_1() : Set_清單()
    End Sub
    Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_2() : Set_清單()
    End Sub
    Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
        小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyModule1.間距設定存檔_3() : Set_清單()
    End Sub
    Private Sub 圖片檔1_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔1_pb.Click
        If IsNothing(圖片檔1_pb.Image) = False Then
            圖片傳遞 = 圖片檔1_pb.Image : 圖片放大視窗.ShowDialog()
        End If
    End Sub
    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
        xlApp = CType(CreateObject("Excel.Application"), Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlBook.Activate()
        xlSheet = NewMethod(xlBook)
        xlSheet.Activate()
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized

        If 同級別全資料_ch.Checked = False Then
            xlSheet.Cells(2, 1) = 指定倉庫_cb.Text & " - " & 對話框(1)
        Else
            xlSheet.Cells(2, 1) = 倉儲倉級2 & " - " & 對話框(2)
        End If
        xlSheet.Cells(3, 1) = 表頭(48) : xlSheet.Cells(3, 2) = 表頭(76) : xlSheet.Cells(3, 3) = 表頭(12) : xlSheet.Cells(3, 4) = 表頭(13)
        xlSheet.Cells(3, 5) = 表頭(77) : xlSheet.Cells(3, 6) = 表頭(78) : xlSheet.Cells(3, 7) = 表頭(16)

        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            xlSheet.Cells(i + 4, 1) = 控制表_dgv.Rows(i).Cells("" & 表頭(48) & "").Value : xlSheet.Cells(i + 4, 2) = 控制表_dgv.Rows(i).Cells("" & 表頭(76) & "").Value
            xlSheet.Cells(i + 4, 3) = 控制表_dgv.Rows(i).Cells("" & 表頭(12) & "").Value : xlSheet.Cells(i + 4, 4) = 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value
            xlSheet.Cells(i + 4, 5) = 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : xlSheet.Cells(i + 4, 6) = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value
            xlSheet.Cells(i + 4, 7) = 控制表_dgv.Rows(i).Cells("" & 表頭(16) & "").Value
            N1 = i + 4
        Next
        AA(xlApp, xlSheet)

        xlSheet.PageSetup.PrintArea = ""
        xlApp.Cells.Select()
        xlSheet.Range("B1").Select()
        xlApp.Application.WindowState = xlMinimized
        xlSheet.Cells.Select()
        MsgBox(對話框(3))
    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.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 30
        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 30
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 40
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 60
        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 25
        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12
        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 12
        xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 30
        xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True
        xlSheet.Rows("3:3").Select : myExcel.Selection.AutoFilter

        xlSheet.Rows("4:" & N1).Select : myExcel.Selection.RowHeight = 35
        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 = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Columns("B:B").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Columns("E:G").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False : End With

        xlSheet.Range("A2").Select()
        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("A2:G2").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("A3:G" & N1).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

        xlSheet.Range("A3:G3").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 = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

        xlSheet.Range("A3:G3").Select()
        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
        Set_清單()
    End Sub
End Class