Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语句请教


  共有2294人关注过本帖树形打印复制链接

主题：语句请教
帅哥哟，离线，有人找我吗？
cuicuibing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：405 积分：3578 威望：0 精华：0 注册：2014/1/8 17:12:00 		语句请教  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：405 积分：3578 威望：0 精华：0 注册：2014/1/8 17:12:00 		  发帖心情 Post By：2015/7/30 15:56:00 [只看该作者]

您好版主，这样计算的结果都是整数。
比如  三个人，8的时候平均值为3,  9的时候平均值还是3，10的时候还是三、
 回到顶部
帅哥哟，离线，有人找我吗？
cuicuibing
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：405 积分：3578 威望：0 精华：0 注册：2014/1/8 17:12:00 		  发帖心情 Post By：2015/7/30 15:59:00 [只看该作者]

不好意思，没有注意定义。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询