For i as integer = 0 to e.form.controls("采购申请明细").Table.rows.count-1
e.form.controls("采购申请明细").Table.position = i
dim r as row = e.form.controls("采购申请明细").Table.rows(i) If r.checked = True Then r("需审核人") = e.form.controls("姓名3").Text End IfNext