主题：求助：自动生成问题

参考，细节自己调整

Dim dt1 As DataTable = DataTables("编班设置")
Dim dt2 As DataTable = DataTables("课表")
dt2.DataRows.Clear
Dim x As Integer = 1
Dim y As Integer = 1
For Each dr As DataRow In dt1.Select("")
    For i As Integer = 1 To dr("编班个数")
        If dt2.DataRows.count < x Then
            Dim ndr = dt2.AddNew
            ndr("上课教室") = x
        End If
        Dim r As DataRow = dt2.DataRows(x-1)
        r("第" & y & "节") = dr("学科") & i
        y = y + 1
        If y > 9 Then
            x += 1
            y = 1
        End If
    Next
Next

相当于 x = x + 1 就是自动加1的意思。