Dim r As Row = Tables("出库明细").Currentr("送货单") = r("送货单号") & ".jpg"FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("送货单"),True)
加好友 
发短信
Post By：2014/10/31 14:03:00 [只看该作者]
