关于数据条件是文本的另类核算

sbsfhgl

如图所示，表《配料核算》我想达到我的单价等于配料单元格中几种材料之和，配料表中材料单价来源于表《材料单位》中，如果中配料中少了一样材料单价，则备注中提示“核算失败，缺少***材料”。

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

hjb016

写段代码更新一下就可以了.
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

这里有论坛的高手帮你处理好的压缩文件
http://www.office-cn.net/thread-93131-1-1.html