Code Block
Public Class Form1
Dim datatable As New DataTable("data")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
datatable.Columns.Add("col1")
datatable.Columns.Add("col2")
datatable.Rows.Add("ABC", "bcd")
datatable.Rows.Add("bcd", "ABC")
Me.DataGrid1.DataSource = datatable
End Sub
Private Sub DataGrid1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
Dim info As DataGrid.HitTestInfo
info = Me.DataGrid1.HitTest(e.X, e.Y) 'Test the currently clicked place
If info.Type = DataGrid.HitTestType.Cell And info.Column = 0 Then 'If the first column cells are clicked
Dim dv As DataView
dv = datatable.Copy().DefaultView
dv.RowFilter = "col1='" + Me.DataGrid1.Item(info.Row, info.Column).ToString() + "'"
Dim detail As New Form2(dv) 'Send the selected row to form2
detail.ShowDialog()
detail.Dispose()
End If
End Sub
End Class