Office中国论坛/Access中国论坛

标题: 如何实现选工序工时自动合计? [打印本页]

作者: liaohk 时间: 2012-4-11 09:41
标题: 如何实现选工序工时自动合计?
[attach]48954[/attach]
请老师朋友位帮助

作者: Henry D. Sy 时间: 2012-4-11 10:30
描述不清
终准=？
单价=什么相加？

作者: todaynew 时间: 2012-4-11 10:36
dim strwh as string
dim x0 as single
dim x1 as single
dim x2 as single

strwh="货号='" & me.货号.value & "'"
strwh=strwh & " and 名称='" & me.名称.value & "'"

x0=Dlookup("准终","工序单价",strwh & " and 工序='" & me.上工序.value  & "'")
x1=Dlookup("单价","工序单价",strwh & " and 工序='" & me.上工序.value  & "'")
x2=Dlookup("分值","工序单价",strwh & " and 工序='" & me.上工序.value  & "'")

x0=x0+Dlookup("准终","工序单价",strwh & " and 工序='" & me.下工序.value  & "'")
x1=x1+Dlookup("单价","工序单价",strwh & " and 工序='" & me.下工序.value  & "'")
x2=x2+Dlookup("分值","工序单价",strwh & " and 工序='" & me.下工序.value  & "'")

me.准终.value=x0
me.单价.value=x1
me.分值.value=x2

作者: liaohk 时间: 2012-4-11 12:08
感谢，我试一下

作者: liaohk 时间: 2012-4-11 14:03

todaynew 发表于 2012-4-11 10:36
dim strwh as string
dim x0 as single
dim x1 as single

老师你好，你帮我处理了，但还是有些不对，这样只能累加开始和结速工序的单价和准终，中间工序没有累加进去，请您再帮看看。感受谢。

作者: todaynew 时间: 2012-4-11 16:00
本帖最后由 todaynew 于 2012-4-11 16:02 编辑

liaohk 发表于 2012-4-11 14:03
老师你好，你帮我处理了，但还是有些不对，这样只能累加开始和结速工序的单价和准终，中间工序没有累加进 ...

那就更简单了。

dim strwh as string

strwh="货号='" & me.货号.value & "'"
strwh=strwh & " and 名称='" & me.名称.value & "'"
strwh=strwh & " and val(工序) between " & val(me.上工序.value) & " and " & val(me.下工序.value)

me.准终.value=DSum("准终","工序单价",strwh)
me.单价.value=DSum("单价","工序单价",strwh)
me.分值.value=DSum("分值","工序单价",strwh)

作者: todaynew 时间: 2012-4-11 16:06
此外你的数据表设计大大的不合理，数据冗余太多，表间关系不明，这对程序设计和使用中的维护极为不利，建议做优化处理。

作者: liaohk 时间: 2012-4-11 16:55
谢谢你老师，我再试试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)