主题：增加多行取值

 
此主题相关图片如下：qq截图20170101102913.png

在窗口“一年级”行“课本费、班数、人数“列输入值后，“课本计划”表自动增加。

比如：
在一年级行，课本费列输入100、班数输入3、人数输入120，那么得出下表

 
此主题相关图片如下：qq截图20170101102105.png

我这样只能第一行，第二行和第三行怎样取值，根据班数增加行。

 

Dim d As Date = Date.Today
Dim XQ As String
If d.Month >= 7 And d.Month <=12 Then
    XQ = d.Year & "年秋季"
Else If d.Month < 6 Then
    XQ = d.Year & "年春季"
End If

If e.Form.Controls("一年级课本").Value IsNot Nothing And e.Form.Controls("一年级班数").Value IsNot Nothing And e.Form.Controls("一年级人数").Value IsNot Nothing Then
    Dim dr As DataRow = DataTables("课本计划").AddNew(e.Form.Controls("一年级班数").Text)
    dr("学期") = XQ
    Dim bj As String = "10"
    Dim Can As String = DataTables("课本计划").Compute("Max(班级)","学期 = '"& XQ &"' And 班级 Like '" & bj & "%'")
    If Can > "" Then
        Dim v As Integer = Can.SubString(2,1)
        dr("班级")  = bj & format(v +1,"0")
    Else
        dr("班级")  = bj & "1"
    End If
    dr("课本金额") = e.Form.Controls("一年级课本").Text
    dr("计划人数") = e.Form.Controls("一年级人数").Text/e.Form.Controls("一年级班数").Text
End If

请指教，谢谢

老师，我没说清楚，这样只能一年级，每个年级都输入数值后，如果窗口有“新增“按钮，电击”新增“每个年级都增加出来。老师指教，谢谢

谢谢