[求助]图片浏览器绑定窗口副本表列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片浏览器绑定窗口副本表列

共有3143人关注过本帖树形打印复制链接主题：[求助]图片浏览器绑定窗口副本表列

jyh7081

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

[求助]图片浏览器绑定窗口副本表列 发帖心情

Post By：2017/9/25 20:40:00 [只看该作者]

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

点击窗口右侧的“图片浏览器”分窗口中的“拍照”按钮，报错，拍照后点击“保存”也保存不了。

请版主看看是哪里问题？谢谢！

开发版附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:事务管理-开发版.foxdb

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/9/25 20:56:00 [只看该作者]

信件收发afterload

Dim PB As WinForm.Panel = e.Form.Controls("Panel1") '窗口打开窗口

Dim Name As String = "图片管理器"

Forms(Name).OPEN(-1000,-1500)

Forms(Name).BaseForm.TopLevel = False

Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

PB.BaseControl.Controls.add(Forms(Name).BaseForm)

Forms(Name).BaseForm.left = (pb.width-Forms(Name).BaseForm.width) / 2

Forms(Name).BaseForm.top = (pb.height-Forms(Name).BaseForm.height) / 2

Forms("图片管理器").open

Dim pbx As WinForm.PictureViewer '图片浏览器绑定窗口表列

pbx = Forms("图片管理器").Controls("PictureViewer1")

pbx.BindingField = "信件收发_Table1.信件信息"

jyh7081

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2017/9/26 12:19:00 [只看该作者]

增加一个问题：

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

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

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

见图：

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/26 14:49:00 [只看该作者]

修改全局代码

    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)

Dim path As String = str & "\sm" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"

jyh7081

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2019/3/1 8:48:00 [只看该作者]

甜老师好！

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

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

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

谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:事务管理-开发版.foxdb

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/1 8:57:00 [只看该作者]

1、看看

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

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

jyh7081

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：962 积分：8505 威望：0 精华：0 注册：2012/10/3 13:25:00

Post By：2019/3/1 13:26:00 [只看该作者]

拍照保存时报错：

图片点击可在新窗口打开查看此主题相关图片如下：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

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/1 14:30:00 [只看该作者]

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