Private Sub grid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grid1.CurrentCellChanged
'取表格按件单元格中的值
TextBox1.Text = grid1.Item(1, grid1.CurrentRow.Index).Value.ToString
End Sub
'修改代码后,问题解决了.
Private Sub grid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grid1.CurrentCellChanged
'取表格按件单元格中的值
If grid1.CurrentRow Is Nothing = False Then
TextBox1.Text = grid1.Item(1, grid1.CurrentRow.Index).Value
End If
End Sub