主题：关于如何批量审核复选框已选中的行

If User.Group = "行政部" Then

    For Each r As Row In Tables("佣金明细").GetCheckedRows
        r("审核") = User.Name
        r("审核日期") = Date.Today()
        r.Save()

    next
Else
    MessageBox.show("你无审核权限!")
End If 

参考

http://www.foxtable.com/help/topics/1776.htm