我正在使用角度e.stopPropagation()
我需要在指令中添加Dim strPath As String
Dim rs As DAO.Recordset
Dim rsPictures As Variant
strPath = Application.CurrentProject.Path
'????How to loop through all record set???
' Instantiate the parent recordset.
Set rs = CurrentDb.OpenRecordset("Assets")
' Instantiate the child recordset.
Set rsPictures = rs.Fields("Attachments").Value
' Loop through the attachments.
While Not rsPictures.EOF
'????How to rename the picture???
' Save current attachment to disk in the "My Documents" folder.
rsPictures.Fields("FileData").SaveToFile strPath & "\Attachment"
rsPictures.MoveNext
Wend
，但它会导致一些问题，即ui-grid的contentMenu中的关闭按钮（在右上角）不起作用
这是代码
https://plnkr.co/edit/QNCEzKPAJz7inUdT6tYW?p=preview