|
Dim kbs() As String = {"一年级课本", "二年级课本"}
dim bss() as string = {"一年级班数", "二年级班数"}
dim rss() as string = {"一年级人数", "二年级人数"}
For j As Integer = 0 To kbs.Length - 1
Dim kb As String = e.Form.Controls(kbs(j)).Text
Dim bs As String = e.Form.Controls(bss(j)).Text
Dim rs As String = e.Form.Controls(rss(j)).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
dr("班级") = j & format(i-idx+1,"00")
dr("课本金额") = kb
dr("计划人数") = rs/bs
Next
End If
next
|
加好友 
发短信
Post By：2016/11/22 12:17:00 [显示全部帖子]
