在PrepareEdit事件中写以下代码后，不能打开文件完全不能编辑，现在要达到设计图表的审核意见判为合格后，只保留打开文件功能，要怎么写代码

If e.Row("审稿结果") = "不合格" Then \'如果审批列不为空

    Select Case e.Col.Name

        Case "操作人及时间","审稿结果"

            e.Cancel = False

        Case "类别","设计图","预览图","时间","设计师","备注"

            e.Cancel = True \'则禁止编辑

    End Select

End If

窗口1_Button1_Click

Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)

Dim ftp As FTPClient = c.DataCol.FTPClient

Dim path As String = ProjectPath & "RemoteFiles\\" & FileSys.GetName(CurrentTable.Current(c.Name))

ftp.Download(CurrentTable.Current(c.Name), path, True)

Dim proc As new Process

proc.File = path

proc.Start

e.Form.Close

窗口1_Button2_Click

Dim dlg As new SaveFileDialog

If dlg.ShowDialog = DialogResult.OK Then

    Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)

    Dim ftp As FTPClient = c.DataCol.FTPClient

    Dim path As String = ProjectPath & "RemoteFiles\\" & FileSys.GetName(CurrentTable.Current(c.Name))

    ftp.Download(CurrentTable.Current(c.Name), path, True)

    FileSys.CopyFile(path, dlg.FileName, True)

    msgbox("另存成功")

    e.Form.Close

End If