表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
加好友 
发短信
Post By：2015/7/30 13:09:00 [只看该作者]
