主题：用按钮在多文件列加入文件的问题

Dim r As Row = Tables("表A").Current

Dim pth As String = ProjectPath & "Attachments\"

Dim ext As String
Dim luj As String=ProjectPath  &  "Capture.jpg"  '获取路径
ext = luj.SubString(luj.LastIndexof(".") + 1)
Dim name As String=Format(Date.now, "D") & "_" & Date.now.hour & "时" & Date.now.Minute & "分" & Date.now.Second & "秒" & e.Sender.name & "." & ext

FileSys.CopyFile(luj, pth & FileSys.GetName(Name),True)
If r.IsNull("加入图片") Then
    r("加入图片") = FileSys.GetName(Name)
Else
    r("加入图片") &= vbcrlf & FileSys.GetName(Name)
End If