主题：单据中插入行

dim r as row= tables(xx).insertrow

if r.index= 0 then

  r("明细ID") = 1

else

  r("明细ID") = tables(xx).rows(r.index-1)("明细ID")+1

end if

for i as integer = r.index+1 to tables(xx).rows.count

if tables(xx).rows(i)("单据ID") = r("单据ID") then

tables(xx).rows(i)("明细ID") = tables(xx).rows(i-1)("明细ID")+1

else

exit for

endif

next