主题：能不能把扫描文件自动复制到表的列中？

代码

Dim ifo As new FileInfo(e.FullPath)
If Ifo.Extension Like "*doc*" Then
    Dim r As Row = Tables("员工").Current
    r("照片") = r("工号") & ".doc"
    FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("照片"),True)
End If