TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/訂單控制表.vb

Option Strict Off
Imports System.IO
Public Class 訂單控制表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
    Dim 訂單數量 As Double : Dim 單價 As Double : Dim 總金額 As Double : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    '-----------------------------------------0-----------------------1-------------------------2------------------3-----------------4----------------------5-------------------------6
    '                                訂單流水號,               年份季度,               客戶訂單號,            形體號,             顏色,                  楦型,                 訂單數量

    '-----------------------------------------7-----------------------8-------------------------9------------------10----------------11---------------------12------------------------13
    '                                  客戶交期,                   單價,                   總金額,              備註,         生產工廠,              訂單種類,             工廠回復交期

    '-----------------------------------------14----------------------15------------------------16-----------------17----------------18---------------------19------------------------20
    '                                   CFMSPEC,              CFMSAMPLE,                   TRIAL1,            TRIAL2,           TRIAL3,                TRIAL4,             包裝確認時間

    '-----------------------------------------21----------------------22------------------------23-----------------24----------------25---------------------26------------------------27
    '                                  貼標時間,               裁斷時間,                 針車時間,          成型時間,         驗貨時間,            實際離廠日,               資料流水號

    '-----------------------------------------28----------------------29------------------------30-----------------31----------------32---------------------33------------------------34
    '                                  明細建檔,                GOODBOX,                  LEATHER,          LEA_Note,         出貨數量,   PO_S_Date AS 接單日, Requested_XF AS 需求日期

    '-----------------------------------------35----------------------36------------------------37-----------------38----------------39---------------------40------------------------41
    '                    Confirm_XF AS 確認日期, Revised_XF AS 修訂日期, 工廠回復交期 AS 工廠交期, Special_Packaging,          Remarks,                出貨地,                      TVW

    '-----------------------------------------42----------------------43------------------------44-----------------45----------------46---------------------47-------------------------48
    '                                    楦頭號,                   材質,                 七號模具,      TRIAL1 AS T1,     TRIAL2 AS T2, 長期試穿 AS WEAR_TEST,         CFMSAMPLE AS CFM

    '-----------------------------------------49----------------------50------------------------51-----------------52----------------53---------------------54------------------------55
    '                              TRIAL3 AS T3,           TRIAL4 AS T4,          CFMSPEC AS TEST,              面料,             副料,                  中底,                     鞋墊

    '-----------------------------------------56----------------------57------------------------58-----------------59----------------60---------------------61------------------------62
    '                                      大底,                     跟,     包裝確認時間 AS 包裝,  裁斷時間 AS 裁斷, 針車時間 AS 針車,      成型時間 AS 成型,         驗貨時間 AS 驗貨

    '-----------------------------------------63----------------------64------------------------65-----------------66----------------67---------------------68------------------------69
    '                           工廠進度表備註1,        工廠進度表備註2,             客戶包裝確認,      東莞業務備註       驗貨報告圖片               工廠確認                  利威確認
    '-----------------------------------------70----------------------71------------------------72-----------------73----------------74---------------------75------------------------76
    '                                      結關日,               SMS簽回,                  FRS簽回      MASTER_SWATCH        力威訂單號              ProductID                       UoM
    Dim SQL字串1 As String
    Private ReadOnly SQL字串2 As String = " ORDER BY SUBSTRING(訂單流水號, 4, 6) DESC"
    Private ReadOnly DTP(14) As String : Dim PP1 As String = "" : Dim PP2 As String = "" : Dim ESTR As String : Dim GHJK As String
    Private ReadOnly BB(9) As Boolean
    Dim aa As MsgBoxResult
    Private Sub SQL宣告()
        SQL字串1 = "SELECT                訂單流水號,               年份季度,               力威訂單號,            形體號,             顏色,                  楦型,                 訂單數量, " &
                                           "客戶交期,                   單價,                   總金額,              備註,         生產工廠,              訂單種類,             工廠回復交期, " &
                                            "CFMSPEC,              CFMSAMPLE,                   TRIAL1,            TRIAL2,           TRIAL3,                TRIAL4,             包裝確認時間, " &
                                           "貼標時間,               裁斷時間,                 針車時間,          成型時間,         驗貨時間,            實際離廠日,               資料流水號, " &
                                           "明細建檔,                GOODBOX,                  LEATHER,          LEA_Note,         出貨數量,   PO_S_Date AS 接單日, Requested_XF AS 需求日期, " &
                             "Confirm_XF AS 確認日期, Revised_XF AS 修訂日期, 工廠回復交期 AS 工廠交期, Special_Packaging,          Remarks,                出貨地,                      TVW, " &
                                             "楦頭號,                   材質,                 七號模具,      TRIAL1 AS T1,     TRIAL2 AS T2, 長期試穿 AS WEAR_TEST,         CFMSAMPLE AS CFM, " &
                                       "TRIAL3 AS T3,           TRIAL4 AS T4,          CFMSPEC AS TEST,              面料,             副料,                  中底,                     鞋墊, " &
                                               "大底,                     跟,     包裝確認時間 AS 包裝,  裁斷時間 AS 裁斷, 針車時間 AS 針車,      成型時間 AS 成型,         驗貨時間 AS 驗貨, " &
                                    "工廠進度表備註1,        工廠進度表備註2,             客戶包裝確認,      東莞業務備註,     驗貨報告圖片,              工廠確認,                 利威確認, 
                                              結關日,                SMS簽回,                  FRS簽回,     MASTER_SWATCH,       客戶訂單號,             ProductID,                      UoM
                    FROM " & 訂單資料表(1) & ""
    End Sub
    Private Sub Set_控制表_dgv_插入勾選控件清單()
        Dim Col As New DataGridViewCheckBoxColumn With {
            .FillWeight = 40,
            .DataPropertyName = "選擇"
        }
        Col.HeaderText = "選擇" : Col.Name = "選擇"
        控制表_dgv.Columns.Insert(0, Col)
    End Sub
    Private Sub Set_grid()
        '--變動格攔框總和  685
        If 控制表_dgv.Columns.Count.ToString > 77 Then
            控制表_dgv.Columns.Remove("選擇")
        End If
        Set_控制表_dgv_插入勾選控件清單()
        控制表_dgv.Columns(0).FillWeight = 40 : 控制表_dgv.Columns(1).FillWeight = 120 : 控制表_dgv.Columns(2).FillWeight = 100 : 控制表_dgv.Columns(3).FillWeight = 150
        控制表_dgv.Columns(4).FillWeight = 200 : 控制表_dgv.Columns(5).FillWeight = 150 : 控制表_dgv.Columns(6).FillWeight = 100 : 控制表_dgv.Columns(7).FillWeight = 100

        控制表_dgv.Columns(9).FillWeight = 70 : 控制表_dgv.Columns(10).FillWeight = 100 : 控制表_dgv.Columns(11).FillWeight = 175 : 控制表_dgv.Columns(12).FillWeight = 80
        控制表_dgv.Columns(13).FillWeight = 100 : 控制表_dgv.Columns(14).FillWeight = 97 : 控制表_dgv.Columns(15).FillWeight = 97 : 控制表_dgv.Columns(16).FillWeight = 97
        控制表_dgv.Columns(17).FillWeight = 97 : 控制表_dgv.Columns(18).FillWeight = 97 : 控制表_dgv.Columns(19).FillWeight = 97 : 控制表_dgv.Columns(20).FillWeight = 97
        控制表_dgv.Columns(21).FillWeight = 100 : 控制表_dgv.Columns(22).FillWeight = 80 : 控制表_dgv.Columns(23).FillWeight = 80 : 控制表_dgv.Columns(24).FillWeight = 80
        控制表_dgv.Columns(25).FillWeight = 80 : 控制表_dgv.Columns(26).FillWeight = 85 : 控制表_dgv.Columns(27).FillWeight = 90 : 控制表_dgv.Columns(28).FillWeight = 100
        控制表_dgv.Columns(29).FillWeight = 70 : 控制表_dgv.Columns(30).FillWeight = 195 : 控制表_dgv.Columns(31).FillWeight = 100 : 控制表_dgv.Columns(32).FillWeight = 190
        控制表_dgv.Columns(33).FillWeight = 100 : 控制表_dgv.Columns(34).FillWeight = 80 : 控制表_dgv.Columns(35).FillWeight = 80 : 控制表_dgv.Columns(36).FillWeight = 80
        控制表_dgv.Columns(37).FillWeight = 80 : 控制表_dgv.Columns(38).FillWeight = 80 : 控制表_dgv.Columns(39).FillWeight = 140 : 控制表_dgv.Columns(40).FillWeight = 145
        控制表_dgv.Columns(41).FillWeight = 175 : 控制表_dgv.Columns(42).FillWeight = 170 : 控制表_dgv.Columns(43).FillWeight = 170 : 控制表_dgv.Columns(44).FillWeight = 170
        控制表_dgv.Columns(45).FillWeight = 90 : 控制表_dgv.Columns(46).FillWeight = 85 : 控制表_dgv.Columns(47).FillWeight = 85 : 控制表_dgv.Columns(48).FillWeight = 85
        控制表_dgv.Columns(49).FillWeight = 85 : 控制表_dgv.Columns(50).FillWeight = 85 : 控制表_dgv.Columns(51).FillWeight = 85 : 控制表_dgv.Columns(52).FillWeight = 85
        控制表_dgv.Columns(53).FillWeight = 115 : 控制表_dgv.Columns(54).FillWeight = 114 : 控制表_dgv.Columns(55).FillWeight = 114 : 控制表_dgv.Columns(56).FillWeight = 114
        控制表_dgv.Columns(57).FillWeight = 114 : 控制表_dgv.Columns(58).FillWeight = 114 : 控制表_dgv.Columns(59).FillWeight = 137 : 控制表_dgv.Columns(60).FillWeight = 137
        控制表_dgv.Columns(61).FillWeight = 137 : 控制表_dgv.Columns(62).FillWeight = 137 : 控制表_dgv.Columns(63).FillWeight = 137 : 控制表_dgv.Columns(64).FillWeight = 120
        控制表_dgv.Columns(65).FillWeight = 120 : 控制表_dgv.Columns(66).FillWeight = 90 : 控制表_dgv.Columns(67).FillWeight = 355 : 控制表_dgv.Columns(68).FillWeight = 172
        控制表_dgv.Columns(69).FillWeight = 171 : 控制表_dgv.Columns(70).FillWeight = 171 : 控制表_dgv.Columns(71).FillWeight = 171 : 控制表_dgv.Columns(72).FillWeight = 100
        控制表_dgv.Columns(73).FillWeight = 100 : 控制表_dgv.Columns(74).FillWeight = 205 : 控制表_dgv.Columns(75).FillWeight = 100 : 控制表_dgv.Columns(76).FillWeight = 120
        控制表_dgv.Columns(77).FillWeight = 60

        控制表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(33).DefaultCellStyle.Format = "#,##0"
        控制表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0.00" : 控制表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.00"
        控制表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        If BB(0) = False And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第1頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 13 : 控制表_dgv.Columns(i).Visible = True : Next
            If CC(17) = True Then : 控制表_dgv.Columns(8).FillWeight = 90 : Else : 控制表_dgv.Columns(8).Visible = False : End If
            If CC(7) = True Then
                For i As Integer = 64 To 67 : 控制表_dgv.Columns(i).Visible = False : Next
            Else
                控制表_dgv.Columns(11).FillWeight = 97
                控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(10).Visible = False
                控制表_dgv.Columns(64).Visible = True : 控制表_dgv.Columns(65).Visible = True
                控制表_dgv.Columns(66).Visible = False : 控制表_dgv.Columns(67).Visible = False
            End If

            For i As Integer = 14 To 28 : 控制表_dgv.Columns(i).Visible = False : Next

            控制表_dgv.Columns(29).Visible = True

            For i As Integer = 30 To 63 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 68 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = False And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第2頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            控制表_dgv.Columns(28).Visible = True : 控制表_dgv.Columns(29).Visible = False
            For i As Integer = 8 To 27 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 30 To 33 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 34 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = False And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第3頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 33 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 34 To 40 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 41 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = False And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第4頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 40 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 41 To 44 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 45 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = False And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第5頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 44 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 45 To 52 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 53 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = False And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第6頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 52 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 53 To 58 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 59 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = False And BB(7) = True And BB(8) = True And BB(9) = True Then
            '-----------第7頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 58 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 59 To 63 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 64 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = False And BB(8) = True And BB(9) = True Then
            '-----------第8頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 63 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 64 To 67 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 68 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = False And BB(9) = True Then
            '-----------第9頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 67 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 68 To 71 : 控制表_dgv.Columns(i).Visible = True : Next
            For i As Integer = 72 To 77 : 控制表_dgv.Columns(i).Visible = False : Next
        ElseIf BB(0) = True And BB(1) = True And BB(2) = True And BB(3) = True And BB(4) = True And BB(5) = True And BB(6) = True And BB(7) = True And BB(8) = True And BB(9) = False Then
            '-----------第10頁-------------------------------------------------------------------------------------------------------------------------------------------------------------
            For i As Integer = 8 To 71 : 控制表_dgv.Columns(i).Visible = False : Next
            For i As Integer = 72 To 77 : 控制表_dgv.Columns(i).Visible = True : Next
        End If
        控制表_dgv.CellBorderStyle = DataGridViewCellBorderStyle.None
        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            控制表_dgv("選擇", i).Value = False
        Next
    End Sub
    Private Sub Set_DGV1載入前設定()
        控制表_dgv.DataSource = Nothing : ds.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25
        控制表_dgv.AllowUserToAddRows = False
        ConnOpen()
    End Sub
    Private Sub Set_DGV1載入後設定()
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_訂單清單()
        Set_DGV1載入前設定()
        列印用SQL = " WHERE ((" & 訂單資料表(1) & ".CXL = 0) OR (" & 訂單資料表(1) & ".CXL IS NULL)) AND (" & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(1) & ".出貨數量 <> 0) "
        SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        Set_DGV1載入後設定()
    End Sub
    Private Sub Set_搜尋()
        If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And
            CheckBox7.Checked = False And CheckBox8.Checked = False And CheckBox9.Checked = False And CheckBox17.Checked = False And 不使用條件_ch.Checked = False Then
        Else
            Set_DGV1載入前設定()
        End If
        If 不使用條件_ch.Checked = True Then
            PA = InputBox("請輸入要查詢的資料")
            列印用SQL = " WHERE (" & 訂單資料表(1) & ".訂單流水號 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".年份季度 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".客戶訂單號 LIKE '%" & PA & "%' OR 
                                 " & 訂單資料表(1) & ".形體號 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".顏色 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".楦型 LIKE '%" & PA & "%' OR 
                                 " & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".生產工廠 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".訂單種類 LIKE '%" & PA & "%' OR 
                                 " & 訂單資料表(1) & ".力威訂單號 LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".ProductID LIKE '%" & PA & "%' OR " & 訂單資料表(1) & ".UoM LIKE '%" & PA & "%') AND 
                                 ((" & 訂單資料表(1) & ".CXL = 0) OR (" & 訂單資料表(1) & ".CXL IS NULL)) AND (" & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(1) & ".出貨數量 <> 0) "
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
            PA = ""
            '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ElseIf CheckBox6.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE (客戶交期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "') " &
                              "AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox6.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE (客戶交期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "') " &
                              "AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox6.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE (客戶交期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "') " &
                              "AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox6.Checked = True Then
            列印用SQL = " WHERE (客戶交期 BETWEEN '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "') " &
                              "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
            '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ElseIf CheckBox9.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE (工廠回復交期 BETWEEN '" & Format(DateTimePicker4.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                              "AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox9.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE (工廠回復交期 BETWEEN '" & Format(DateTimePicker4.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                        "AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox9.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE (工廠回復交期 BETWEEN '" & Format(DateTimePicker4.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                        "AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox9.Checked = True Then
            列印用SQL = " WHERE (工廠回復交期 BETWEEN '" & Format(DateTimePicker4.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker3.Value, "yyyy/MM/dd") & "') " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
            '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ElseIf CheckBox17.Checked = True Then
            列印用SQL = " WHERE (貼標時間 BETWEEN '" & Format(DateTimePicker20.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker19.Value, "yyyy/MM/dd") & "') " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And
               CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And
               CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And
               CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And
               CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And
               CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And
               CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And
               CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' " &
                        "AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And
               CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND" &
                        " 顏色 LIKE '" & ComboBox3.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox5.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text &
                        "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox7.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 生產工廠 LIKE '" & ComboBox5.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox5.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 楦型 LIKE '" & ComboBox4.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox5.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 楦型 LIKE '" & ComboBox4.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox7.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox5.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox4.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 顏色 LIKE '" & ComboBox3.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 形體號 LIKE '" & ComboBox2.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND 年份季度 LIKE '" & ComboBox1.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox8.Checked = True Then
            列印用SQL = " WHERE 訂單種類 LIKE '" & ComboBox6.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox7.Checked = True Then
            列印用SQL = " WHERE 生產工廠 LIKE '" & ComboBox5.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox5.Checked = True Then
            列印用SQL = " WHERE 楦型 LIKE '" & ComboBox4.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox4.Checked = True Then
            列印用SQL = " WHERE 顏色 LIKE '" & ComboBox3.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox3.Checked = True Then
            列印用SQL = " WHERE 形體號 LIKE '" & ComboBox2.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox2.Checked = True Then
            列印用SQL = " WHERE 年份季度 LIKE '" & ComboBox1.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        ElseIf CheckBox1.Checked = True Then
            列印用SQL = " WHERE 訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "' AND ((CXL = 0) OR (CXL IS NULL)) AND (訂單數量 - 出貨數量 <> 0)"
            SQL1 = SQL字串1 & 列印用SQL & SQL字串2
        Else
            MsgBox("沒有選擇篩選條件")
        End If
        If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And
            CheckBox7.Checked = False And CheckBox8.Checked = False And CheckBox9.Checked = False And CheckBox17.Checked = False And 不使用條件_ch.Checked = False Then
        Else
            Set_DGV1載入後設定() : Set_自動彙總1() : Set_grid() : Set_自動彙總1()
        End If
    End Sub
    Private Sub Set_格式設定()
        天盾訂單號_tb.Enabled = False : TextBox5.Enabled = False : TextBox7.Visible = False
        CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False : CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox6.Checked = False : CheckBox9.Checked = False : CheckBox17.Checked = False
        Label14.Visible = False : Label16.Visible = False : DateTimePicker1.Visible = False : Label17.Visible = False : Label15.Visible = False : DateTimePicker3.Visible = False
        Label41.Visible = False : Label40.Visible = False : DateTimePicker19.Visible = False
        Label56.Visible = False
        DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " " : DateTimePicker4.Format = DateTimePickerFormat.Custom : DateTimePicker4.CustomFormat = " "
        DateTimePicker20.Format = DateTimePickerFormat.Custom : DateTimePicker20.CustomFormat = " " : DateTimePicker30.Format = DateTimePickerFormat.Custom : DateTimePicker30.CustomFormat = " "
        If CC(17) = False Then : Button13.Visible = False : Else : Button13.Visible = True : End If
        Button14.Visible = True : Button22.Visible = True : Button27.Visible = True
        Button11.Enabled = False : 第一頁_bt.Enabled = False : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True
    End Sub
    Private Sub Set_格式設定1()
        CheckBox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False : CheckBox5.Checked = False : 不使用條件_ch.Checked = False
    End Sub
    Private Sub Set_自動彙總1()
        Dim 數量加總 As Double = 0 : Dim 金額加總 As Double = 0

        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            If 控制表_dgv.RowCount = 0 Then : TextBox8.Text = "0" : Else : 數量加總 += 控制表_dgv.Rows(i).Cells("訂單數量").Value : End If
        Next i
        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            If 控制表_dgv.RowCount = 0 Then : TextBox9.Text = "0" : Else : 金額加總 += 控制表_dgv.Rows(i).Cells("總金額").Value : End If
        Next i
        TextBox8.Text = Format(Val(數量加總), "#,##0")
        TextBox9.Text = Format(Val(金額加總), "#,##0.00")
        TextBox10.Text = Format(Val(金額加總 / 數量加總), "#,##0.00")
    End Sub
    Private Sub Set_訂單明細()
        明細表_dgv.DataSource = Nothing : ds2.Clear()
        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表_dgv.ColumnHeadersHeight = 25
        明細表_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT      " & 訂單資料表(5) & ".天盾流水號, " & 訂單資料表(5) & ".客戶訂單號, " & 訂單資料表(5) & ".ItemNumber, " & 訂單資料表(5) & ".ProductName, 
                            " & 訂單資料表(5) & ".ProductDescription, " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM, " & 訂單資料表(5) & ".[5], " & 訂單資料表(5) & ".[5.5], 
                            " & 訂單資料表(5) & ".[6], " & 訂單資料表(5) & ".[6.5], " & 訂單資料表(5) & ".[7], " & 訂單資料表(5) & ".[7.5], " & 訂單資料表(5) & ".[8], " & 訂單資料表(5) & ".[8.5], 
                            " & 訂單資料表(5) & ".[9], " & 訂單資料表(5) & ".[9.5], " & 訂單資料表(5) & ".[10], " & 訂單資料表(5) & ".[10.5], " & 訂單資料表(5) & ".[11], " & 訂單資料表(5) & ".[11.5], 
                            " & 訂單資料表(5) & ".[12], " & 訂單資料表(5) & ".[12.5], " & 訂單資料表(5) & ".[13], " & 訂單資料表(5) & ".[14], " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + 
                            " & 訂單資料表(5) & ".[6] + " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] + " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + 
                            " & 訂單資料表(5) & ".[9] + " & 訂單資料表(5) & ".[9.5] + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5]
                            + " & 訂單資料表(5) & ".[12] + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] AS TOTAL
                FROM        " & 訂單資料表(5) & " INNER JOIN
                            (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                             FROM     " & 訂單資料表(1) & "
                             WHERE   (客戶訂單號 LIKE '" & 客戶訂單號_tb.Text & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "')) AS WWEE ON 
                             " & 訂單資料表(5) & ".天盾流水號 = WWEE.訂單流水號 AND " & 訂單資料表(5) & ".客戶訂單號 = WWEE.客戶訂單號 AND " & 訂單資料表(5) & ".ProductName = WWEE.形體號 AND 
                             " & 訂單資料表(5) & ".Color = WWEE.顏色 AND  " & 訂單資料表(5) & ".DM = WWEE.楦型 AND " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + " & 訂單資料表(5) & ".[6] + 
                             " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] + " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + " & 訂單資料表(5) & ".[9] + 
                             " & 訂單資料表(5) & ".[9.5] + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5] + 
                             " & 訂單資料表(5) & ".[12] + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] = WWEE.訂單數量
                WHERE      (" & 訂單資料表(5) & ".客戶訂單號 LIKE '" & 客戶訂單號_tb.Text & "') AND (" & 訂單資料表(5) & ".天盾流水號 LIKE '" & 天盾訂單號_tb.Text & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)
                ORDER BY   " & 訂單資料表(5) & ".ProductName, " & 訂單資料表(5) & ".Color"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 明細表_dgv.DataSource = ds2.Tables(0) : conn.Close()

        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).Visible = False
        明細表_dgv.Columns(2).FillWeight = 90 : 明細表_dgv.Columns(3).FillWeight = 90 : 明細表_dgv.Columns(4).FillWeight = 190 : 明細表_dgv.Columns(5).FillWeight = 80
        明細表_dgv.Columns(6).FillWeight = 70 : 明細表_dgv.Columns(7).FillWeight = 40 : 明細表_dgv.Columns(8).FillWeight = 40 : 明細表_dgv.Columns(9).FillWeight = 40
        明細表_dgv.Columns(10).FillWeight = 40 : 明細表_dgv.Columns(11).FillWeight = 40 : 明細表_dgv.Columns(12).FillWeight = 40 : 明細表_dgv.Columns(13).FillWeight = 40
        明細表_dgv.Columns(14).FillWeight = 40 : 明細表_dgv.Columns(15).FillWeight = 40 : 明細表_dgv.Columns(16).FillWeight = 40 : 明細表_dgv.Columns(17).FillWeight = 40
        明細表_dgv.Columns(18).FillWeight = 40 : 明細表_dgv.Columns(19).FillWeight = 40 : 明細表_dgv.Columns(20).FillWeight = 40 : 明細表_dgv.Columns(21).FillWeight = 40
        明細表_dgv.Columns(22).FillWeight = 40 : 明細表_dgv.Columns(23).FillWeight = 40 : 明細表_dgv.Columns(24).FillWeight = 40 : 明細表_dgv.Columns(25).FillWeight = 60
        明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
        明細表_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_裝箱控制表()
        裝箱控制表_dgv.DataSource = Nothing : ds3.Clear()
        裝箱控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        裝箱控制表_dgv.ColumnHeadersHeight = 25
        裝箱控制表_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT      天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, MaterialDescription, Qty, UoM, IncoTerms, CustomerData, Size, HS, Units1, DtyRate, AddOnDty, UnitsCtn, NoCtn, CtnNo, Units2, 
                            PLMSeason, ProductID, Stock, StkName, CustStk, CustStkName, CasePack, Colorway, OrderColor, Logo, POItemText, FinalCustomerShipTo, 
                            ProductDescription
                FROM        " & 訂單資料表(2) & "
                WHERE       天盾流水號 LIKE '" & 天盾訂單號_tb.Text & "' ORDER BY Item"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 裝箱控制表_dgv.DataSource = ds3.Tables(0) : conn.Close()

        裝箱控制表_dgv.Columns(0).Visible = False : 裝箱控制表_dgv.Columns(1).Visible = False : 裝箱控制表_dgv.Columns(2).Visible = False
        裝箱控制表_dgv.Columns(3).FillWeight = 50 : 裝箱控制表_dgv.Columns(4).FillWeight = 70 : 裝箱控制表_dgv.Columns(5).FillWeight = 200 : 裝箱控制表_dgv.Columns(6).FillWeight = 50
        裝箱控制表_dgv.Columns(7).FillWeight = 50 : 裝箱控制表_dgv.Columns(8).Visible = False : 裝箱控制表_dgv.Columns(9).Visible = False : 裝箱控制表_dgv.Columns(10).Visible = False
        裝箱控制表_dgv.Columns(11).Visible = False : 裝箱控制表_dgv.Columns(12).Visible = False : 裝箱控制表_dgv.Columns(13).Visible = False : 裝箱控制表_dgv.Columns(14).Visible = False
        裝箱控制表_dgv.Columns(15).Visible = False : 裝箱控制表_dgv.Columns(16).Visible = False : 裝箱控制表_dgv.Columns(17).Visible = False : 裝箱控制表_dgv.Columns(18).Visible = False
        裝箱控制表_dgv.Columns(19).Visible = False : 裝箱控制表_dgv.Columns(20).Visible = False : 裝箱控制表_dgv.Columns(21).Visible = False : 裝箱控制表_dgv.Columns(22).Visible = False
        裝箱控制表_dgv.Columns(23).Visible = False : 裝箱控制表_dgv.Columns(24).Visible = False : 裝箱控制表_dgv.Columns(25).Visible = False : 裝箱控制表_dgv.Columns(26).Visible = False
        裝箱控制表_dgv.Columns(27).Visible = False : 裝箱控制表_dgv.Columns(28).Visible = False : 裝箱控制表_dgv.Columns(29).Visible = False : 裝箱控制表_dgv.Columns(30).Visible = False
        裝箱控制表_dgv.Columns(31).Visible = False
        裝箱控制表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_裝箱明細()
        裝箱明細_dgv.DataSource = Nothing : ds4.Clear()
        裝箱明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        裝箱明細_dgv.ColumnHeadersHeight = 25
        裝箱明細_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT    天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]
                FROM      " & 訂單資料表(3) & "
                WHERE     天盾流水號 LIKE '" & 天盾訂單號_tb.Text & "' ORDER BY Item"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 裝箱明細_dgv.DataSource = ds4.Tables(0) : conn.Close()

        裝箱明細_dgv.Columns(0).Visible = False : 裝箱明細_dgv.Columns(1).Visible = False : 裝箱明細_dgv.Columns(2).Visible = False
        裝箱明細_dgv.Columns(3).FillWeight = 90 : 裝箱明細_dgv.Columns(4).FillWeight = 190 : 裝箱明細_dgv.Columns(5).FillWeight = 80
        裝箱明細_dgv.Columns(6).FillWeight = 40 : 裝箱明細_dgv.Columns(7).FillWeight = 40 : 裝箱明細_dgv.Columns(8).FillWeight = 40 : 裝箱明細_dgv.Columns(9).FillWeight = 40
        裝箱明細_dgv.Columns(10).FillWeight = 40 : 裝箱明細_dgv.Columns(11).FillWeight = 40 : 裝箱明細_dgv.Columns(12).FillWeight = 40 : 裝箱明細_dgv.Columns(13).FillWeight = 40
        裝箱明細_dgv.Columns(14).FillWeight = 40 : 裝箱明細_dgv.Columns(15).FillWeight = 40 : 裝箱明細_dgv.Columns(16).FillWeight = 40 : 裝箱明細_dgv.Columns(17).FillWeight = 40
        裝箱明細_dgv.Columns(18).FillWeight = 40 : 裝箱明細_dgv.Columns(19).FillWeight = 40 : 裝箱明細_dgv.Columns(20).FillWeight = 40 : 裝箱明細_dgv.Columns(21).FillWeight = 40
        裝箱明細_dgv.Columns(22).FillWeight = 40 : 裝箱明細_dgv.Columns(23).FillWeight = 40
        裝箱明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        裝箱明細_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        裝箱明細_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        裝箱明細_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        裝箱明細_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        裝箱明細_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_客戶交期除錯()
        除錯_dgv.DataSource = Nothing : ds5.Clear()
        除錯_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        除錯_dgv.ColumnHeadersHeight = 25
        除錯_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT          LEFT(客戶交期, 4) AS 前段, SUBSTRING(客戶交期, 6, 10) AS 後段, 資料流水號, 客戶交期
                FROM            訂單控制表
                WHERE          (LEN(客戶交期) < 10)"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 除錯_dgv.DataSource = ds5.Tables(0) : conn.Close()
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        conn1.Close()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox1.Items.Clear()
        While (dr1.Read())
            ComboBox1.Items.Add(dr1("年份季度"))
        End While
        conn1.Close()
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        conn1.Close()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        If PP1 = "" Then
            SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 ORDER BY 形體號"
        Else
            SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 WHERE (形體號 LIKE '" & PP1 & "%') ORDER BY 形體號"
        End If
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox2.Items.Clear()
        While (dr1.Read())
            ComboBox2.Items.Add(dr1("形體號"))
        End While
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        conn1.Close()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        If PP2 = "" Then
            SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 ORDER BY 顏色"
        Else
            SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE (顏色 LIKE '" & PP2 & "%') ORDER BY 顏色"
        End If
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox3.Items.Clear()
        While (dr1.Read())
            ComboBox3.Items.Add(dr1("顏色"))
        End While
        conn1.Close()
    End Sub
    Private Sub ComboBox4下拉表單資料載入()
        conn1.Close()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT 楦型 FROM 訂單控制表楦型清單 ORDER BY 楦型"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox4.Items.Clear()
        While (dr1.Read())
            ComboBox4.Items.Add(dr1("楦型"))
        End While
        conn1.Close()
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        conn1.Close()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT 生產工廠 FROM 訂單控制表生產工廠清單 GROUP BY 生產工廠 ORDER BY 生產工廠"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox5.Items.Clear()
        While (dr1.Read())
            ComboBox5.Items.Add(dr1("生產工廠"))
        End While
        conn1.Close()
    End Sub
    Private Sub ComboBox6下拉表單資料載入()
        conn1.Close()
        If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
        SQL1 = "SELECT 訂單種類 FROM  訂單控制表訂單種類清單 GROUP BY 訂單種類 ORDER BY 訂單種類"
        cmd1.CommandText = SQL1 : cmd1.Connection = conn1 : dr1 = cmd1.ExecuteReader
        ComboBox6.Items.Clear()
        While (dr1.Read())
            ComboBox6.Items.Add(dr1("訂單種類"))
        End While
        conn1.Close()
    End Sub
    Private Sub Set_自動計算1()
        If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox4.Text) = True Then
            TextBox5.Text = Format(Val(CStr(Math.Round((Double.Parse(TextBox4.Text) * Double.Parse(TextBox3.Text)), 2))), "#,##0.00")
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP(0) = DateTimePicker2.Text : DTP(1) = DateTimePicker4.Text : DTP(9) = DateTimePicker20.Text
        DTP(14) = DateTimePicker30.Text
        If DTP(0) = " " Then : DTP(0) = "" : Else : DTP(0) = Format(DateTimePicker2.Value, "yyyy/MM/dd") : End If
        If DTP(1) = " " Then : DTP(1) = "" : Else : DTP(1) = Format(DateTimePicker4.Value, "yyyy/MM/dd") : End If
        If DTP(9) = " " Then : DTP(9) = "" : Else : DTP(9) = Format(DateTimePicker20.Value, "yyyy/MM/dd") : End If
        If DTP(14) = " " Then : DTP(14) = "" : Else : DTP(14) = Format(DateTimePicker30.Value, "yyyy/MM/dd") : End If
    End Sub
    Private Sub 訂單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True

        AA1_lb.Text = "Purchasing Group" : AA2_lb.Text = "PO Type" : AA3_lb.Text = "Inco Terms" : AA4_lb.Text = "CALERES PO#" : AA5_lb.Text = "SERVICED"
        AA6_lb.Text = "Version" : AA7_lb.Text = "Vendor" : AA8_lb.Text = "Company Code" : AA9_lb.Text = "Shipping Method" : AA10_lb.Text = "Ship To"
        AA11_lb.Text = "Factory No" : AA12_lb.Text = "Final Customer Ship To"
        明細表_dgv.Visible = True : 裝箱明細_dgv.Visible = False : 資訊_gb.Visible = False : 開啟訂單明細表_bt.Visible = False : 批量出貨_bt.Enabled = False

        訂單資料庫選擇.ShowDialog()

        SQL宣告()
        ConnOpen()
        SQL1 = "UPDATE " & 訂單資料表(1) & " SET 出貨數量 = '0' WHERE (出貨數量 IS NULL)"
        CmdSet_For_dr() : conn.Close()

        frmOpenFlag = True : DataGridView2.Visible = False : TextBox13.Enabled = False

        BB(0) = False : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        '成本可是權限
        If CC(7) = False Then
            Label9.Visible = False : Label10.Visible = False : Label60.Visible = False : Label61.Visible = False
            TextBox4.Visible = False : TextBox5.Visible = False : TextBox9.Visible = False : TextBox10.Visible = False
        End If
        '成本可改寫權限
        If CC(14) = False Then
            TextBox4.Enabled = False
        End If
        '新增資料權限
        If CC(10) = False Then
            新增_bt.Enabled = False : Button38.Enabled = False : 修改PO_bt.Enabled = False : Button15.Enabled = False
        End If
        '修改資料權限
        If CC(8) = False Then
            If CC(8) = False Or CC(11) = False Then
                新增訂單號_bt.Enabled = False : ADD1_bt.Enabled = False : ADD2_bt.Enabled = False : ADD3_bt.Enabled = False : ADD4_bt.Enabled = False
                Button6.Enabled = False : Button7.Enabled = False
                If CC(8) = False And CC(11) = False Then
                    Button12.Enabled = False
                End If
            End If
        End If
        '刪除資料權限
        If CC(9) = False Then
            Button10.Enabled = False
        End If
        '訂單明細表可視權限
        If CC(15) = False Then
            開啟訂單明細表_bt.Enabled = False
        End If
        '客戶交期可視權限
        If CC(17) = False Then
            CheckBox6.Visible = False : Label8.Visible = False : DateTimePicker2.Visible = False : Button13.Visible = False
        End If
        '列印資料權限
        If CC(38) = False Then
            Button28.Enabled = False
        End If
        Set_格式設定() : Set_訂單清單() : Set_自動彙總1() : Set_grid()
        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入()

        'Set_客戶交期除錯()
        'If 除錯_dgv.Rows.Count > 0 Then
        '    For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
        '        If IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
        '            除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/0" &
        '                Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
        '        ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = True And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
        '            除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 2) & "/0" &
        '                Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
        '            除錯_dgv("後段", I).Value = "2021/" & Strings.Left(除錯_dgv("前段", I).Value.ToString, 2) & "/0" & Strings.Right(除錯_dgv("前段", I).Value.ToString, 1)
        '        ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = True Then
        '            除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/" &
        '                Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)
        '        End If
        '        ConnOpen()
        '        SQL1 = "UPDATE 訂單控制表 SET 客戶交期 = '" & 除錯_dgv("後段", I).Value.ToString & "' WHERE (資料流水號 = '" & 除錯_dgv("資料流水號", I).Value.ToString & "')"
        '        CmdSet_For_dr() : conn.Close()
        '    Next
        'End If
    End Sub
    Private Sub 訂單控制表_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        frmOpenFlag = False
        ConnOpen()
        SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾訂單號_tb.Text, 6) & "')"
        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
    End Sub
    Private Sub 裝箱控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 裝箱控制表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            TT01_lb.Text = 裝箱控制表_dgv("IncoTerms", e.RowIndex).Value.ToString : TT02_lb.Text = 裝箱控制表_dgv("CustomerData", e.RowIndex).Value.ToString
            TT03_lb.Text = 裝箱控制表_dgv("Size", e.RowIndex).Value.ToString : TT04_lb.Text = 裝箱控制表_dgv("HS", e.RowIndex).Value.ToString
            TT05_lb.Text = 裝箱控制表_dgv("Units1", e.RowIndex).Value.ToString : TT06_lb.Text = 裝箱控制表_dgv("DtyRate", e.RowIndex).Value.ToString
            TT07_lb.Text = 裝箱控制表_dgv("AddOnDty", e.RowIndex).Value.ToString : TT08_lb.Text = 裝箱控制表_dgv("UnitsCtn", e.RowIndex).Value.ToString
            TT09_lb.Text = 裝箱控制表_dgv("NoCtn", e.RowIndex).Value.ToString : TT10_lb.Text = 裝箱控制表_dgv("CtnNo", e.RowIndex).Value.ToString
            TT11_lb.Text = 裝箱控制表_dgv("Units2", e.RowIndex).Value.ToString : TT12_lb.Text = 裝箱控制表_dgv("PLMSeason", e.RowIndex).Value.ToString
            TT13_lb.Text = 裝箱控制表_dgv("ProductID", e.RowIndex).Value.ToString : TT14_lb.Text = 裝箱控制表_dgv("Stock", e.RowIndex).Value.ToString
            TT15_lb.Text = 裝箱控制表_dgv("StkName", e.RowIndex).Value.ToString : TT16_lb.Text = 裝箱控制表_dgv("CustStk", e.RowIndex).Value.ToString
            TT17_lb.Text = 裝箱控制表_dgv("CustStkName", e.RowIndex).Value.ToString : TT18_lb.Text = 裝箱控制表_dgv("CasePack", e.RowIndex).Value.ToString
            TT19_lb.Text = 裝箱控制表_dgv("Colorway", e.RowIndex).Value.ToString : TT20_lb.Text = 裝箱控制表_dgv("OrderColor", e.RowIndex).Value.ToString
            TT21_lb.Text = 裝箱控制表_dgv("Logo", e.RowIndex).Value.ToString : TT22_lb.Text = 裝箱控制表_dgv("POItemText", e.RowIndex).Value.ToString
            TT23_lb.Text = 裝箱控制表_dgv("FinalCustomerShipTo", e.RowIndex).Value.ToString : TT24_lb.Text = 裝箱控制表_dgv("ProductDescription", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
        If 啟用批量出貨_ch.Checked = True Then
            控制表_dgv("選擇", e.RowIndex).Value = True
        Else
            If e.RowIndex = -1 Then : Else
                ConnOpen()
                SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾訂單號_tb.Text, 6) & "')"
                cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

                PP1 = 控制表_dgv("形體號", e.RowIndex).Value.ToString : PP2 = 控制表_dgv("顏色", e.RowIndex).Value.ToString
                ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入()
                天盾訂單號_tb.Text = 控制表_dgv("訂單流水號", e.RowIndex).Value.ToString : ComboBox1.Text = 控制表_dgv("年份季度", e.RowIndex).Value.ToString
                客戶訂單號_tb.Text = 控制表_dgv("客戶訂單號", e.RowIndex).Value.ToString : ComboBox2.Text = 控制表_dgv("形體號", e.RowIndex).Value.ToString
                ComboBox3.Text = 控制表_dgv("顏色", e.RowIndex).Value.ToString : ComboBox4.Text = 控制表_dgv("楦型", e.RowIndex).Value.ToString
                訂單數量 = 控制表_dgv("訂單數量", e.RowIndex).Value.ToString : TextBox3.Text = Format(Val(訂單數量), "#,##0")

                TextBox13.Text = 控制表_dgv.Rows(e.RowIndex).Cells("訂單數量").Value - 控制表_dgv.Rows(e.RowIndex).Cells("出貨數量").Value
                TextBox13.Text = Format(Val(TextBox13.Text), "###0")

                DTP(0) = 控制表_dgv("客戶交期", e.RowIndex).Value.ToString
                If DTP(0) = "" Then : DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
                Else : DateTimePicker2.Format = DateTimePickerFormat.Short : DateTimePicker2.Text = DTP(0) : DateTimePicker1.Text = DateTimePicker2.Text : End If

                單價 = 控制表_dgv("單價", e.RowIndex).Value.ToString : TextBox4.Text = Format(Val(單價), "#,##0.00")
                總金額 = 控制表_dgv("總金額", e.RowIndex).Value.ToString : TextBox5.Text = Format(Val(總金額), "#,##0.00")
                TextBox6.Text = 控制表_dgv("備註", e.RowIndex).Value.ToString : ComboBox5.Text = 控制表_dgv("生產工廠", e.RowIndex).Value.ToString
                ComboBox6.Text = 控制表_dgv("訂單種類", e.RowIndex).Value.ToString

                DTP(1) = 控制表_dgv("工廠回復交期", e.RowIndex).Value.ToString
                If DTP(1) = "" Then : DateTimePicker4.Format = DateTimePickerFormat.Custom : DateTimePicker4.CustomFormat = " "
                Else : DateTimePicker4.Format = DateTimePickerFormat.Short : DateTimePicker4.Text = DTP(1) : DateTimePicker3.Text = DateTimePicker4.Text : End If

                DTP(9) = 控制表_dgv("貼標時間", e.RowIndex).Value.ToString
                If DTP(9) = "" Then : DateTimePicker20.Format = DateTimePickerFormat.Custom : DateTimePicker20.CustomFormat = " "
                Else : DateTimePicker20.Format = DateTimePickerFormat.Short : DateTimePicker20.Text = DTP(9) : DateTimePicker19.Text = DateTimePicker20.Text : End If

                TextBox7.Text = 控制表_dgv("資料流水號", e.RowIndex).Value.ToString

                ConnOpen()
                SQL1 = "SELECT 客戶訂單號, 天盾流水號, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, ShippingCarrier, VendorReference, ModifiedDate, CustomerName, ShipDate, 
                           SalesOrder, DeliveryAddress, 下單日, 交期, ETADate, CreatedDate, Brand, CustomerRequisition, 工廠編號, 工廠地址, 代理編號, 訂貨代理, 總雙數, 總案件數, 公司, 
                           工廠簡稱, 最終運送, 入單型態 
                    FROM " & 訂單資料表(0) & " WHERE (天盾流水號 LIKE '" & 天盾訂單號_tb.Text & "')"
                CmdSet_For_dr()
                If dr.Read() Then
                    If dr("入單型態").ToString = "2" Then
                        AA1_lb.Text = "Purchasing Group" : AA2_lb.Text = "PO Type" : AA3_lb.Text = "Inco Terms" : AA4_lb.Text = "CALERES PO#" : AA5_lb.Text = "SERVICED"
                        AA6_lb.Text = "Version" : AA7_lb.Text = "Vendor" : AA8_lb.Text = "Company Code" : AA9_lb.Text = "Shipping Method" : AA10_lb.Text = "Ship To"
                        AA11_lb.Text = "Factory No" : AA12_lb.Text = "Final Customer Ship To"

                        Brand_tb.Text = dr("Brand").ToString : 訂單類別_tb.Text = dr("ModeOfDelivery").ToString : 英科條款_tb.Text = dr("DeliveryTerms").ToString
                        力威訂單號_tb.Text = dr("CustomerRequisition").ToString : 服務_tb.Text = dr("公司").ToString : 版本_tb.Text = dr("ModifiedDate").ToString
                        供應商編號_tb.Text = dr("VendorReference").ToString : 公司編號_tb.Text = dr("CustomerName").ToString : 郵寄方式_tb.Text = dr("SalesOrder").ToString
                        地址1_tb.Text = dr("工廠地址").ToString : 工廠編號_tb.Text = dr("工廠編號").ToString : 地址二_tb.Text = dr("DeliveryAddress").ToString
                        最終運送_tb.Text = dr("最終運送").ToString : 代理編號_cb.Text = dr("代理編號").ToString : 訂貨代理_tb.Text = dr("訂貨代理").ToString
                        總雙數_tb.Text = Format(Val(dr("總雙數").ToString), "#,##0") : 總案件_tb.Text = Format(Val(dr("總案件數").ToString), "#,##0")
                    Else
                        AA1_lb.Text = "Brand" : AA2_lb.Text = "Mode Of Delivery" : AA3_lb.Text = "Delivery Terms" : AA4_lb.Text = "Customer Requisition" : AA5_lb.Text = "Shipping Carrier"
                        AA6_lb.Text = "Modified Date" : AA7_lb.Text = "Vendor Reference" : AA8_lb.Text = "Customer Name" : AA9_lb.Text = "Sales Order" : AA10_lb.Text = "Delivery Address"
                        AA11_lb.Text = "From Port" : AA12_lb.Text = "To Port"

                        Brand_tb.Text = dr("Brand").ToString : 訂單類別_tb.Text = dr("ModeOfDelivery").ToString : 英科條款_tb.Text = dr("DeliveryTerms").ToString
                        力威訂單號_tb.Text = dr("CustomerRequisition").ToString : 服務_tb.Text = dr("ShippingCarrier").ToString : 版本_tb.Text = dr("ModifiedDate").ToString
                        供應商編號_tb.Text = dr("VendorReference").ToString : 公司編號_tb.Text = dr("CustomerName").ToString : 郵寄方式_tb.Text = dr("SalesOrder").ToString
                        地址1_tb.Text = dr("FromPort").ToString : 工廠編號_tb.Text = dr("工廠編號").ToString : 地址二_tb.Text = dr("DeliveryAddress").ToString
                        最終運送_tb.Text = dr("ToPort").ToString : 代理編號_cb.Text = dr("代理編號").ToString : 訂貨代理_tb.Text = dr("訂貨代理").ToString
                        總雙數_tb.Text = Format(Val(dr("總雙數").ToString), "#,##0") : 總案件_tb.Text = Format(Val(dr("總案件數").ToString), "#,##0")
                    End If
                End If : conn.Close()

                Set_訂單明細() : Set_裝箱控制表() : Set_裝箱明細()
                TT01_lb.Text = "" : TT02_lb.Text = "" : TT03_lb.Text = "" : TT04_lb.Text = "" : TT05_lb.Text = "" : TT06_lb.Text = "" : TT07_lb.Text = "" : TT08_lb.Text = "" : TT09_lb.Text = ""
                TT10_lb.Text = "" : TT11_lb.Text = "" : TT12_lb.Text = "" : TT13_lb.Text = "" : TT14_lb.Text = "" : TT15_lb.Text = "" : TT16_lb.Text = "" : TT17_lb.Text = "" : TT18_lb.Text = ""
                TT19_lb.Text = "" : TT20_lb.Text = "" : TT21_lb.Text = "" : TT22_lb.Text = "" : TT23_lb.Text = "" : TT24_lb.Text = ""

                ConnOpen()
                SQL1 = "SELECT Style FROM STYLELIST WHERE (ProductName LIKE '" & ComboBox2.Text & "')"
                CmdSet_For_dr()
                If dr.Read() Then
                    TextBox11.Text = dr("Style").ToString
                Else
                    TextBox11.Text = ""
                End If
                conn.Close()

                If 控制表_dgv("顏色", e.RowIndex).Value = "" Then
                    ConnOpen()
                    SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 控制表_dgv("形體號", e.RowIndex).Value.ToString & "' AND 類型 NOT LIKE '確認-產地標'"
                    CmdSet_For_dr()
                    PictureBox1.Image = Nothing
                    While dr.Read() = True
                        Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                        Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
                    End While
                Else
                    ConnOpen()
                    SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 控制表_dgv("形體號", e.RowIndex).Value.ToString & "' AND 
                            顏色 LIKE '" & 控制表_dgv("顏色", e.RowIndex).Value.ToString & "' AND 類型 NOT LIKE '確認-產地標'"
                    CmdSet_For_dr()
                    If dr.Read() Then
                        conn.Close()
                        ConnOpen()
                        SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 控制表_dgv("形體號", e.RowIndex).Value.ToString & "' AND 
                                顏色 LIKE '" & 控制表_dgv("顏色", e.RowIndex).Value.ToString & "' AND 類型 NOT LIKE '確認-產地標'"
                        CmdSet_For_dr()
                        PictureBox1.Image = Nothing
                        While dr.Read() = True
                            Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                            Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
                        End While
                    Else
                        conn.Close()
                        ConnOpen()
                        SQL1 = "SELECT TOP(1) 圖片 FROM 圖片庫一 WHERE 形體名 LIKE '" & 控制表_dgv("形體號", e.RowIndex).Value.ToString & "' AND 類型 NOT LIKE '確認-產地標'"
                        CmdSet_For_dr()
                        PictureBox1.Image = Nothing
                        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) : PictureBox1.Image = Bitmap.FromStream(oStream)
                        End While
                    End If
                End If
                conn.Close() : PictureBox1.SizeMode = 4

                ConnOpen()
                SQL1 = "SELECT TOP(1) 驗貨報告 FROM 驗貨報告圖庫 WHERE 驗貨報告編號 LIKE '" & 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString & "'"
                CmdSet_For_dr()
                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)
                End While
                conn.Close() : PictureBox2.SizeMode = 4

                驗貨報告 = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
            End If
        End If
    End Sub
    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.MouseDown
        DateTimePicker2.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker4.MouseDown
        DateTimePicker4.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub DateTimePicker20_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker20.MouseDown
        DateTimePicker20.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub DateTimePicker30_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker30.MouseDown
        DateTimePicker30.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        DateTimePicker2.Format = DateTimePickerFormat.Custom : DateTimePicker2.CustomFormat = " "
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        DateTimePicker4.Format = DateTimePickerFormat.Custom : DateTimePicker4.CustomFormat = " "
    End Sub
    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        DateTimePicker20.Format = DateTimePickerFormat.Custom : DateTimePicker20.CustomFormat = " "
    End Sub
    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
        DateTimePicker30.Format = DateTimePickerFormat.Custom : DateTimePicker30.CustomFormat = " "
    End Sub
    Private Sub CheckBox23_CheckedChanged(sender As Object, e As EventArgs) Handles 不使用條件_ch.Click
        If 不使用條件_ch.Checked = True Then : 不使用條件_ch.Checked = True : Set_格式設定() : Else : 不使用條件_ch.Checked = False : End If
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.Click
        If CheckBox6.Checked = True Then
            Set_格式設定1() : CheckBox6.Checked = True : Label14.Visible = True : Label16.Visible = True : DateTimePicker1.Visible = True
            CheckBox9.Checked = False : CheckBox17.Checked = False : Button13.Visible = False
            Label17.Visible = False : Label15.Visible = False : DateTimePicker3.Visible = False
            Label41.Visible = False : Label40.Visible = False : DateTimePicker19.Visible = False : Label56.Visible = False
            Button14.Visible = True : Button22.Visible = True : Button27.Visible = True
        Else
            CheckBox6.Checked = False : Label14.Visible = False : Label16.Visible = False : DateTimePicker1.Visible = False
            If CC(17) = False Then : Button13.Visible = False : Else : Button13.Visible = True : End If
        End If
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.Click
        If CheckBox9.Checked = True Then
            Set_格式設定1() : CheckBox9.Checked = True : Label17.Visible = True : Label15.Visible = True : DateTimePicker3.Visible = True
            CheckBox6.Checked = False : CheckBox17.Checked = False : Button14.Visible = False
            Label14.Visible = False : Label16.Visible = False : DateTimePicker1.Visible = False
            Label41.Visible = False : Label40.Visible = False : DateTimePicker19.Visible = False : Label56.Visible = False
            If CC(17) = False Then : Button13.Visible = False : Else : Button13.Visible = True : End If
            Button22.Visible = True : Button27.Visible = True
        Else
            CheckBox9.Checked = False : Label17.Visible = False : Label15.Visible = False : DateTimePicker3.Visible = False : Button14.Visible = True
        End If
    End Sub
    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox17.Click
        If CheckBox17.Checked = True Then
            Set_格式設定1() : CheckBox17.Checked = True : Label41.Visible = True : Label40.Visible = True : DateTimePicker19.Visible = True
            CheckBox6.Checked = False : CheckBox9.Checked = False : Button22.Visible = False
            Label14.Visible = False : Label16.Visible = False : DateTimePicker1.Visible = False : Label17.Visible = False : Label15.Visible = False : DateTimePicker3.Visible = False
            Label56.Visible = False
            If CC(17) = False Then : Button13.Visible = False : Else : Button13.Visible = True : End If
            Button14.Visible = True : Button27.Visible = True
        Else
            CheckBox17.Checked = False : Label41.Visible = False : Label40.Visible = False : DateTimePicker19.Visible = False : Button22.Visible = True
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
        If CheckBox6.Checked = True Or CheckBox9.Checked = True Or CheckBox17.Checked = True Then
            CheckBox1.Checked = False
        Else
            If CheckBox1.Checked = True Then : CheckBox1.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox1.Checked = False : End If
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
        If CheckBox6.Checked = True Or CheckBox9.Checked = True Or CheckBox17.Checked = True Then
            CheckBox2.Checked = False
        Else
            If CheckBox2.Checked = True Then : CheckBox2.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox2.Checked = False : End If
        End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.Click
        If CheckBox6.Checked = True Or CheckBox9.Checked = True Or CheckBox17.Checked = True Then
            CheckBox3.Checked = False
        Else
            If CheckBox3.Checked = True Then : CheckBox3.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox3.Checked = False : End If
        End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
        If CheckBox6.Checked = True Or CheckBox9.Checked = True Or CheckBox17.Checked = True Then
            CheckBox4.Checked = False
        Else
            If CheckBox4.Checked = True Then : CheckBox4.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox4.Checked = False : End If
        End If
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
        If CheckBox6.Checked = True Or CheckBox9.Checked = True Or CheckBox17.Checked = True Then
            CheckBox5.Checked = False
        Else
            If CheckBox5.Checked = True Then : CheckBox5.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox5.Checked = False : End If
        End If
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.Click
        If CheckBox17.Checked = True Then
            CheckBox7.Checked = False
        Else
            If CheckBox7.Checked = True Then : CheckBox7.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox7.Checked = False : End If
        End If
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.Click
        If CheckBox17.Checked = True Then
            CheckBox8.Checked = False
        Else
            If CheckBox8.Checked = True Then : CheckBox8.Checked = True : 不使用條件_ch.Checked = False : Else : CheckBox8.Checked = False : End If
        End If
    End Sub
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        Set_自動計算1()
    End Sub
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        Set_自動計算1()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ADD1_bt.Click
        清單修改.Close() : 修改清單(0) = True : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() : ComboBox1下拉表單資料載入()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles ADD2_bt.Click
        TENDENZA_STYLE_資料管理.Close() : 修改清單(0) = False : 修改清單(1) = True : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : TENDENZA_STYLE_資料管理.Show() : ComboBox2下拉表單資料載入()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles ADD3_bt.Click
        清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = True : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() : ComboBox3下拉表單資料載入()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles ADD4_bt.Click
        清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = True : 修改清單(4) = False : 修改清單(5) = False : 修改清單(6) = False
        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() : ComboBox4下拉表單資料載入()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        FACTORY_資料管理.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = True : 修改清單(5) = False : 修改清單(6) = False
        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : FACTORY_資料管理.Show() : ComboBox5下拉表單資料載入()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = True : 修改清單(6) = False
        修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() : ComboBox6下拉表單資料載入()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Set_搜尋()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 資料修改紀錄_bt.Click
        訂單紀錄流水號 = "" : If TextBox7.Text = "" Then : MsgBox("未選擇資料") : Else : 訂單紀錄流水號 = TextBox7.Text : 訂單控制表修改紀錄.Show() : End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增訂單號_bt.Click
        ConnOpen()
        SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾訂單號_tb.Text, 6) & "')"
        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
        訂單流水號.Show()
    End Sub
    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        TextBox4.Text = "0.00" : Button11.Enabled = True : 新增_bt.Enabled = False
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim QQ As Boolean
        If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
            ConnOpen()
            SQL1 = "SELECT TOP (1) 資料流水號 FROM " & 訂單資料表(1) & " GROUP BY 資料流水號 ORDER BY 資料流水號 DESC"
            CmdSet_For_dr()
            If dr.Read() Then : TextBox7.Text = dr("資料流水號").ToString : Else : TextBox7.Text = "" : End If
            conn.Close()
            Dim NUM1 As Integer
            NUM1 = Double.Parse(Strings.Right(TextBox7.Text, 8)) + 1
            If NUM1 < 10 Then : TextBox7.Text = "PO" & "0000000" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox7.Text = "PO" & "000000" & NUM1
            ElseIf NUM1 > 99 And NUM1 < 1000 Then : TextBox7.Text = "PO" & "00000" & NUM1
            ElseIf NUM1 > 999 And NUM1 < 10000 Then : TextBox7.Text = "PO" & "0000" & NUM1
            ElseIf NUM1 > 9999 And NUM1 < 100000 Then : TextBox7.Text = "PO" & "000" & NUM1
            ElseIf NUM1 > 99999 And NUM1 < 100000 Then : TextBox7.Text = "PO" & "00" & NUM1
            ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : TextBox7.Text = "PO" & "0" & NUM1
            ElseIf NUM1 > 9999999 Then : TextBox7.Text = "PO" & NUM1
            End If
            If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
                If 天盾訂單號_tb.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or ComboBox5.Text = "" Or
            ComboBox6.Text = "" Or 客戶訂單號_tb.Text = "" Or TextBox7.Text = "" Then
                    MsgBox("資料內容不可空白")
                Else

                    ConnOpen()
                    SQL1 = "SELECT 明細建檔 FROM " & 訂單資料表(1) & " WHERE (訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "') GROUP BY   明細建檔"
                    CmdSet_For_dr()
                    If dr.Read() Then : QQ = dr("明細建檔").ToString : Else : QQ = False : End If : conn.Close()

                    Set_日期格式轉換()
                    ConnOpen()
                    If QQ = False Then
                        SQL1 = "INSERT INTO " & 訂單資料表(1) & " (訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期, " &
                               "CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, " &
                               "資料流水號, 明細建檔) " &
                               "VALUES ('" & 天盾訂單號_tb.Text & "','" & ComboBox1.Text & "','" & 客戶訂單號_tb.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & ComboBox4.Text &
                               "','" & TextBox3.Text & "','" & DTP(0) & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & ComboBox5.Text & "','" & ComboBox6.Text &
                               "','" & DTP(1) & "','" & DTP(2) & "','" & DTP(3) & "','" & DTP(4) & "','" & DTP(5) & "','" & DTP(6) & "','" & DTP(7) & "','" & DTP(8) & "','" & DTP(9) & "','" & DTP(10) &
                               "','" & DTP(11) & "','" & DTP(12) & "','" & DTP(13) & "','" & DTP(14) & "','" & TextBox7.Text & "', '0')"
                    Else
                        SQL1 = "INSERT INTO " & 訂單資料表(1) & " (訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期, " &
                               "CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, " &
                               "資料流水號, 明細建檔) " &
                               "VALUES ('" & 天盾訂單號_tb.Text & "','" & ComboBox1.Text & "','" & 客戶訂單號_tb.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & ComboBox4.Text &
                               "','" & TextBox3.Text & "','" & DTP(0) & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & ComboBox5.Text & "','" & ComboBox6.Text &
                               "','" & DTP(1) & "','" & DTP(2) & "','" & DTP(3) & "','" & DTP(4) & "','" & DTP(5) & "','" & DTP(6) & "','" & DTP(7) & "','" & DTP(8) & "','" & DTP(9) & "','" & DTP(10) &
                               "','" & DTP(11) & "','" & DTP(12) & "','" & DTP(13) & "','" & DTP(14) & "','" & TextBox7.Text & "', '1')"
                    End If
                    CmdSet_For_dr() : conn.Close()

                    ConnOpen()
                    SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) " &
                       "VALUES ('" & TextBox7.Text & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','1')"
                    CmdSet_For_dr() : conn.Close()
                    MsgBox("新增完成")
                End If
            Else
                MsgBox("資料有缺或有誤，請重新檢查")
            End If
        Else
            MsgBox("資料有缺或有誤，請重新檢查")
        End If

        ConnOpen()
        SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾訂單號_tb.Text, 6) & "')"
        cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

        Set_搜尋() : Button11.Enabled = False : 新增_bt.Enabled = True
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        If IsNumeric(TextBox3.Text) = True And IsNumeric(TextBox4.Text) = True And IsNumeric(TextBox5.Text) = True Then
            If TextBox7.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Then
                MsgBox("沒有正確選擇要修改的資料或資料有缺，請先檢查")
            Else
                Dim NUM2 As Integer
                ConnOpen()
                SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & TextBox7.Text & "') ORDER BY 編輯次數 DESC"
                CmdSet_For_dr()
                If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
                conn.Close()
                NUM2 += 1
                Set_日期格式轉換()

                ConnOpen()
                If (CC(8) = True And CC(11) = True) Or (CC(8) = True And CC(11) = False) Then
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET 年份季度 = '" & ComboBox1.Text & "', 形體號 = '" & ComboBox2.Text & "', 顏色 = '" & ComboBox3.Text & "', 楦型 = '" & ComboBox4.Text &
                                          "', 訂單數量 = '" & TextBox3.Text & "', 單價 = '" & TextBox4.Text & "', 總金額 = '" & TextBox5.Text &
                                          "', 備註 = '" & TextBox6.Text & "', 生產工廠 = '" & ComboBox5.Text & "', 訂單種類 = '" & ComboBox6.Text & "', 工廠回復交期 = '" & DTP(1) &
                                          "' WHERE (資料流水號 = '" & TextBox7.Text & "')"
                ElseIf CC(8) = False And CC(11) = True Then
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET CFMSPEC = '" & DTP(2) & "', CFMSAMPLE = '" & DTP(3) & "', TRIAL1 = '" & DTP(4) &
                                          "', TRIAL2 = '" & DTP(5) & "', TRIAL3 = '" & DTP(6) & "', TRIAL4 = '" & DTP(7) & "', 包裝確認時間 = '" & DTP(8) & "', 貼標時間 = '" & DTP(9) &
                                          "', 驗貨時間 = '" & DTP(13) & "' WHERE (資料流水號 = '" & TextBox7.Text & "')"
                End If
                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()

                ConnOpen()
                SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) " &
                   "VALUES ('" & TextBox7.Text & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
                CmdSet_For_dr() : conn.Close()
                MsgBox("修改完成")
            End If
        Else
            MsgBox("資料有缺或有誤，請重新檢查")
        End If
        Set_搜尋()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            ConnOpen()
            SQL1 = "DELETE FROM " & 訂單資料表(1) & " WHERE (訂單流水號 = '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM " & 訂單資料表(0) & " WHERE (天盾流水號 = '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM " & 訂單資料表(6) & " WHERE (天盾流水號 = '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM " & 訂單資料表(2) & " WHERE (天盾流水號 = '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "DELETE FROM " & 訂單資料表(3) & " WHERE (天盾流水號 = '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            MsgBox("刪除完成")
        End If
        Set_訂單清單() : Set_自動彙總1() : Set_grid()
    End Sub
    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
        If 列印用SQL = "" Then : MsgBox("請先搜尋資料後再行列印") : Else : 訂單列印選擇.Show() : End If
    End Sub
    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles 開啟訂單明細表_bt.Click
        If 天盾訂單號_tb.Text = "" Then
            MsgBox("請先選擇訂單資料")
        Else
            If 訂單資料表(1) = "訂單控制表" Then
                PA = 天盾訂單號_tb.Text
                訂單明細表.Show() : 訂單明細表.WindowState = 2
            Else
                MsgBox("開發中")
            End If
        End If
    End Sub
    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
        PP1 = InputBox("請輸入要查詢的資料") : ComboBox2下拉表單資料載入()
        If (ComboBox2.Items.Count = 0) Then : Else : ComboBox2.SelectedIndex = 0 : End If : conn1.Close()
    End Sub
    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
        PP2 = InputBox("請輸入要查詢的資料") : ComboBox3下拉表單資料載入()
        If (ComboBox3.Items.Count = 0) Then : Else : ComboBox3.SelectedIndex = 0 : End If : conn1.Close()
    End Sub
    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles 返回_bt.Click
        Set_訂單清單() : Set_自動彙總1() : Set_grid()
    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("訂單流水號", e.RowIndex).Value.ToString <> 控制表_dgv("訂單流水號", 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_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(3, e.RowIndex).Value.ToString <> 裝箱明細_dgv(3, 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 第一頁_bt_Click(sender As Object, e As EventArgs) Handles 第一頁_bt.Click
        第一頁_bt.Enabled = False : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = False : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第二頁_bt_Click(sender As Object, e As EventArgs) Handles 第二頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = False : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = False : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第三頁_bt_Click(sender As Object, e As EventArgs) Handles 第三頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = False : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = False : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第四頁_bt_Click(sender As Object, e As EventArgs) Handles 第四頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = False : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = False : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第五頁_bt_Click(sender As Object, e As EventArgs) Handles 第五頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = False : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = False : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第六頁_bt_Click(sender As Object, e As EventArgs) Handles 第六頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = False
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = False : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第七頁_bt_Click(sender As Object, e As EventArgs) Handles 第七頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = False : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = False : BB(7) = True : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第八頁_bt_Click(sender As Object, e As EventArgs) Handles 第八頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = False : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = False : BB(8) = True : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第九頁_bt_Click(sender As Object, e As EventArgs) Handles 第九頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = False : 第十頁_bt.Enabled = True
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = False : BB(9) = True
        Set_grid()
    End Sub
    Private Sub 第十頁_bt_Click(sender As Object, e As EventArgs) Handles 第十頁_bt.Click
        第一頁_bt.Enabled = True : 第二頁_bt.Enabled = True : 第三頁_bt.Enabled = True : 第四頁_bt.Enabled = True : 第五頁_bt.Enabled = True : 第六頁_bt.Enabled = True
        第七頁_bt.Enabled = True : 第八頁_bt.Enabled = True : 第九頁_bt.Enabled = True : 第十頁_bt.Enabled = False
        BB(0) = True : BB(1) = True : BB(2) = True : BB(3) = True : BB(4) = True : BB(5) = True : BB(6) = True : BB(7) = True : BB(8) = True : BB(9) = False
        Set_grid()
    End Sub
    Private Sub CheckBox24_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox24.Click
        If CheckBox24.Checked = True Then : CheckBox24.Checked = True : CheckBox25.Checked = False : Else : CheckBox24.Checked = False : CheckBox25.Checked = True : End If
    End Sub
    Private Sub CheckBox25_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox25.Click
        If CheckBox25.Checked = True Then : CheckBox24.Checked = False : CheckBox25.Checked = True : Else : CheckBox24.Checked = True : CheckBox25.Checked = False : End If
    End Sub
    Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
        aa = MsgBox("確定要CXL訂單?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            If TextBox7.Text = "" Or 天盾訂單號_tb.Text = "" Then
                MsgBox("沒有正確選擇要修改的資料")
            Else
                ConnOpen()
                If CheckBox24.Checked = False Then
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET CXL = '1', CXLTime = '" & Format(Today, "yyyy/MM/dd") & "' WHERE (資料流水號 = '" & TextBox7.Text & "')"
                ElseIf CheckBox24.Checked = True Then
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET CXL = '1', CXLTime = '" & Format(Today, "yyyy/MM/dd") & "' WHERE (訂單流水號 = '" & 天盾訂單號_tb.Text & "')"
                End If
                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
            End If
        End If
        Set_搜尋()
    End Sub
    Private Sub Button39_Click(sender As Object, e As EventArgs) Handles 修改PO_bt.Click
        If 天盾訂單號_tb.Text = "" Then
            MsgBox("沒有正確選擇要修改的資料")
        Else
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(1) & " SET 客戶訂單號 = '" & 客戶訂單號_tb.Text & "' WHERE (訂單流水號 LIKE '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(0) & " SET 客戶訂單號 = '" & 客戶訂單號_tb.Text & "' WHERE (天盾流水號 LIKE '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(5) & " SET 客戶訂單號 = '" & 客戶訂單號_tb.Text & "' WHERE (天盾流水號 LIKE '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(6) & " SET 客戶流水號 = '" & 客戶訂單號_tb.Text & "' WHERE (天盾訂單號 LIKE '" & 天盾訂單號_tb.Text & "')"
            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()
            MsgBox("修改完成")
        End If
        Set_搜尋()
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.CheckedChanged
        If CheckBox10.Checked = True Then : CheckBox10.Checked = True : CheckBox11.Checked = False : Else : CheckBox10.Checked = False : CheckBox11.Checked = True : End If
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.CheckedChanged
        If CheckBox11.Checked = True Then : CheckBox11.Checked = True : CheckBox10.Checked = False : Else : CheckBox11.Checked = False : CheckBox10.Checked = True : End If
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        aa = MsgBox("確定要將此產品訂單移到出貨?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            If TextBox7.Text = "" Or 天盾訂單號_tb.Text = "" Then : MsgBox("沒有正確選擇要修改的資料")
            Else : If ComboBox1.Text = "" Then : MsgBox("SEASON不能空白")
                Else : If 客戶訂單號_tb.Text = "" Then : MsgBox("VIONIC PO#不能空白")
                    Else : If ComboBox2.Text = "" Then : MsgBox("STYLE不能空白")
                        Else : If ComboBox3.Text = "" Then : MsgBox("COLOR不能空白")
                            Else : If ComboBox4.Text = "" Then : MsgBox("DM不能空白")
                                Else : If ComboBox5.Text = "" Then : MsgBox("FTY不能空白")
                                    Else : If DateTimePicker30.Format = DateTimePickerFormat.Custom Then : MsgBox("ACTUAL ex-fty不能空白")
                                        Else
                                            Dim EDR As Integer
                                            Dim EDRW As Integer
                                            If CheckBox10.Checked = True Then
                                                If TextBox12.Text = "" Or IsNumeric(TextBox12.Text) = False Then
                                                    MsgBox("出貨數量不可為空白或非數字型態")
                                                Else
                                                    DataGridView2.DataSource = Nothing : ds1.Clear()
                                                    DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                                                    DataGridView2.ColumnHeadersHeight = 25
                                                    DataGridView2.AllowUserToAddRows = False
                                                    ConnOpen()
                                                    SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期,
                                                                   CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 
                                                                   資料流水號,
                                                                   明細建檔, GOODBOX, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, 驗貨報告圖片 FROM " & 訂單資料表(1) & " 
                                                            WHERE (資料流水號 = '" & TextBox7.Text & "') AND (CXL = 0 OR CXL IS NULL)"
                                                    cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900
                                                    da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

                                                    For i As Integer = 0 To DataGridView2.Rows.Count - 1
                                                        GHJK = DataGridView2(35, i).Value.ToString
                                                        If GHJK = "" Then
                                                            MsgBox("驗貨報告不齊全，請重新確認。")
                                                            Set_搜尋() : 天盾訂單號_tb.Text = "" : TextBox7.Text = ""
                                                            Exit Sub
                                                        End If
                                                    Next
                                                    If DataGridView2.Rows(0).Cells("出貨數量").Value >= DataGridView2.Rows(0).Cells("訂單數量").Value Then
                                                        MsgBox("系統有誤，請通知系統管理員處理。")
                                                        Exit Sub
                                                    End If
                                                    ConnOpen()
                                                    SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC"
                                                    CmdSet_For_dr()
                                                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If
                                                    conn.Close()
                                                    EDR += 1
                                                    If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
                                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
                                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
                                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
                                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
                                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
                                                    ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
                                                    End If

                                                    ConnOpen()
                                                    SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, " &
                                                           "工廠價格, 實際離廠日, 匯款時間, 入帳時間, 貨款備註) " &
                                                           "VALUES ('" & ESTR & "','" & DataGridView2.Rows(0).Cells("資料流水號").Value & "','" & DataGridView2.Rows(0).Cells("訂單流水號").Value &
                                                           "','" & DataGridView2.Rows(0).Cells("年份季度").Value & "','" & DataGridView2.Rows(0).Cells("客戶訂單號").Value &
                                                           "','" & DataGridView2.Rows(0).Cells("形體號").Value & "','" & DataGridView2.Rows(0).Cells("顏色").Value &
                                                           "','" & DataGridView2.Rows(0).Cells("楦型").Value & "','" & DataGridView2.Rows(0).Cells("訂單數量").Value &
                                                           "','" & TextBox12.Text & "', '', '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', '', '', '')"
                                                    CmdSet_For_dr() : conn.Close()

                                                    EDRW = DataGridView2.Rows(0).Cells("出貨數量").Value + Double.Parse(TextBox12.Text)
                                                    ConnOpen()
                                                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET 實際離廠日 = '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', 出貨數量 = '" & EDRW & "' " &
                                                           "WHERE (資料流水號 = '" & TextBox7.Text & "')"
                                                    cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                                                End If
                                            Else
                                                DataGridView2.DataSource = Nothing : ds1.Clear()
                                                DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                                                DataGridView2.ColumnHeadersHeight = 25
                                                DataGridView2.AllowUserToAddRows = False
                                                ConnOpen()
                                                SQL1 = "SELECT 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期,
                                                               CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 
                                                               資料流水號,
                                                               明細建檔, GOODBOX, LEATHER, LEA_Note, CXL, CXLTime, 出貨數量, 驗貨報告圖片 FROM " & 訂單資料表(1) & " 
                                                        WHERE (訂單流水號 = '" & 天盾訂單號_tb.Text & "') AND (CXL = 0 OR CXL IS NULL)"
                                                cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900
                                                da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()

                                                For i As Integer = 0 To DataGridView2.Rows.Count - 1
                                                    GHJK = DataGridView2(35, i).Value.ToString
                                                    If GHJK = "" Then
                                                        MsgBox("驗貨報告不齊全，請重新確認。")
                                                        Set_搜尋() : 天盾訂單號_tb.Text = "" : TextBox7.Text = ""
                                                        Exit Sub
                                                    End If
                                                Next

                                                ConnOpen()
                                                SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC"
                                                CmdSet_For_dr()
                                                If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If
                                                conn.Close()

                                                For i As Integer = 0 To DataGridView2.Rows.Count - 1
                                                    EDR += 1
                                                    If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
                                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
                                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
                                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
                                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
                                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
                                                    ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
                                                    End If
                                                    ConnOpen()
                                                    If DataGridView2.Rows(i).Cells("出貨數量").Value = 0 Then
                                                        EDRW = DataGridView2.Rows(i).Cells("訂單數量").Value
                                                    Else
                                                        EDRW = DataGridView2.Rows(i).Cells("訂單數量").Value - DataGridView2.Rows(i).Cells("出貨數量").Value
                                                    End If
                                                    SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, " &
                                                       "工廠價格, 實際離廠日, 匯款時間, 入帳時間, 貨款備註) " &
                                                       "VALUES ('" & ESTR & "','" & DataGridView2.Rows(i).Cells("資料流水號").Value & "','" & DataGridView2.Rows(i).Cells("訂單流水號").Value &
                                                       "','" & DataGridView2.Rows(i).Cells("年份季度").Value & "','" & DataGridView2.Rows(i).Cells("客戶訂單號").Value &
                                                       "','" & DataGridView2.Rows(i).Cells("形體號").Value & "','" & DataGridView2.Rows(i).Cells("顏色").Value &
                                                       "','" & DataGridView2.Rows(i).Cells("楦型").Value & "','" & DataGridView2.Rows(i).Cells("訂單數量").Value &
                                                       "','" & EDRW & "', '', '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', '', '', '')"
                                                    CmdSet_For_dr() : conn.Close()
                                                Next i

                                                ConnOpen()
                                                SQL1 = "UPDATE " & 訂單資料表(1) & " SET 實際離廠日 = '" & Format(DateTimePicker30.Value, "yyyy/MM/dd") & "', 出貨數量 = 訂單數量 " &
                                                   "WHERE (訂單流水號 = '" & 天盾訂單號_tb.Text & "')"
                                                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
                                            End If
                                            MsgBox("出貨資料作業完成")
                                        End If : End If : End If : End If : End If : End If : End If : End If
        End If
        Set_搜尋() : 天盾訂單號_tb.Text = "" : TextBox7.Text = ""
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        驗貨報告大圖.ShowDialog()
    End Sub
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        PictureBox2.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : PictureBox2.Refresh() : PictureBox2.SizeMode = 4
    End Sub
    Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged
        If Val(TextBox12.Text) > Val(TextBox13.Text) Then
            MsgBox("出貨數量不可大於可出貨數量") : TextBox12.Text = "0"
        End If
    End Sub
    Private Sub 列印明細_bt_Click(sender As Object, e As EventArgs) Handles 列印明細_bt.Click
        列印_訂單明細表.Show()
    End Sub
    Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
        SQL_訂單資料表選擇_VIONIC() : SQL宣告() : 返回_bt.PerformClick()
    End Sub
    Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
        SQL_訂單資料表選擇_非VIONIC() : SQL宣告() : 返回_bt.PerformClick()
    End Sub
    Private Sub 訂單明細_bt_Click(sender As Object, e As EventArgs) Handles 訂單明細_bt.Click
        訂單明細_bt.Enabled = False : 裝箱資訊_bt.Enabled = True : 裝箱明細_bt.Enabled = True : 明細表_dgv.Visible = True : 裝箱明細_dgv.Visible = False : 資訊_gb.Visible = False
    End Sub
    Private Sub 裝箱資訊_bt_Click(sender As Object, e As EventArgs) Handles 裝箱資訊_bt.Click
        訂單明細_bt.Enabled = True : 裝箱資訊_bt.Enabled = False : 裝箱明細_bt.Enabled = True : 明細表_dgv.Visible = False : 裝箱明細_dgv.Visible = False : 資訊_gb.Visible = True
    End Sub
    Private Sub 裝箱明細_bt_Click(sender As Object, e As EventArgs) Handles 裝箱明細_bt.Click
        訂單明細_bt.Enabled = True : 裝箱資訊_bt.Enabled = True : 裝箱明細_bt.Enabled = False : 明細表_dgv.Visible = False : 裝箱明細_dgv.Visible = True : 資訊_gb.Visible = False
    End Sub
    Private Sub 啟用批量出貨_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 啟用批量出貨_ch.Click
        If 啟用批量出貨_ch.Checked = False Then
            批量出貨_bt.Enabled = False
        Else
            批量出貨_bt.Enabled = True
        End If
    End Sub
    Private Sub 進度條()
        平均數 = 10000 / 資料數
        最終數 += 平均數
        If 最終數 > 10000 Then : 最終數 = 10000 : End If
        ProgressBar1.Value = 最終數
    End Sub
    Private Sub 批量出貨_bt_Click(sender As Object, e As EventArgs) Handles 批量出貨_bt.Click
        aa = MsgBox("執行批量出貨之前需要在訂單控制表清單中先勾選要出貨的資料，請確定你已完成出貨資料選擇?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            Dim EDR As Integer
            For I As Integer = 0 To 控制表_dgv.Rows.Count - 1
                資料數 = 控制表_dgv.Rows.Count : 進度條()
                If 控制表_dgv("選擇", I).Value = True And 控制表_dgv("驗貨報告圖片", I).Value.ToString <> "" Then
                    ConnOpen()
                    SQL1 = "SELECT TOP (1) 貨款流水號 FROM 貨款匯入出款明細表 ORDER BY 貨款流水號 DESC"
                    CmdSet_For_dr()
                    If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("貨款流水號").ToString, 8)) : Else : EDR = 0 : End If
                    conn.Close()
                    EDR += 1
                    If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
                    ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
                    End If
                    ConnOpen()
                    SQL1 = "INSERT INTO 貨款匯入出款明細表 (貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 出貨數量, 工廠價格, 實際離廠日, 
                                                            匯款時間, 入帳時間, 貨款備註) 
                            VALUES ('" & ESTR & "','" & 控制表_dgv.Rows(I).Cells("資料流水號").Value & "','" & 控制表_dgv.Rows(I).Cells("訂單流水號").Value &
                                                       "','" & 控制表_dgv.Rows(I).Cells("年份季度").Value & "','" & 控制表_dgv.Rows(I).Cells("客戶訂單號").Value &
                                                       "','" & 控制表_dgv.Rows(I).Cells("形體號").Value & "','" & 控制表_dgv.Rows(I).Cells("顏色").Value &
                                                       "','" & 控制表_dgv.Rows(I).Cells("楦型").Value & "','" & 控制表_dgv.Rows(I).Cells("訂單數量").Value &
                                                       "','" & 控制表_dgv.Rows(I).Cells("訂單數量").Value & "', '', '" & 控制表_dgv.Rows(I).Cells("工廠回復交期").Value & "', '', '', '')"
                    CmdSet_For_dr()
                    '--------------------------------------------------------------------------------------------------------------------------------------------------------------------
                    ConnOpen()
                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET 實際離廠日 = '" & 控制表_dgv.Rows(I).Cells("工廠回復交期").Value & "', 出貨數量 = 訂單數量 " &
                                                   "WHERE (訂單流水號 = '" & 控制表_dgv.Rows(I).Cells("訂單流水號").Value & "')"
                    CmdSet_For_dr() : conn.Close()
                End If
            Next : ProgressBar1.Value = 0 : 最終數 = 0
        End If : MsgBox("出貨資料作業完成") : Set_搜尋()
    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("選擇", I).Value = True
        Next
    End Sub
End Class