1.
Private
Sub
btnDel_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
btnDel.Click
2.
If
Me
.DTVdata.Rows.Count = 1
Then
Exit
Sub
3.
If
MessageBox.Show(
"Are you sure you want to delete ?"
,
"Confirm"
, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes
Then
4.
ds.Tables(
"table_name"
).Rows(
Me
.DTVdata.CurrentRow.Index).Delete()
5.
ds.AcceptChanges()
6.
End
If
7.
8.
End
Sub