|
Dim kgtztjdr As DataRow = DataTables("各卷知识点频度统计").find("试卷号与题型 ='" & e.DataRow("试卷号") & "客观题" & "'")
Dim t1 As Integer
Dim t2 As Integer
Dim t3 As Integer
Dim t4 As Integer
Dim t5 As Integer
Dim t6 As Integer
For Each cl As DataCol In e.DataTable.DataCols
If cl.IsString Then
Select Case e.DataRow(cl.Name)
Case "测定纯净物组成"
t1 + = 1
Case "符号描述纯净物组成"
t2 + = 1
Case "定量描述纯净物组成"
t3 + = 1
Case "纯净物组成分类"
t4 + = 1
Case "描述混合物组成及含量"
t5 + = 1
Case "测定混合物组成及含量"
t6 + = 1
End Select
End If
Next
kgtztjdr("测定纯净物组成") = t1
kgtztjdr("符号描述纯净物组成") = t2
kgtztjdr("定量描述纯净物组成") = t3
kgtztjdr("纯净物组成分类") = t4
kgtztjdr("描述混合物组成及含量") = t5
kgtztjdr("测定混合物组成及含量") = t6
| 
加好友 
发短信
Post By：2016/8/22 19:08:00 [显示全部帖子]
