我用cancel=true设置后，系统出现操作被取消对话框，请问如何屏蔽？

Question

我用cancel=true设置后，系统出现操作被取消对话框，请问如何屏蔽？

Answer 1

是commondialog控件吗？如果是，用如下代码
    CommonDialog1.CancelError = False
    CommonDialog1.ShowOpen

Answer 2

如果你非要cancel=true
你可以在前面加上onerror goto err_label
然后在err_Label
判断错误号,如果是用户按cancel键引发你可以执行自己想执行的动作
cancel=true还是有用的,一般我们根据返回文件名是否为空判断,但是如果用户选择完文件,按cancel就可能出问题

Answer 3

感觉应该有比on error goto 更简单的方法。我的代码如下：Private Sub dgUDCList_BeforeDelete(Cancel As Integer)
    Dim rst As New adodb.Recordset, strSQL As String, strUUID As String
    
    strUUID = frmUDCList.dgUDCList.Columns("UUID").Text    strSQL = "SELECT " & frmBaseInfo.txtGroup & " FROM EMPLOYEE GROUP BY " & frmBaseInfo.txtGroup & " HAVING " & frmBaseInfo.txtGroup & "='" & strUUID & "'"    rst.Open strSQL, gobjConnection    If rst.EOF = False Then
        MsgBox "员工信息表中存在该条信息，不能删除！", vbOKOnly + vbInformation, "提示"
        Cancel = True
    End If    rst.Close
    Set rst = Nothing
    
End Sub若Cancel = True，系统出现操作被取消对话框