增加一个问题：

我把PictureViewer文件存放路径设置为：\\\\10.28.102.15\\photo\\ ；

点击“拍照”，照片文件存放无误；点击“扫描”，经扫描的文件仍然存放在：ProjectPath & "Attachments\\" ，并且扫描图片不能显示 ；

我是在窗口“图片管理器”的PictureViewer属性中设置的存放路径。上例中怎样设置扫描文件存放路径，并显示图片？

见图：

修改全局代码

    If  imageFile IsNot Nothing Then
        Dim path As String = ProjectPath & "Attachments\\sm" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"
        imageFile.SaveFile(path)
        piv.AddFile(FileSys.GetName(path))
    End If

改成

dim ary = piv.BindingField.split(".")
Dim str As String = Tables(ary(0)).DataTable.DataCols(ary(1)).DefaultFolder 

str = iif(str = "", projectPath & "attachments", str)

甜老师好！

我在项目的AfterOpenProject设置了上传文件的路径：

DataTables("信件收发").DataCols("信件信息").DefaultFolder = ProjectPath & "Attachments\\信件\\"

如果我要把上传的文件分别保存到上传路径内的[收信人]目录内，应该怎样调整代码？

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事务管理-开发版.foxdb

1、看看

http://www.foxtable.com/webhelp/scr/2209.htm

2、如果是拍照或者扫描，那你修改对应的路径，加上 Tables("表A").current("收信人") 的值作为路径即可。

拍照保存时报错：

 
此主题相关图片如下：1.jpg

1、AfterOpenProject

DataTables("信件收发").DataCols("信件信息").DefaultFolder = ProjectPath & "Attachments\\信件\\"

-----------------
2、拍照保存按钮：

Dim zp  As  Image  = e.Form.Controls("照片").Image
Dim wjm As WinForm.Label = e.Form.Controls("文件名")
If zp IsNot Nothing Then
    If Forms("图片管理器").Opened And Forms("信件收发").Opened Then
        Dim path As String = ProjectPath & "Attachments\\信件\\"  & Tables("信件收发_table1").current("收信人") &  "\\" & wjm.text & ".jpg"
        zp.Save(path)
        Forms("图片管理器").Controls("PictureViewer1").AddFile(FileSys.GetName(path))
        e.Form.Close
    End If
Else
    MessageBox.Show("请拍摄照片后再保存!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事务管理-开发版.foxdb

Dim path As String = ProjectPath & "Attachments\\信件\\"  & Tables("信件收发_table1").current("收信人") &  "\\" & wjm.text & ".jpg"

改成

Dim path As String = ProjectPath & "Attachments\\信件\\"  & Tables("信件收发_table1").current("收信人") &  "\\" & wjm.text & ".jpg"
Dim ppath = FileSys.GetParentPath(path)
If FileSys.DirectoryExists(ppath) = False Then
    FileSys.CreateDirectory(ppath)
End If