主题：自动生成工序号

if e.datacol.name = "工序" then

dim idx as integer = tables("表A").finrow(e.datarow)

if idx = 0 then

e.datarow("工序号") = 1

else

dim r as row = tables("表A").rows(idx- 1)

if r("工序") = e.datarow("工序") then

e.datarow("工序号") = r("工序号")

else

e.datarow("工序号") = r("工序号") + 1

end if

end if

end if