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


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

主题:生产管理系统根据设置的公式模板计算数据

帅哥哟,离线,有人找我吗?
ybc76
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1090 威望:0 精华:0 注册:2011/12/18 14:29:00
  发帖心情 Post By:2013/12/31 16:05:00 [显示全部帖子]

并不需要考虑不同的物件,这一张流程piao其实就只有一个物件,就是B表设置的内容都是变量而已。就是同一工序会出现不同类别的不良品。lsy能不能用我的事例把你理解的做一个传给我看看,万分感谢?
[此贴子已经被作者于2013-12-31 16:10:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ybc76
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1090 威望:0 精华:0 注册:2011/12/18 14:29:00
  发帖心情 Post By:2013/12/31 18:41:00 [显示全部帖子]

lsy理解很正确,因为在排气一行的脱粉和封漏是上道工序”上粉“和”平封“造成的不良品,故而根据B表的设置,排气的领料是要减掉的,所以实际领料=986-2-2=982,所以A表的计算就必须是由B表的设置作为查找条件然后再自动计算实际领料和实际合格的,B表的内容都是变量,这样用户就可以灵活地设置计算方法了。
[此贴子已经被作者于2013-12-31 18:46:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ybc76
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1090 威望:0 精华:0 注册:2011/12/18 14:29:00
  发帖心情 Post By:2014/1/1 10:10:00 [显示全部帖子]

此代码已经符合计算逻辑 ,A表中不良原因不一定要有数据,但当A表不良原因栏没有数据时,好像程序执行到第二行就出错。不能在datacolChanged事件里执行程序吗?就是当A表的领料列和不良原因分类栏的数据发生改变后,再自动执行计算程序,这样不就时时显示计算结果,会更直观吗?
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
ybc76
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1090 威望:0 精华:0 注册:2011/12/18 14:29:00
  发帖心情 Post By:2014/1/1 11:34:00 [显示全部帖子]

两个问题均通过按钮执行代码,功能是完全能实现了,看来还是需要有较深的写程序功底才行啊,初学都不可能写得出来的,只能按狐爸说的按顺序学了!!!这个程序还有这样写法的“  += ”真是没看到过。遗憾的是不能通过表datacolchanged事件执行,时时动态计算。
[此贴子已经被作者于2014-1-1 11:36:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ybc76
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
ybc76
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
总数 27 上一页 1 2 3