systemready = False e.form.controls("任务明细").Table.current("第三列") = e.sender.text For i As Integer = 0 To e.form.controls("任务明细").Table.rows.count-1 Dim r As Row = e.form.controls("任务明细").Table.rows(i) If r.checked = True Then r("第一列") = 2 r("第二列") = Date.Today() End If Next systemready = True