以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮助上计算和赋值的报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146820)
--  作者：lgz518
--  发布时间：2020/3/3 11:13:00
--  帮助上计算和赋值的报错
Dim Dic As new Dictionary(of DataRow, Integer)
Dim v As Double
For Each dr As DataRow In DataTables("表A").DataRows
    v = DataTables("表A").Compute("Count(第二列 )", "第二列 = " & dr("第一列"))
    dic.Add(dr, v)
Next
For Each dr As DataRow In dic.Keys
    dr("第四列") = dic(dr)
Next


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.12.17.18
错误所在事件：窗口,窗口2,Button1,Click
详细错误信息：
语法错误:“=”运算符后缺少操作数。
--  作者：2900819580
--  发布时间：2020/3/3 11:18:00
--  
For Each dr As DataRow In DataTables("表A").DataRows
    v = DataTables("表A").Compute("Count(第二列 )", "第二列 = \'" & dr("第一列") & "\'")
    dic.Add(dr, v)
Next