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
报错内容如下：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2015.10.26.1
错误所在事件：菜单,分考点订卷,Click
详细错误信息：
System.Data.EvaluateException: 未找到列 [试卷代码]。
在 System.Data.NameNode.Bind(DataTable table, List`1 list)
在 System.Data.BinaryNode.Bind(DataTable table, List`1 list)
在 System.Data.BinaryNode.Bind(DataTable table, List`1 list)
在 System.Data.DataExpression.Bind(DataTable table)
在 System.Data.DataExpression..ctor(DataTable table, String expression, Type type)
在 System.Data.Select..ctor(DataTable table, String filterExpression, String sort, DataViewRowState recordStates)
在 System.Data.DataTable.Select(String filterExpression, String sort, DataViewRowState recordStates)
在 System.Data.DataTable.Compute(String expression, String filter)
在 Foxtable.DataTable.Compute(String Expression, String Filter)
在 UserCode.AhpIOssm0PU9JQWYD(RibbonButtonEventArgs e)
不知是何原因？请老师帮助指导一下
加好友 
发短信
Post By：2015/11/9 5:04:00 [只看该作者]
