- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何统计全表中符合条件的个数？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53331)
-- 发布时间：2014/7/4 22:54:00
-- 如何统计全表中符合条件的个数？
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”的个数。
如何修改代码？请指教!谢谢!
-- 发布时间：2014/7/4 23:31:00
--
用select代替find
-- 发布时间：2014/7/4 23:49:00
--
还是没稿定？如何修改代码？请指教。谢谢!
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
-- 发布时间：2014/7/5 1:49:00
--
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
-- 发布时间：2014/7/5 9:36:00
--
不得行，这个我已试过，报错。
此主题相关图片如下：报错.jpg
-- 发布时间：2014/7/5 9:45:00
--
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
这个意思?
-- 发布时间：2014/7/5 10:02:00
--
谢谢!搞定。