If e.Button = MouseButtons.Left And e.Clicks = 2 Then
Dim myGrid As DataGrid = CType(sender, DataGrid)
Dim hti As System.Windows.Forms.DataGrid.HitTestInfo
hti = myGrid.HitTest(e.X, e.Y)
If hti.Type = DataGrid.HitTestType.Cell Then
Me.textbox1.Text = Me.DataGrid1.Item(hti.Row, hti.Column)
End If
End If
Private Sub datagrid1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles datagrid1.GotFocus
ingNowRow =dgKs.CurrentRowIndex '当前
End Sub
Private Sub datagrid1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles datagrid1.GotFocus
ingNowRow =dgKs.CurrentRowIndex '当前
End Sub