老师好！

点击窗口单元格“待接收”，弹出审核窗口，点击“确定”按钮，报错见下图。

怎样修改按钮代码？

谢谢！

按钮代码如下：

\'\'\'
Dim frm As object
For Each f As WinForm.Form In Forms
    If f.Tablename = "Main" AndAlso f.opened AndAlso f.FormStyle = 0 Then
        Dim tab = f.panel.parent.parent
        Dim p = tab.tabpages(tab.Selectedindex)
        frm = Forms(p.controls(0).name)
        Exit For
    End If
Next
\'msgbox(frm.name)

Dim t As Table = Forms(frm.name).Controls("Table1")
Dim r As Row = t.Current

If r IsNot Nothing Then
    If e.Form.Controls("CheckBox接收").checked =True Then
        r("中院审核状态") = "已接收"
        r("中院申报状态") = "待提交"
        r("中院审核时间") = Date.Now
    Else
        If e.Form.Controls("TextBox1").text = "" Then
            msgbox("请填写回退理由！")
            Return
        Else
            r("基层申报状态") = "待提交"
            r("基层申报时间") = Nothing
            r("中院审核时间") = Nothing
            r("中院审核状态") = Nothing
            r("中院申报状态") = Nothing
        End If
    End If
End If
Forms("中院审核").close