以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  语句请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72450)
--  作者：cuicuibing
--  发布时间：2015/7/30 13:09:00
--  语句请教
表A                   第一列             第二列          第三列
                        张三 
                        李四
                        王五
                        赵六
表B         第一列                          第二列           第三列
              张三，李四，王五              9

意思概述，当表b第二列数据变动时，判断表b第一列中人员的个数。  用表b的第二列数据除以表b第一列中人员的个数得到平均值

遍历表b第一列中集合，在表a中查找，找到后，将第二列的数据更改为平均值。
                Dim Values As New List(Of String)
                values = Tables("表B").Current("第一列")        ‘ 这里定义的类型应该怎么定义
                Dim Value As String
                Dim s As String
                Dim ss As String = Values.Count       
                s = Tables("表B").Current("第二列") / ss
                For Each Value In Values
                    DataTables("表A").ReplaceFor("第二列", s, "[第一类] = value")
                Next

以上语句出现类型错误。
--  作者：czy
--  发布时间：2015/7/30 15:24:00
--  
Dim r As Row = CurrentTable.Current
Dim s As Integer
s = r("第二列") / (r("第一列").Length - r("第一列").Replace(",","").Length +1)
DataTables("表A").ReplaceFor("第二列", s, "[第一列] In (\'" & r("第一列").Replace(",","\',\'") & "\')")
--  作者：cuicuibing
--  发布时间：2015/7/30 15:56:00
--  
您好版主，这样计算的结果都是整数。
比如  三个人，8的时候平均值为3,  9的时候平均值还是3，10的时候还是三、
--  作者：cuicuibing
--  发布时间：2015/7/30 15:59:00
--  
不好意思，没有注意定义。