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


  共有2861人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8434 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]图片浏览器绑定窗口副本表 列  发帖心情 Post By:2017/9/25 20:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看
点击窗口右侧的“图片浏览器”分窗口中的“拍照”按钮,报错,拍照后点击“保存”也保存不了。
请版主看看是哪里问题?谢谢!
开发版附件:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:事务管理-开发版.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
jyh7081
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8434 威望: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
jyh7081
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8434 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2019/3/1 8:48:00 [显示全部帖子]

甜老师好!

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

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

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

谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:事务管理-开发版.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
jyh7081
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8434 威望: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


 回到顶部
帅哥哟,离线,有人找我吗?
jyh7081
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:957 积分:8434 威望:0 精华:0 注册:2012/10/3 13:25:00
  发帖心情 Post By:2019/3/2 9:04:00 [显示全部帖子]

保存图片没有问题了。图片保存到了  “\信件\收信人\”  目录下,数据表显示的是图片名。

新问题是:PictureViewer不能显示图片。怎样设置 "\信件" 目录下的不同 "\收信人\" 子目录呢?
我在数据表的图片列,设置列属性,存放目录为“\信件\”;在PictureViewer控件设置绑定图片列,也指定存放目录为“\信件\”。

图片点击可在新窗口打开查看此主题相关图片如下:111.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:222.jpg
图片点击可在新窗口打开查看



 回到顶部