写在datachanged事件里
if e.dcol.name = 工序 or e.dcol.name = 型号 then ‘如果这两个列随便哪个发生变化,都将重新计算工价,以下为重算代码
dim gx = e.drow("工序") ’获得新的工序值
dim xh = e.drow("型号") '获得新的型号值
dim gj = e.drow("工价") '将要计算并生成的新的工价
select case gx ’先区分工序是什么
case 打磨 '针对打磨工序的计算
if xh > 值1 then
gj = 答案1
elseif xh > 值2 and xh < 值3 then
gj = 答案2
elseif xh....... then
gj =
else
gj =
end if
case 冲压 '这里同上略
if xh > 值1 then
gj =
elseif xh > 值2 and xh < 值3 then
gj =
elseif xh....... then
gj =
else
gj =
end if