Dim kb As String = e.Form.Controls("一年级课本").Text
Dim bs As String = e.Form.Controls("一年级班数").Text
Dim rs As String = e.Form.Controls("一年级人数").Text
If kb> "" And bs> "" And rs> "" Then
Dim idx As Integer = Tables("课本计划").Rows.Count
Tables("课本计划").AddNew(val(bs))
Dim dr As Row
For i As Integer = idx To Tables("课本计划").Rows.Count - 1
dr = Tables("课本计划").Rows(i)
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("课本金额") = kb
dr("计划人数") = rs/bs
Next
End If
[此贴子已经被作者于2016/11/22 10:39:48编辑过]
加好友 
发短信
Post By：2016/11/22 10:39:00 [显示全部帖子]
