修改中文樣品單拷貝單據時因簡繁體字行造成的BUG

Signed-off-by: B70340 <b70340@gmail.com>

TENDEN-MES-SYS/Module/Module1.vb

@@ -4,7 +4,7 @@
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020061101"
+    Public 版本 As String = "2020071001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public SQL1 As String
     Public 匯率 As Double

TENDEN-MES-SYS/樣品訂單管理/中文樣品單.vb

@@ -1121,7 +1121,7 @@ Public Class 中文樣品單
                     SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, " &
                            "確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.面料 " &
                            "WHERE (確認樣品單明細表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單明細表.樣品流水號二, 1) LIKE 1) AND " &
-                           "(確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
+                           "(確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                     For ii As Integer = 0 To DataGridView9.Rows.Count - 1
                         If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & "0" & ii + 1
@@ -1142,7 +1142,7 @@ Public Class 中文樣品單
                     SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, " &
                            "確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.內裏 " &
                            "WHERE (確認樣品單明細表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單明細表.樣品流水號二, 1) LIKE 2) AND " &
-                           "(確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
+                           "(確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                     For ii As Integer = 0 To DataGridView9.Rows.Count - 1
                         If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & "0" & ii + 1
@@ -1163,7 +1163,7 @@ Public Class 中文樣品單
                     SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, " &
                            "確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.底部 " &
                            "WHERE (確認樣品單明細表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單明細表.樣品流水號二, 1) LIKE 3) AND " &
-                           "(確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
+                           "(確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                     For ii As Integer = 0 To DataGridView9.Rows.Count - 1
                         If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & "0" & ii + 1
@@ -1184,7 +1184,7 @@ Public Class 中文樣品單
                     SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, " &
                            "確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.飾物 " &
                            "WHERE (確認樣品單明細表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單明細表.樣品流水號二, 1) LIKE 4) AND " &
-                           "(確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
+                           "(確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
                     cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                     For ii As Integer = 0 To DataGridView9.Rows.Count - 1
                         If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & "0" & ii + 1
@@ -1231,7 +1231,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表暫存檔.顏色, 確認樣品單控制表暫存檔.面料 AS 樣品流水號二, 確認樣品單明細表暫存檔.樣品流水號三, 確認樣品單明細表暫存檔.細項, 確認樣品單明細表暫存檔.內容, " &
                        "確認樣品單明細表暫存檔.廠商, 確認樣品單明細表暫存檔.樣品流水號 FROM 確認樣品單控制表暫存檔 LEFT OUTER JOIN 確認樣品單明細表暫存檔 ON 確認樣品單控制表暫存檔.面料 = " &
-                       "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                       "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                        "AND (確認樣品單控制表暫存檔.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表暫存檔.面料, 1) LIKE 1)  ORDER BY   確認樣品單明細表暫存檔.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1256,7 +1256,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單控制表.面料 AS 樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, " &
                        "確認樣品單明細表.廠商, 確認樣品單明細表.樣品流水號 FROM 確認樣品單控制表 LEFT OUTER JOIN 確認樣品單明細表 ON 確認樣品單控制表.面料 = " &
-                       "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                       "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                        "AND (確認樣品單控制表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表.面料, 1) LIKE 1) ORDER BY   確認樣品單明細表.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1282,7 +1282,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表暫存檔.顏色, 確認樣品單控制表暫存檔.內裏 AS 樣品流水號二, 確認樣品單明細表暫存檔.樣品流水號三, 確認樣品單明細表暫存檔.細項, 確認樣品單明細表暫存檔.內容, " &
                            "確認樣品單明細表暫存檔.廠商, 確認樣品單明細表暫存檔.樣品流水號 FROM 確認樣品單控制表暫存檔 LEFT OUTER JOIN 確認樣品單明細表暫存檔 ON 確認樣品單控制表暫存檔.內裏 = " &
-                           "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                           "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                            "AND (確認樣品單控制表暫存檔.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表暫存檔.內裏, 1) LIKE 2)  ORDER BY   確認樣品單明細表暫存檔.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1307,7 +1307,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單控制表.內裏 AS 樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, " &
                            "確認樣品單明細表.廠商, 確認樣品單明細表.樣品流水號 FROM 確認樣品單控制表 LEFT OUTER JOIN 確認樣品單明細表 ON 確認樣品單控制表.內裏 = " &
-                           "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                           "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                            "AND (確認樣品單控制表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表.內裏, 1) LIKE 2) ORDER BY   確認樣品單明細表.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1333,7 +1333,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表暫存檔.顏色, 確認樣品單控制表暫存檔.底部 AS 樣品流水號二, 確認樣品單明細表暫存檔.樣品流水號三, 確認樣品單明細表暫存檔.細項, 確認樣品單明細表暫存檔.內容, " &
                        "確認樣品單明細表暫存檔.廠商, 確認樣品單明細表暫存檔.樣品流水號 FROM 確認樣品單控制表暫存檔 LEFT OUTER JOIN 確認樣品單明細表暫存檔 ON 確認樣品單控制表暫存檔.底部 = " &
