将文本追加到数据表中的现有行

Question

我试图在vb.net中创建日历，并且遇到了此问题。我想将一些文本附加到现有的数据表行中。当我看着我的调试器时，它说：“为了评估索引属性，属性必须是合格的，并且参数必须由用户明确提供。”

Dim aantalRijen As Integer = 1 

    For x = 0 To 6 
     Dim dttopdrachten As New DataTable 
     dttopdrachten = opdrachtendao.getOpdrachtenByDate(Today.AddDays(x)) 
     If dttopdrachten.Rows.Count > aantalRijen Then 
      aantalRijen = dttopdrachten.Rows.Count 
     End If 
    Next 

    For z = 0 To aantalRijen - 1 

     Dim r As DataRow 
     r = dttAgenda.NewRow() 
     dttAgenda.Rows.InsertAt(r, z) 

    Next 

    For i = 0 To 6 

     Dim aantalItems As Integer = 0 
     Dim dttopdrachten As New DataTable 
     dttopdrachten = opdrachtendao.getOpdrachtenByDate(Today.AddDays(i)) 
     aantalItems = dttopdrachten.Rows.Count 

     For j = 0 To aantalItems - 1 

      Dim info As String = dttopdrachten.Rows(j).Item(0).ToString & vbCrLf & dttopdrachten.Rows(j).Item(2).ToString & vbCrLf & dttopdrachten.Rows(j).Item(3).ToString & vbCrLf & dttopdrachten.Rows(j).Item(4).ToString & vbCrLf & dttopdrachten.Rows(j).Item(5).ToString & vbCrLf & dttopdrachten.Rows(j).Item(6).ToString 
      dttAgenda.Rows(j).Item(i) = info 

     Next 

    Next 

    dgvAgenda.DataSource = dttAgenda 

在上面的代码中，我首先计算我必须做多少行。之后，我将大量的行添加到数据表（列之前添加）。直到这里它的工作，但是当我继续调试时，我得到的错误。我尝试了谷歌搜索，但迄今没有任何可以帮助我。

Answer 1

似乎问题已解决，但没有改变任何东西。所以如果有人想制作日历。这里的解决方案;）