主题：[求助]图片浏览器绑定窗口副本表 列

修改全局代码

    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)

1、看看

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

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

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