There is no row at position 0

AAGTHosting

I created a dataTable which I am using to populate a combo box. When I select a student fromthe student combo box the lesson combo box is populated with info from the data table. When I select a student with the student combo box I get the following error. Can you tell me why? Here is the function that is giving me the error.

Public Function selectLesson() As DataTable
' declare data table
Dim dt As New DataTable()
Dim dr As DataRow

    dt.Columns.Add(New DataColumn("lessonTime", GetType(String)))
    dt.Columns.Add(New DataColumn("lessonID", GetType(String)))

    For Each row As DataRow In dtLessTime.Rows
        dr = dt.NewRow()
        dr(0) = " " & arrWeekDays(Convert.ToInt32(row("less\_day")) - 1) ' & " " & Convert.ToDateTime(row("less\_time"))
        dr(1) = row("less\_id")
        dt.Rows.Add(dr)
    Next

    Return dt

End Function

Dave Kreskowiak

Well, the code that creates this new table, and adds rows to it, looks OK. The problem may be that the dtLessTime.Rows collection may be empty, or some other problem with it.

A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
2006, 2007