20231028備份

YD-ERP-SYS/Module/SQL_財務系統管理.vb

     End Sub
     Friend Sub SQL_今日結算()
         ConnOpen()
-        SQL1 = "SELECT 日期, 流水號, 銀行, 狀態, 前日結存, 現金, 匯款, [刷卡/支票], 支出, 備註, 當日結存
+        SQL1 = "SELECT 日期, 流水號, 銀行, 狀態, 前日結存, 現金, 匯款, [刷卡/支票], 支出, 支出 AS [支出(不含刷卡)], 備註, 當日結存
                 FROM   YD客製報表2
                 WHERE (日期 LIKE '" & PA & "') ORDER BY 銀行"
         CmdSet_For_DGV()

YD-ERP-SYS/Module/全域變數.vb

     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023092201"
+    Public 版本 As String = "2023101901"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/業務系統管理/銷售單申請.vb

             PA = 營運成本收支單號_tb.Text : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
             PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單6()
             MsgBox("退單完成!!")
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" And 收款事項_dgv.Rows(i).Cells("金額").Value <> 0 Then
+                    轉高層_cb.Checked = False
+                    DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
+                    PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
+                    NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'"
+                    SQL_銷售控制表_修改() : Exit For '--------------------資料修改
+                End If
+            Next : Set_清單1()
         End If
     End Sub
     Private Sub Set_流水號()
         Else
             MsgBox("沒有滿足可以轉財務的需求!!!")
         End If
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" And 收款事項_dgv.Rows(i).Cells("金額").Value = 0 Then
+                轉高層_cb.Checked = True : 交貨日期_dtp.Value = 申請日期_dtp.Value
+                DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text
+                PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text
+                NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'"
+                SQL_銷售控制表_修改() : Exit For  '--------------------資料修改
+            End If
+        Next : Set_清單1()
     End Sub
     Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click
         If 流水號_tb.Text = "" Then

YD-ERP-SYS/財務系統管理/高層客製報表.Designer.vb

         Me.順向_ch = New System.Windows.Forms.CheckBox()
         Me.空間1 = New System.Windows.Forms.Panel()
         Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.今日出貨_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.今日簽單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(55, 16)
         Me.Label11.TabIndex = 1574
-        Me.Label11.Text = "今日送貨"
+        Me.Label11.Text = "今日結單"
         '
         'Label12
         '
         Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 180)
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 176)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle11.SelectionForeColor = System.Drawing.Color.White
         DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
         Me.明細_dgv.DefaultCellStyle = DataGridViewCellStyle11
-        Me.明細_dgv.Location = New System.Drawing.Point(3, 312)
+        Me.明細_dgv.Location = New System.Drawing.Point(3, 343)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(572, 363)
+        Me.明細_dgv.Size = New System.Drawing.Size(572, 332)
         Me.明細_dgv.TabIndex = 1578
         '
         '帶入格_tb
         Me.Panel1.Controls.Add(Me.S1_tb)
         Me.Panel1.Controls.Add(Me.未審核_lb)
         Me.Panel1.Controls.Add(Me.業務_cb)
-        Me.Panel1.Location = New System.Drawing.Point(9, 333)
+        Me.Panel1.Location = New System.Drawing.Point(39, 377)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(485, 147)
         Me.Panel1.TabIndex = 1582
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.空間1.BackColor = System.Drawing.Color.White
         Me.空間1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.空間1.Controls.Add(Me.Label16)
         Me.空間1.Controls.Add(Me.Label13)
         Me.空間1.Controls.Add(Me.今日開單_dgv)
         Me.空間1.Controls.Add(Me.Panel1)
         Me.Label15.TabIndex = 1584
         Me.Label15.Text = "_________________________________________________________________________________" &
     "__________________________________"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Blue
+        Me.Label16.Location = New System.Drawing.Point(4, 309)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(535, 32)
+        Me.Label16.TabIndex = 1585
+        Me.Label16.Text = "如果收支單上有財轉過來的收入，但是簽單結單沒有看到資料，那表示這張單付款次數有三筆以上。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "滑鼠點選下方資料時，會自動判斷是否是系統財轉單，如果是會自動調出銷售資" &
+    "料。"
         '
         '高層客製報表
         '
     Friend WithEvents 逆向_ch As CheckBox
     Friend WithEvents 順向_ch As CheckBox
     Friend WithEvents 過去結算_dgv As DataGridView
+    Friend WithEvents Label16 As Label
 End Class

YD-ERP-SYS/財務系統管理/高層客製報表.vb

         PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
         SQL_今日支出()
         da.Fill(ds3) : 今日支出_dgv.DataSource = ds3.Tables(0) : conn.Close()
