Option Strict Off Public Class 樣品單資料庫除錯_1 Private Sub Set_清單() Dim ds As New DataSet 除錯_dgv.DataSource = Nothing : ds.Clear() 除錯_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 除錯_dgv.ColumnHeadersHeight = 25 除錯_dgv.AllowUserToAddRows = False SQL_除錯清單() da.Fill(ds) : 除錯_dgv.DataSource = ds.Tables(0) : conn.Close() '除錯_dgv.Columns(0).Width = 120 : 除錯_dgv.Columns(1).Width = 120 : 除錯_dgv.Columns(2).Width = 120 : 除錯_dgv.Columns(3).Width = 120 End Sub Private Sub 樣品單資料庫除錯_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Set_清單() End Sub Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 除錯_dgv.CellClick If e.RowIndex = -1 Then : Else so_tb.Text = 除錯_dgv(0, e.RowIndex).Value.ToString : PA = 除錯_dgv(0, e.RowIndex).Value.ToString 流水號_tb.Text = 除錯_dgv(1, e.RowIndex).Value.ToString : PA1 = 除錯_dgv(1, e.RowIndex).Value.ToString End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click If so_tb.Text = "" Then MsgBox("沒有選擇要刪除的資料") Else Dim aa As MsgBoxResult aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then SQL_刪除樣品訂單部件表4() dr.Close() : conn.Close() MsgBox("刪除完成") : Set_清單() End If End If End Sub End Class