Office中国论坛/Access中国论坛

标题: 关于数据条件是文本的另类核算 [打印本页]

作者: sbsfhgl 时间: 2010-9-9 16:52
标题: 关于数据条件是文本的另类核算
[attach]43416[/attach][attach]43415[/attach]如图所示，表《配料核算》我想达到我的单价等于配料单元格中几种材料之和，配料表中材料单价来源于表《材料单位》中，如果中配料中少了一样材料单价，则备注中提示“核算失败，缺少***材料”。

有点难度系数，请各位帮帮忙。[

作者: hjb016 时间: 2010-9-9 17:41
写段代码更新一下就可以了.
dim a
dim dblTotal as double
dim bFlag as boolean

记录集开始循环

do until rs.eof

a=spilt(配料,"+")
bFlag =false
dblTotal=0
for i=lbound(a) to ubound(a)
   if nz(dlookup("单价","材料单价","材料名='" & a(i) & "'")) ="" then
update 配料核算 set 备注='核算失败，缺少***材料' 条件
bflag=true
exit for
   else
dblTotal=dblTotal+cdbl(nz(dlookup("单价","材料单价","材料名='" & a(i) & "'")))
   end if
next
if bflag =false then
update 配料核算 set 单价=dblTotal 条件
end if
rs.movenext
loop

作者: hjb016 时间: 2010-9-9 17:59
这里有论坛的高手帮你处理好的压缩文件
http://www.office-cn.net/thread-93131-1-1.html

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