主题：[原创]菜单代码问题

老师，我在表中设置有“选择行”列为逻辑列和“审核”列为字符列，菜单中有“审核”和“取消审核”按钮，我设置了如下代码，意思是当“选择行”为勾选时，点击“审核”按钮，则在勾选的行的“审核”列填上审核人的姓名，但下面的代码有问题，请老师指点，谢谢。

If User.IsRole("投融资_主管") Then
    For Each r As Row In Tables("贷款信息总表")
     If e.DataCol.Name = "选择行" AndAlso e.DataRow("选择行") = True Then
       r("FH") = User.Name
       r.Save()
     End If
    Next
END IF

提示有错误。