主题：关于跨表自动算值代码的问题

库存表的库存余额＝IsNull([初始金额],0) + IsNull([充值金额],0) - IsNull([消费金额],0)

库存表的消费金额＝IsNull(Sum(Child(消费表).消费金额),0)

两个表，库存表，消费表，在库存表有列"库存余额"、"消费金额"，消费表有列"消费金额"，当消费表的“消费金额”列输入数值时，库存表的“库存余额”列>0，消费表的“消费金额”列正常显示输入的数值，当“库存余额”<0时，“消费金额”列能显示库存余额列的数值 或者输不进值，意思表示怅号已欠费，请充值
 if e.datacol.name="消费金额" then
if e.newvalue=isnot nothing then
dim dr as datarow
dr=datatables（"库存表"）.find（"库存余额="&e.newvalue&"")
if dr<0then
e.datarow（"消费金额"）=dr（"库存余额"）
else e.datarow（"消费金额"）=nothing
end if
endif
endif


重发一下，请老师帮改一下，