主题：求值

dim v as double = val(e.sender.text)

for each r as row in tables("某表").rows

r("出库总数") = r("单件需求") * v

next