Question

我添加了一个删除按钮，用于从DataGridView中删除数据，它会立即删除，但我想在删除之前询问您是否要删除。如何将此功能添加到此按钮？

到目前为止，这是我的代码：

Private Sub Table_RKMBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Me.Validate()
    Me.Table_RKMBindingSource.EndEdit()
    Me.TableAdapterManager.UpdateAll(Me.RKM_System_dataDataSet)

End Sub

Private Sub Management_Window_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'RKM_System_dataDataSet.Table_RKM' table. You can move, or remove it, as needed.
    Me.Table_RKMTableAdapter.Fill(Me.RKM_System_dataDataSet.Table_RKM)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Table_RKMBindingSource.AddNew()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Table_RKMBindingSource.EndEdit()
    Table_RKMTableAdapter.Update(Me.RKM_System_dataDataSet.Table_RKM)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Table_RKMBindingSource.RemoveCurrent()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Table_RKMBindingSource.EndEdit()
    Search_Window.Show()
    Table_RKMTableAdapter.Update(Me.RKM_System_dataDataSet.Table_RKM)
    Me.Close()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Me.WindowState = FormWindowState.Minimized
End Sub

Private Sub Table_RKMDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_RKMDataGridView.CellContentClick

End Sub

谢谢。

Answer 1

您可以使用消息框：

在Button3_Click事件中添加以下代码：

Dim answer as Integer
answer = MessageBox.Show("Your Message", "Your title", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If not answer = 6 then Table_RKMBindingSource.RemoveCurrent()

这应该有效：）

在删除vb express 2008之前询问

1 个答案: