Dim kgtztjdr As DataRow = DataTables("各卷知识点频度统计").find("试卷号与题型 ='" & e.DataRow("试卷号") & "客观题" & "'")
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
For Each cl As DataCol In e.DataTable.DataCols
Select Case e.DataRow(cl.Name)
Case "知A"
a += 1
Case "知B"
b += 1
Case "知C"
c += 1
Case "知D"
d += 1
End Select
Next
kgtztjdr("知A") = a
kgtztjdr("知B") = b
kgtztjdr("知C") = c
kgtztjdr("知D") = d
加好友 
发短信
Post By：2016/8/22 9:09:00 [显示全部帖子]
