在表事件 附件 下的 BeforeAddFile
'文件打开选择的目录,也就是来源目录If e.DataRow.IsNull("照片") = False Dim pth As String = SpecialFolder.MyDocuments If FileSys.DirectoryExists(pth) Then e.Path = pth End IfEnd If