Find:如果有多个符合条件的行,默认返回第一个。
For Each Km As String In Kms
Dim jdr As DataRow = DataTables("对应科目").Find("科目 = '" & Km & "'")
dr(Km & "A") = dt.DataTable.Compute("Count("& jdr("题号") &")", "" & jdr("题号") & " = 'A' And [单位] = '" & dr("单位") & "' and [班] = '" & dr("班") & "'")
Next
此主题相关图片如下:对应科目.jpg
它只认"科目 = '" & Km & "'"的第一个“单选1”中选‘A’的个数,还有“单选10”、“单选19”、……中选‘A’的个数不能统计。我想在“
对应科目 ”中符合条件"科目 = '" & Km & "'"的所有行(单选…)在“问卷答案”中所有“单选…”列中选“A”的个数。
如何修改代码?请指教!谢谢!