以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么没有起到统计的功能?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76960)

--  作者:zgjmost
--  发布时间:2015/11/9 8:32:00
--  [求助]怎么没有起到统计的功能?
Dim Arys As List(Of String())
Arys = DataTables("报考情况表").GetUniqueValues("", "分考点名称","试卷号")

For Each Ary As String() In Arys
Dim dt As DataTable =DataTables("报考情况表")
    Dim a1 As Short = dt.compute("Count(_Identify)","分考点名称 = \'Ary(0)\' And 试卷号 =\'Ary(1)\'")
    Dim dr As DataRow = DataTables("统计过渡表").AddNew()
    dr("分考点") = Ary(0)
    dr("试卷号") = Ary(1)
    dr("报考人数") = a1
Next

最后得到的报考人数都是   0

什么地方出了问题?

   Dim a1 As Short = dt.compute("Count(_Identify)","分考点名称 = \'Ary(0)\' And 试卷号 =\'Ary(1)\'")

[此贴子已经被作者于2015/11/9 8:32:53编辑过]

--  作者:Hyphen
--  发布时间:2015/11/9 8:50:00
--  
 Dim a1 As Short = dt.compute("Count(_Identify)","分考点名称 = \'" & Ary(0) & "\' And 试卷号 =\'" & Ary(1) &"\'")