How to delete a row in a datagrid!!!

[macupryk]

I have the following subroutine:

#Region " DataGrid MouseUp Event "

Private Sub highLightRow(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim pt = New Point(e.X, e.Y)
Dim grd As DataGrid = CType(sender, DataGrid)
Dim hit As DataGrid.HitTestInfo = grd.HitTest(pt)

If hit.Type = grd.HitTestType.Cell Then
grd.CurrentCell = New DataGridCell(hit.Row, hit.Column)
grd.Select(hit.Row)
End If
End Sub


#End Region

Now I need to get column1 , column2, column3
and assign them in the below parameters.

My question is how do I get the when I highlight the row and click on the delete button from a toolbar?


Public Sub doDelete()
' MDI Main Delete record requ3est toolbar button pressed
'if no records are displayed on the grid exist then exit
Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("FinSolMainDBConn")
Dim connfinsol As New System.Data.SqlClient.SqlConnection(ConnectionString)
Dim myCommand As New SqlCommand("stp_DelTransOverride ", connfinsol)
myCommand.CommandType = CommandType.StoredProcedure

'Add Parameters
' 1 Policy Number
myCommand.Parameters.Add("@Policy_Nbr", SqlDbType.VarChar, 7).Value =

' 2 Original Tranaction Override
myCommand.Parameters.Add("@Trans_CodeOrig", SqlDbType.VarChar, 6).Value =

' 3 Transaction Effective Date
myCommand.Parameters.Add("@Trans_Eff_Date", SqlDbType.DateTime, 8).Value =

'Open Connection
Try
'Open Connection
connfinsol.Open()
myCommand.ExecuteNonQuery()
MsgBox("Data Saved Successfully !", MsgBoxStyle.Information, Me.Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text)
Finally
If myCommand.Connection.State = ConnectionState.Open Then
myCommand.Connection.Close()
End If
End Try

End Sub

I have the load sub routine also
Private Sub TransOverride_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DataGridTextBoxColumn1 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn2 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn3 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn4 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn5 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn6 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn7 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn8 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn9 As New DataGridTextBoxColumn
Dim DataGridTextBoxColumn10 As New DataGridTextBoxColumn
Dim DataGridTableStyle1 As New DataGridTableStyle

Me.SqlDataAdapter1.Fill(Me.DsTransOverride1)
'Step 1: Create a DataGridTableStyle &
' set mappingname to table.

'
'DataGridTableStyle1
'
DataGrid1.TableStyles.Clear()
DataGridTableStyle1.DataGrid = Me.DataGrid1
DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
DataGridTableStyle1.MappingName = "dbo_stp_SelTransOverrides"



'Step 2: Create DataGridColumnStyle for each col
'
'DataGridTextBoxColumn1
'
DataGridTextBoxColumn1.HeaderText = "Account Name"
DataGridTextBoxColumn1.MappingName = "Account Name"
DataGridTextBoxColumn1.Width = 200
DataGridTextBoxColumn1.ReadOnly = True
DataGridTextBoxColumn1.Alignment = HorizontalAlignment.Left
DataGridTextBoxColumn1.TextBox.Enabled = True
DataGridTextBoxColumn1.TextBox.Multiline = True
DataGridTextBoxColumn1.TextBox.WordWrap = True
DataGridTextBoxColumn1.TextBox.CharacterCasing = CharacterCasing.Upper
DataGridTextBoxColumn1.Format = ""
DataGridTextBoxColumn1.FormatInfo = Nothing
DataGridTableStyle1.GridColumnStyles.Add(DataGridTextBoxColumn1)

'
'DataGridTextBoxColumn2
'
DataGridTextBoxColumn2.HeaderText = "Policy Number"
DataGridTextBoxColumn2.MappingName = "Policy Number"
DataGridTextBoxColumn2.Width = 78
DataGridTextBoxColumn2.ReadOnly = True
DataGridTextBoxColumn2.Alignment = HorizontalAlignment.Left
DataGridTextBoxColumn2.TextBox.Enabled = True
DataGridTextBoxColumn2.TextBox.Multiline = True
DataGridTextBoxColumn2.TextBox.WordWrap = True
DataGridTextBoxColumn2.TextBox.CharacterCasing = CharacterCasing.Upper
DataGridTextBoxColumn2.Format = ""
DataGridTextBoxColumn2.FormatInfo = Nothing
DataGridTableStyle1.GridColumnStyles.Add(DataGridTextBoxColumn2)
'
'DataGridTextBoxColumn3
'
DataGridTextBoxColumn3.HeaderText = "Original Trans." & vbCrLf & "Code"
DataGridTextBoxColumn3.MappingName = "Original Transaction Code"
DataGridTextBoxColumn3.Width = 80
DataGridTextBoxColumn3.ReadOnly = True
DataGridTextBoxColumn3.Alignment = HorizontalAlignment.Left
DataGridTextBoxColumn3.TextBox.Enabled = True
DataGridTextBoxColumn3.TextBox.Multiline = True
DataGridTextBoxColumn3.TextBox.WordWrap = True
DataGridTextBoxColumn3.TextBox.CharacterCasing = CharacterCasing.Upper
DataGridTextBoxColumn3.Format = ""
DataGridTextBoxColumn3.FormatInfo = Nothing
DataGridTableStyle1.GridColumnStyles.Add(DataGridTextBoxColumn3)
'
'DataGridTextBoxColumn4
'
DataGridTextBoxColumn4.HeaderText = "Trans. Eff. Date"
DataGridTextBoxColumn4.MappingName = "Trans. Eff. Date"
DataGridTextBoxColumn4.Width = 85
DataGridTextBoxColumn4.ReadOnly = True
DataGridTextBoxColumn4.Alignment = HorizontalAlignment.Left
DataGridTextBoxColumn4.TextBox.Enabled = True
DataGridTextBoxColumn4.TextBox.Multiline = True
DataGridTextBoxColumn4.TextBox.WordWrap = True
DataGridTextBoxColumn4.TextBox.CharacterCasing = CharacterCasing.Upper
DataGridTextBoxColumn4.Format = ""
DataGridTextBoxColumn4.FormatInfo = Nothing

DataGridTableStyle1.GridColumnStyles.Add(DataGridTextBoxColumn4)
'

'Step 3: Add the tablestyle to the datagrid
' Make the dataGrid use our new tablestyle and bind it to our table
DataGrid1.TableStyles.Clear()
DataGrid1.TableStyles.Add(DataGridTableStyle1)

Me.lbNumRec.Text = Me.DsTransOverride1.Tables(0).Rows.Count.ToString()
End Sub