首先感谢两位的答复,问题找到并解决了,真正原因是相片复制时的路径问题
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & .bmp",True)
其实刚开始时我都按狐爸的要求进行了设置,我将相片保存在与项目同一目录的路径下面NTS01//SC$/PHOTO里面,相片的属性存放路径也是这个路径,当时我把上面的代码改为
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\PHOTO\" & r("身份证号码") & ".bmp",True)
当时我自己在测试时是可以的,但发布以后给同事用时就没相片了,后来才搞清楚原来ProjectPath 这个项目路径也要改,因我测试时用的是没发布的版本测试的,所以ProjectPath 等于 NTS01//SC$,但发布以后的项目路径在各自机台却不能指向NTS01//SC$,所以这句代码应改为
FileSys.CopyFile(ApplicationPath & "zp.bmp", "NTS01//SC$" & "\PHOTO\" & r("身份证号码") & ".bmp",True)
这样我的问题解决了,在此把原因共享给大家,希望有需要的朋友能避免这个问题