同样加上判断咯
if 有权限
Dim r As Row = Tables("报名登记表").Current r("登记人") = _UserXingMing r("登记日期") = Date.Now
endif