表中数据有 Null ?

刚发现在执行下列代码时出现前面的提示

    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

这几行代码用来将DataGridView控件中选中内容显示到一个textBox控件中
只要执行一楼的代码后
就会自动触发这个事件
然后在执行
 TextBox1.Text = grid1.Item(1, grid1.CurrentRow.Index).Value.ToString
这一个时
即时窗口就会有错误提示出来.

'修改代码后,问题解决了.
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

fdsfadfsafasdafwerwerwe