WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/07、樣品訂單管理系統/樣品單資料庫除錯_1.vb

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