1、BeforeAttachFile事件
If e.DataCol.name = "第六列" Then If FileSys.FileExists(ProjectPath & "Attachments/" & e.FileName) Then e.Cancel = True e.DataRow(e.DataCol.Name) &= iif(e.DataRow.Isnull(e.DataCol.Name), "", vbcrlf) & e.FileName End IfEnd If