Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生产管理系统根据设置的公式模板计算数据


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

主题：生产管理系统根据设置的公式模板计算数据
帅哥哟，离线，有人找我吗？
lsy
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/1/1 11:45:00 [只看该作者]

大型开发工具是大餐，狐表是快餐。

只要水平高，大餐、快餐，都可以是美味。
 回到顶部
帅哥哟，离线，有人找我吗？
ybc76
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1090 威望：0 精华：0 注册：2011/12/18 14:29:00 		  发帖心情 Post By：2014/1/1 13:30:00 [只看该作者]

在这里程序不能调用有点不适应了。在表事件中我根据上面的代码做了下改动，实现部份动态数据变化：
Dim t As Table = Tables("表A")
Dim llsl As Integer = t.Rows(0)("领料")
For i As Integer = 0 To t.Rows.Count - 1
If e.DataCol.Name = "领料" Then 
t.Rows(i)("合格") = Nothing
t.Rows(i)("合格") + = llsl
t.Rows(i)("领料") = llsl
llsl = t.Rows(i)("合格")
End If
For Each c As Col In t.Cols
If c.Name Like "不良原因分类_*" AndAlso t.Rows(i)(c.name) <> Nothing Then
t.Rows(i)("合格") =t.Rows(i)("领料")-t.Rows(i)(c.name)  ’这后面怎么不能横向累计呢，在“脱粉”列的数据可以减掉，但后面的数据不会减。
End If
Next
Next

图片点击可在新窗口打开查看此主题相关图片如下：201402.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/1/1 19:13:00 [只看该作者]

 回复52楼，你这个东西不合适写在表事件里。

 你的计算设计到累加累减的操作，如果比如你修改了第四行的值，全部行的数据都是要重新计算的。

 都需要你把全部的数清空，然后根据第一行的领料计算得出。
 回到顶部
帅哥哟，离线，有人找我吗？
ybc76
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1090 威望：0 精华：0 注册：2011/12/18 14:29:00 		  发帖心情 Post By：2014/1/2 8:22:00 [只看该作者]

说得对头，就是这意思，改变内容后就得重新计算（最好是从修改内容的行后面的行执行重新计算），这也是本意。时时动态的数据才是最好的结果。
[此贴子已经被作者于2014-1-2 8:25:27编辑过]
 回到顶部
总数 54 上一页 1 2 3 4 5 6
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询