如何实现选工序工时自动合计?

liaohk

请老师朋友位帮助

Henry D. Sy

描述不清
终准=？
单价=什么相加？

todaynew

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

感谢，我试一下

liaohk

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

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

todaynew

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

此外你的数据表设计大大的不合理，数据冗余太多，表间关系不明，这对程序设计和使用中的维护极为不利，建议做优化处理。

liaohk

谢谢你老师，我再试试