以文本方式查看主题

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

--  作者:江南小镇
--  发布时间:2017/9/21 18:10:00
--  [求助]图片管理
老师,小图标不能根据文件格式发生变化而变化。


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片.rar


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

--  作者:有点甜
--  发布时间:2017/9/21 18:39:00
--  

currentChanged事件、datacolchanged事件

 

If Forms("入库").opened Then
    If Tables("入库.入库明细").Current IsNot Nothing Then
        Dim pic As WinForm.PictureBox = Forms("入库").Controls("PictureBox1")
        Dim wjm As String = Tables("入库.入库明细").Current("票据原件")
        If wjm.Contains(".") = False Then  \'若文件名不包含.,说明是未知文件
            pic.Image = getimage("other.png")
        Else
            Dim i As Integer = wjm.LastIndexOf(".")
            Dim kzm As String  = wjm.SubString(i+1)
            Dim kzms As String = "swf accdb mdb psd png xls xlsx bmp rar jpg doc docx zip pdf txt ppt exe" \'定义已知扩展名
            If kzms.Contains(kzm) = True Then
                pic.image = getimage(kzm & ".png")
            Else
                pic.image = getimage("other.png")
            End If
        End If
    End If
End If


--  作者:江南小镇
--  发布时间:2017/9/21 19:01:00
--  
老师,下面代码在打开文件时对话框“文件没有上传”但是文件还能打开。还有关闭项目或表重新打开对话框“路径不对找不到文件”。老师谢谢了。



If GetConfigValue("文件夹路径" & ComputerId,"") = "" Then
    MessageBox.Show("请先指定存储路径!","提醒")
    Return
End If

If Tables("入库.入库明细").Current.isnull("票据原件") = True Then  \'若未存储文件名
    MessageBox.Show("未上传文件!","提醒")
    Return
End If

If e.Form.Controls("文件名").text = "文件已被删除!" Then
    Tables("入库.入库明细").Current("票据原件") = Nothing
    e.Form.Controls("文件名").text = "未上传文件!"
    e.Form.Controls("PictureBox1").image = getimage("other.png")
    Return
End If

msgbox(e.Form.Controls("路径").text)
msgbox(e.Form.Controls("文件名").text)
Dim proc As new Process
proc.File = e.Form.Controls("路径").text & "\\" & Tables("入库.入库明细").Current("票据原件")


--  作者:有点甜
--  发布时间:2017/9/21 19:50:00
--  
 弹出的路径和文件名是否正确?
--  作者:江南小镇
--  发布时间:2017/9/21 20:16:00
--  
弹出的文件名始终是停留在点击的第一次单元格上,打开的文件是正确的。
--  作者:江南小镇
--  发布时间:2017/9/21 20:35:00
--  

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

--  作者:有点甜
--  发布时间:2017/9/21 20:55:00
--  
以下是引用江南小镇在2017/9/21 20:16:00的发言:
弹出的文件名始终是停留在点击的第一次单元格上,打开的文件是正确的。

 

参考3楼的方式,动态的给文本框赋值

 

或者你文本框绑定关联表的表列


--  作者:江南小镇
--  发布时间:2017/9/21 22:13:00
--  
老师,”入库.库明细”表直接绑定是可以的,我想用代码绑定,没有搞好。

票据原件单元格绑入库窗口定标签Label

--  作者:有点甜
--  发布时间:2017/9/21 22:46:00
--  

直接赋值即可

 

e.Form.Controls("文件名").text = Tables("入库.入库明细").Current("票据原件")


--  作者:江南小镇
--  发布时间:2017/9/21 22:50:00
--  
谢谢搞好了。