Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求一个反循环计算的代码


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

主题：求一个反循环计算的代码
帅哥哟，离线，有人找我吗？
jiterp
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00 		求一个反循环计算的代码  发帖心情 Post By：2015/9/13 21:36:00 [显示全部帖子]

 

各位老师：以下是一个循环数据表，要求先算出6行号的QTY为30（只要MID=6的进行合计），然后再算出1行号的QTY为70（即MID=1的进行合计），求一段执行代码，实现该功能，谢谢！

 

 

ID QTY MID
1 　 0
2 10 1
3 10 1
4 10 1
5 10 1
6 　 1
7 10 6
8 10 6
9 10 6
 回到顶部
帅哥哟，离线，有人找我吗？
jiterp
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00 		  发帖心情 Post By：2015/9/14 9:19:00 [显示全部帖子]

哪位老师帮个忙,解决下我的问题不?谢谢!

 回到顶部
帅哥哟，离线，有人找我吗？
jiterp
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00 		  发帖心情 Post By：2015/9/14 9:46:00 [显示全部帖子]

上实例

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

[此贴子已经被作者于2015/9/14 9:47:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jiterp
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00 		  发帖心情 Post By：2015/9/14 10:49:00 [显示全部帖子]

For Each dr As DataRow In DataTables("物料数量统计").Select("")
    If   dr("数量") = Nothing Then
        Dim js As Double
        For Each id As String In DataTables("物料数量统计").GetValues("主id", "", "主id desc")
            js = DataTables("物料数量统计").Compute("sum(数量)", "主id = '" & id & "'")
        Next
        dr("数量") = js
    End If
Next

好象不起作用,是哪个地方没写好?
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10156 秒, 6 次数据查询