有年级表,班级表,成绩表，在年级中的班级数更改的时候自动把班级表的班数录入，现想同理在年级中录入参考人数时自动在成绩表中将考号录入，录入原则是在年级表的年级其础上后缀４位代码，如年级为32120182 (３表示区县，２１代表学校，2018代表级，２代表第２期，＊＊＊＊后四位为其考试号)If e.DataCol.name = "班级数" Then
DataTables("班级表").DeleteFor("班级 Like '" & e.DataRow("年级") & "-" & "%'")
For i As Integer = 1 To e.DataRow("班级数")
Dim str As String = e.DataRow("年级") & "-" & i & "班"
'Dim fdr As DataRow = DataTables("表B").find("班号 = '" & str & "'")
'If fdr IsNot Nothing Then
Dim nr As DataRow = DataTables("班级表").AddNew
nr("班级") = str
'Next
Next
End If
If e.DataCol.name = "参考人数" Then
DataTables("成绩").DeleteFor("考号 Like '" & e.DataRow("年级")*1000)
For i As Integer = 1 To e.DataRow("参考人数")
Dim str As Integer = e.DataRow("年级")*1000 + i
'Dim fdr As DataRow = DataTables("表g").find("班号 = '" & str & "'")
''If fdr IsNot Nothing Then
Dim nr As DataRow = DataTables("成绩").AddNew
nr("学校班级") = str
''Next
Next
我改了下，改不对，请帮忙看下，谢谢
加好友 
发短信
Post By：2016/7/14 11:50:00 [显示全部帖子]
