'你调用的对象是空的。' vb.net datagridview

Question

当我按下“F2”时，表单“FrmStockSearch”将处于活动状态（包含gridview的数据） 代码

Private Sub grdPurchase_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles grdPurchase.KeyDown
    If e.KeyCode = Keys.F2 Then
        If Me.grdPurchase.Columns(Me.grdPurchase.CurrentCell.ColumnIndex).Name = "itemcode" Then
            FrmStockSearch.Text = "From purchase"
            FrmStockSearch.Show()
            FrmStockSearch.Activate()
        End If
    End If
End Sub

然后第二个表单“FrmStockSearch”被激活.. 当我单击新激活的窗体的gridview的单元格时，“itemcode”列的数据应该来到First form（FrmPurchase）gridview中的当前位置单元格。 我的代码在

之下

Try
If Me.grdStockSearch.Rows.Count >= 1 Then
     Me.grdStockSearch.Focus()
     Dim i = Me.grdStockSearch.CurrentRow.Index
     FrmPurchase.grdPurchase.Rows(FrmPurchase.grdPurchase.CurrentCell.RowIndex).Cells("itemcode").Value = Me.grdStockSearch.Item("itemcode", i).Value
     Me.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

显示错误“对象引用未设置为对象的实例”。 请帮我。 图像文件附加