我有两个 VBA 宏在 MS Project 2013 中创建自定义选项卡。这三个宏是:
Private Sub Project_Open(ByVal pj As Project)
AddEVMRibbon
End Sub
Private Sub removeEVMRibbon()
ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & "<mso:ribbon></mso:ribbon></mso:customUI>"
ActiveProject.SetCustomUI (ribbonXml)
End Sub
Private Sub AddEVMRibbon()
Dim ribbonXml As String
ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
ribbonXml = ribbonXml + " <mso:ribbon>"
ribbonXml = ribbonXml + " <mso:qat/>"
ribbonXml = ribbonXml + " <mso:tabs>"
ribbonXml = ribbonXml + " <mso:tab id=""macroTab"" label=""EVM"" insertAfterQ=""mso:TabFormat"">"
ribbonXml = ribbonXml + " <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">"
ribbonXml = ribbonXml + …Run Code Online (Sandbox Code Playgroud) 这似乎是元素,但我似乎无法找到导致我正确的方向.
在我的应用程序中,我有这个代码来访问CloudKit记录:
db.performQuery(query, inZoneWithID: nil) {(results, error) -> Void in
if error != nil {
print("performQuery error on query:\n\(error?.description)")
}
else {
for rec in results! {
// handle the record
}
}
}
Run Code Online (Sandbox Code Playgroud)
这有效,但有时我会收到错误; 例如:
<CKError 0x155cfaa0: \"Request Rate Limited\" (7/2008); Retry after 1.9 seconds>
Run Code Online (Sandbox Code Playgroud)
我理解为什么我得到错误,但我不知道如何访问CKError对象,该对象具有我需要等待的信息并在之后重试操作 - 在这种情况下 - 1.9秒(或消息中显示的任何内容).闭包中的"错误"是NSError.
如何访问CKError记录并检索CkErrorCode和retryAfter属性,以便我可以优雅地处理重试?
对不起,如果这似乎是元素,但我肯定没有发现任何解释它.