-        今日支出_dgv.Columns(0).Visible = False : 今日支出_dgv.Columns(1).Visible = False : 今日支出_dgv.Columns(10).Visible = False
+        今日支出_dgv.Columns(0).Visible = False : 今日支出_dgv.Columns(1).Visible = False : 今日支出_dgv.Columns(10).Visible = False : 今日支出_dgv.Columns(4).FillWeight = 250
         今日支出_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 今日支出_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
         今日支出_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 今日支出_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
         今日支出_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
         SQL_今日結算()
         da.Fill(ds) : 今日結算_dgv.DataSource = ds.Tables(0) : conn.Close()
-        今日結算_dgv.Columns(0).Visible = False : 今日結算_dgv.Columns(1).Visible = False
-        今日結算_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
-        今日結算_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
-        今日結算_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
+        今日結算_dgv.Columns(0).Visible = False : 今日結算_dgv.Columns(1).Visible = False : 今日結算_dgv.Columns("支出(不含刷卡)").ReadOnly = True
+        今日結算_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        今日結算_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 今日結算_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
+        今日結算_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
         今日結算_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         今日結算_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         今日結算_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         今日結算_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         今日結算_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        今日結算_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        今日結算_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        今日結算_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         今日結算_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Dim 合計 As Integer = 0
+        For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
+            If i = 0 Then
+                今日結算_dgv("支出(不含刷卡)", i).Value = 0
+            Else
+                If 今日結算_dgv(2, i).Value.ToString <> "7.合計" Then
+                    今日結算_dgv("支出(不含刷卡)", i).Value = 今日結算_dgv("支出", i).Value : 合計 += 今日結算_dgv("支出", i).Value
+                Else
+                    今日結算_dgv("支出(不含刷卡)", i).Value = 合計
+                End If
+            End If
+        Next
     End Sub
     Private Sub Set_清單4_1()
         過去結算_dgv.DataSource = Nothing : ds8.Clear()
         da.Fill(ds8) : 過去結算_dgv.DataSource = ds8.Tables(0) : conn.Close()
         過去結算_dgv.Columns(0).Visible = False : 過去結算_dgv.Columns(1).Visible = False : 過去結算_dgv.Columns(3).Visible = False : 過去結算_dgv.Columns(5).Visible = False
         過去結算_dgv.Columns(6).Visible = False : 過去結算_dgv.Columns(7).Visible = False : 過去結算_dgv.Columns(8).Visible = False : 過去結算_dgv.Columns(9).Visible = False
-        過去結算_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
-        過去結算_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
-        過去結算_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
+        過去結算_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
+        過去結算_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 過去結算_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
+        過去結算_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
         過去結算_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過去結算_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過去結算_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過去結算_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         過去結算_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        過去結算_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        過去結算_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單4_自動判斷2()
     End Sub
     Private Sub Set_清單4_自動判斷2()
         If 過去結算_dgv.Rows.Count > 0 Then
             If 順向_ch.Checked = True Then
-                For I As Integer = 0 To 過去結算_dgv.Rows.Count - 1 : 今日結算_dgv(4, I).Value = 過去結算_dgv(10, I).Value.ToString : Next
+                For I As Integer = 0 To 過去結算_dgv.Rows.Count - 1 : 今日結算_dgv(4, I).Value = 過去結算_dgv(11, I).Value.ToString : Next
             Else
-                For I As Integer = 0 To 過去結算_dgv.Rows.Count - 1 : 今日結算_dgv(10, I).Value = 過去結算_dgv(4, I).Value.ToString : Next
+                For I As Integer = 0 To 過去結算_dgv.Rows.Count - 1 : 今日結算_dgv(11, I).Value = 過去結算_dgv(4, I).Value.ToString : Next
             End If : Set_今日結算_dgv_計算()
         End If
     End Sub
         While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close()
     End Sub
     Private Sub 高層客製報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        YD_ERP_SYS.WindowState = 2 : Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         A1 = 空間1.Location.X : A2 = 空間2.Location.X : B2 = 空間2.Location.Y : A3 = 空間2.Size.Width : B3 = 空間2.Size.Height
         啟動運算 = False
         業務_cb_下拉表單資料載入()
         End If
         啟動運算 = True : ZOOM_tb.PerformClick()
     End Sub
+    Private Sub 高層客製報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        YD_ERP_SYS.WindowState = 0
+    End Sub
     Private Sub 高層客製報表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         Set_清單5() : Set_清單6() : Set_費用清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單4_自動判斷() : Set_清單4_自動判斷()
     End Sub
             S3_tb.Text = 明細_dgv(3, e.RowIndex).Value.ToString : S4_tb.Text = 明細_dgv(4, e.RowIndex).Value.ToString
             S5_tb.Text = 明細_dgv(5, e.RowIndex).Value.ToString : S6_tb.Text = 明細_dgv(6, e.RowIndex).Value.ToString
             S7_tb.Text = 明細_dgv(7, e.RowIndex).Value.ToString : S8_tb.Text = 明細_dgv(8, e.RowIndex).Value.ToString