-                       "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                       "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                        "AND (確認樣品單控制表暫存檔.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表暫存檔.底部, 1) LIKE 3)  ORDER BY   確認樣品單明細表暫存檔.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1358,7 +1358,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單控制表.底部 AS 樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, " &
                        "確認樣品單明細表.廠商, 確認樣品單明細表.樣品流水號 FROM 確認樣品單控制表 LEFT OUTER JOIN 確認樣品單明細表 ON 確認樣品單控制表.底部 = " &
-                       "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                       "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                        "AND (確認樣品單控制表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表.底部, 1) LIKE 3) ORDER BY   確認樣品單明細表.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1384,7 +1384,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表暫存檔.顏色, 確認樣品單控制表暫存檔.飾物 AS 樣品流水號二, 確認樣品單明細表暫存檔.樣品流水號三, 確認樣品單明細表暫存檔.細項, 確認樣品單明細表暫存檔.內容, " &
                        "確認樣品單明細表暫存檔.廠商, 確認樣品單明細表暫存檔.樣品流水號 FROM 確認樣品單控制表暫存檔 LEFT OUTER JOIN 確認樣品單明細表暫存檔 ON 確認樣品單控制表暫存檔.飾物 = " &
-                       "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                       "確認樣品單明細表暫存檔.樣品流水號二 WHERE (確認樣品單控制表暫存檔.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                        "AND (確認樣品單控制表暫存檔.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表暫存檔.飾物, 1) LIKE 4)  ORDER BY   確認樣品單明細表暫存檔.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -1409,7 +1409,7 @@ Public Class 中文樣品單
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單控制表.飾物 AS 樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, " &
                        "確認樣品單明細表.廠商, 確認樣品單明細表.樣品流水號 FROM 確認樣品單控制表 LEFT OUTER JOIN 確認樣品單明細表 ON 確認樣品單控制表.飾物 = " &
-                       "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE '" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
+                       "確認樣品單明細表.樣品流水號二 WHERE (確認樣品單控制表.顏色 LIKE N'" & DataGridView4.Rows(i).Cells("顏色").Value & "') " &
                        "AND (確認樣品單控制表.樣品流水號 LIKE '" & TextBox3.Text & "') AND (RIGHT(確認樣品單控制表.飾物, 1) LIKE 4) ORDER BY   確認樣品單明細表.樣品流水號三 DESC"
                 cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : DataGridView9.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
@@ -2167,17 +2167,17 @@ Public Class 中文樣品單
             PA = InputBox("請輸入關鍵字")
             Set_DGV2載入前設定()
             SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 " &
-                   "WHERE 類型 LIKE '%產地標%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE '%" & PA & "%') ORDER BY   類型, 形體名, 形體號, 顏色"
+                   "WHERE 類型 LIKE '%產地標%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE N'%" & PA & "%') ORDER BY   類型, 形體名, 形體號, 顏色"
             Set_DGV2載入後設定() : Set_grid1()
         ElseIf Button15.Enabled = True And Button16.Enabled = True And Button17.Enabled = False And Button42.Enabled = True And Button44.Enabled = True Then
             PA = InputBox("請輸入關鍵字")
             Set_DGV3載入前設定()
             If 開發部門 = False And 確認部門 = True Then
                 SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 " &
-                       "WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '確認%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE '%" & PA & "%') ORDER BY   類型, 形體名, 形體號, 顏色"
+                       "WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '確認%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE N'%" & PA & "%') ORDER BY   類型, 形體名, 形體號, 顏色"
             ElseIf 開發部門 = True And 確認部門 = False Then
                 SQL1 = "SELECT 形體名, 形體號, 顏色, 類型, 圖片編號 FROM 圖片庫一 " &
-                       "WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '開發%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE '%" & PA & "%') ORDER BY   類型, 形體名, 形體號, 顏色"
+                       "WHERE 類型 NOT LIKE '%產地標' AND 類型 LIKE '開發%' AND (形體名 LIKE '%" & PA & "%' OR 形體號 LIKE '%" & PA & "%' OR 顏色 LIKE N'%" & PA & "%') ORDER BY   類型, 形體名, 形體號, 顏色"
             End If
             Set_DGV3載入後設定() : Set_grid2()
         ElseIf Button15.Enabled = True And Button16.Enabled = True And Button17.Enabled = True And Button42.Enabled = False And Button44.Enabled = True Then