主题：如何统计全表中符合条件的个数？

Find：如果有多个符合条件的行，默认返回第一个。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:高中问卷调查测试.rar

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”的个数。

如何修改代码？请指教!谢谢!

用select代替find

还是没稿定？如何修改代码？请指教。谢谢!

For Each Km As String In Kms Dim jdr As DataRow = DataTables("对应科目").Select("科目 = '" & Km & "'") dr(Km & "A") = dt.DataTable.Compute("Count("& jdr("题号") &")", "" & jdr("题号") & " = 'A' And [单位] = '" & dr("单位") & "' and ?[班] = '" & dr("班") & "'") Next

不得行，这个我已试过，报错。

For Each Km As String In Kms

       Dim jdrs As LIst(of DataRow) = DataTables("对应科目").Select("科目 = '" & Km & "'")

       dr(Km & "A")=0

       for each jdr as datarow in jdrs

       dr(Km & "A") = dr(Km & "A") + dt.DataTable.Compute("Count("& jdr("题号") &")", "" & jdr("题号") & " = 'A' And [单位] = '" & dr("单位") & "' and  [班] = '" & dr("班") & "'")

       next

Next

这个意思?

谢谢!搞定。