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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动生成问题.table

说明：1.如何根据《编班设置》中“编班个数”自动生成《课表》？  生成《课表》时，顺便将相应科目编上序号，如《物理A》分11个班，则依次编为物理A1,物理A2，物理A3,……….物理A11.

         2.编班人数向上取值。

参考，细节自己调整

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的意思。