主题：CTRL选择行然后执行以下代码

Dim t As Table = Forms("采购订单审核").controls("转合同").Table
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r1 As Row = t.rows(i)
    r1("财务审核") = _UserName
    r1("审核日期") = Date.Today
Next