+            If IsNumeric(Strings.Mid(明細_dgv(3, e.RowIndex).Value.ToString, 2, 5)) Then
+                單號_tb.Text = Strings.Left(明細_dgv(3, e.RowIndex).Value.ToString, 7) : Set_清單7()
+            End If
         End If
     End Sub
     Private Sub 今日結算_dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles 今日結算_dgv.CellDoubleClick
         For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
             If 今日結算_dgv(2, i).Value.ToString <> "7.合計" Then
                 If 順向_ch.Checked = True Then
-                    今日結算_dgv(10, i).Value = 今日結算_dgv(4, i).Value + 今日結算_dgv(5, i).Value + 今日結算_dgv(6, i).Value + 今日結算_dgv(7, i).Value - 今日結算_dgv(8, i).Value
+                    今日結算_dgv(11, i).Value = 今日結算_dgv(4, i).Value + 今日結算_dgv(5, i).Value + 今日結算_dgv(6, i).Value + 今日結算_dgv(7, i).Value - 今日結算_dgv(8, i).Value
                 Else
-                    今日結算_dgv(4, i).Value = 今日結算_dgv(10, i).Value + 今日結算_dgv(8, i).Value - 今日結算_dgv(7, i).Value - 今日結算_dgv(6, i).Value - 今日結算_dgv(5, i).Value
+                    今日結算_dgv(4, i).Value = 今日結算_dgv(11, i).Value + 今日結算_dgv(8, i).Value - 今日結算_dgv(7, i).Value - 今日結算_dgv(6, i).Value - 今日結算_dgv(5, i).Value
                 End If
                 A4 += 今日結算_dgv(4, i).Value : A5 += 今日結算_dgv(5, i).Value : A6 += 今日結算_dgv(6, i).Value : A7 += 今日結算_dgv(7, i).Value
-                A8 += 今日結算_dgv(8, i).Value : A10 += 今日結算_dgv(10, i).Value
+                A8 += 今日結算_dgv(8, i).Value : A10 += 今日結算_dgv(11, i).Value
             End If
         Next
         For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
             If 今日結算_dgv(2, i).Value.ToString = "7.合計" Then
                 今日結算_dgv(4, i).Value = A4 : 今日結算_dgv(5, i).Value = A5 : 今日結算_dgv(6, i).Value = A6 : 今日結算_dgv(7, i).Value = A7
-                今日結算_dgv(8, i).Value = A8 : 今日結算_dgv(10, i).Value = A10
+                今日結算_dgv(8, i).Value = A8 : 今日結算_dgv(11, i).Value = A10
+            End If
+        Next
+        Dim 合計 As Integer = 0
+        For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
+            If i = 0 Then
+                今日結算_dgv("支出(不含刷卡)", i).Value = 0
+            Else
+                If 今日結算_dgv(2, i).Value.ToString <> "7.合計" Then
+                    今日結算_dgv("支出(不含刷卡)", i).Value = 今日結算_dgv("支出", i).Value : 合計 += 今日結算_dgv("支出", i).Value
+                Else
+                    今日結算_dgv("支出(不含刷卡)", i).Value = 合計
+                End If
             End If
         Next
     End Sub
         For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
             PA1 = 今日結算_dgv("流水號", i).Value.ToString : PA4 = 今日結算_dgv(4, i).Value.ToString : PA5 = 今日結算_dgv(5, i).Value.ToString
             PA6 = 今日結算_dgv(6, i).Value.ToString : PA7 = 今日結算_dgv(7, i).Value.ToString : PA8 = 今日結算_dgv(8, i).Value.ToString
-            PA9 = 今日結算_dgv(9, i).Value.ToString : PA10 = 今日結算_dgv(10, i).Value.ToString
+            PA9 = 今日結算_dgv(10, i).Value.ToString : PA10 = 今日結算_dgv(11, i).Value.ToString
             SQL_客製表2_修改()
         Next
     End Sub
         For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
             PA1 = 今日結算_dgv("流水號", i).Value.ToString : PA4 = 今日結算_dgv(4, i).Value.ToString : PA5 = 今日結算_dgv(5, i).Value.ToString
             PA6 = 今日結算_dgv(6, i).Value.ToString : PA7 = 今日結算_dgv(7, i).Value.ToString : PA8 = 今日結算_dgv(8, i).Value.ToString
-            PA9 = 今日結算_dgv(9, i).Value.ToString : PA10 = 今日結算_dgv(10, i).Value.ToString
+            PA9 = 今日結算_dgv(10, i).Value.ToString : PA10 = 今日結算_dgv(11, i).Value.ToString
             SQL_客製表2_修改()
         Next
     End Sub