以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图片保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75875)

--  作者:江南小城
--  发布时间:2015/10/16 14:20:00
--  [求助]图片保存
老师好,维修单原件列不显示图片名称,
窗口代码如下:DataTables("维修记录").DataCols("维修单原件").DefaultFolder = ProjectPath & "Attachments\\设备票据\\维修单原件"

按钮代码如下:Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" 
If dlg.ShowDialog = DialogResult.Ok Then 
    FileSys.CopyFile(dlg.FileName, ProjectPath & "Attachments\\设备票据\\维修单/" & FileSys.GetName(dlg.FileName), True)
    Tables("设备管理.维修记录").Current("维修单原件") = FileSys.GetName(dlg.FileName)
End If

维修单原件列就是没有数据,不知什么原因。

--  作者:大红袍
--  发布时间:2015/10/16 14:38:00
--  

是不是你看错表了啊

 

设备管理.维修记录 表的当前行肯定有数据。


--  作者:江南小城
--  发布时间:2015/10/16 14:54:00
--  
老师,我把图片名称放长一点他显示一个对话框维修单原件应该有数据但事实没有数据。


图片点击可在新窗口打开查看此主题相关图片如下:360软件小助手截图20151016145141.png
图片点击可在新窗口打开查看

--  作者:江南小城
--  发布时间:2015/10/16 14:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:360软件小助手截图20151016145730.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2015/10/16 15:00:00
--  

呃,那就是说明你这个列的字符长度有问题,设置大一些。

 

http://www.foxtable.com/help/topics/0036.htm

 


--  作者:江南小城
--  发布时间:2015/10/16 15:10:00
--  
老师,我是验证一下图片名称是否赋值给维修单原件列。我把图片名称小于规定字符范围内也没有用。该列就是不显示图片名称。
--  作者:大红袍
--  发布时间:2015/10/16 15:11:00
--  
上传例子,代码没问题。
--  作者:江南小城
--  发布时间:2015/10/16 15:37:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:设备管理.table


--  作者:大红袍
--  发布时间:2015/10/16 15:38:00
--  

 

[此贴子已经被作者于2015/10/16 15:38:47编辑过]

--  作者:大红袍
--  发布时间:2015/10/16 15:40:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    FileSys.CopyFile(dlg.FileName, ProjectPath & "Attachments\\设备票据\\维修单/" & FileSys.GetName(dlg.FileName), True)
    e.Form.DropDownBox.Value = FileSys.GetName(dlg.FileName)
End If