2017-11-05 13 views
0

私はこの問題のための助けが必要で、私はこれを解決する方法について考えていません。DataGridviewデータを別のDataGridViewに渡す 'System.NullReferenceException'

これはコードです。

Private Sub GetLabandOtherFees() 
     Dim dic As New Dictionary(Of String, Integer)() 
     Dim cellValue As String = Nothing 
     For i As Integer = 0 To dgvSubjectsEnrolled.Rows.Count - 1 
      If Not dgvSubjectsEnrolled.Rows(i).IsNewRow Then 
       cellValue = dgvSubjectsEnrolled(0, i).Value.ToString() 
       If Not dic.ContainsKey(cellValue) Then 
        dic.Add(cellValue, 1) 
       Else 
        dic(cellValue) += 1 
       End If 
      End If 
     Next 

     Dim sb As New StringBuilder() 
     For Each keyvalue As KeyValuePair(Of String, Integer) In dic 
      sb.AppendLine(String.Format("{0}", keyvalue.Key, keyvalue.Value)) 
     Next 

     For Each row As DataGridViewRow In dgvsub.Rows 
      row.Cells(0).Value = sb.ToString() 
      row.Cells(1).Value = dic.Count.ToString() 
     Next 
    End Sub 

これはエラーです。

"Object Reference Not set to an instance of an object." 
Check to determine if object is null before calling the method. 

このエラーは私に頭痛を入れています。助けてください。

+0

このコードでは、エラーが発生し、どのように見えるのですか? – Gerhard

+0

この部分。 "cellValue = dgvSubjectsEnrolled(0、i).Value.ToString()" – deitysha

答えて

0

エラーの内容を読みます。ここでは、これを試してみてください。ちょっとした条件を追加してください。

   If dgvSubjectsEnrolled(0, i).Value > 0 Then 
        cellValue = dgvSubjectsEnrolled(0, i).Value.ToString() 
        If Not dic.ContainsKey(cellValue) Then 
         dic.Add(cellValue, 1) 
        Else 
         dic(cellValue) += 1 
        End If 
       Else 
       End If 
+0

はい!どうもありがとう。よくやった.. – deitysha

関連する問題