主题：[求助]图片管理

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:图片.rar

此主题相关图片如下：图像 1.png

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("piao据原件")
        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

 弹出的路径和文件名是否正确？

弹出的文件名始终是停留在点击的第一次单元格上，打开的文件是正确的。

此主题相关图片如下：图像 3.png

 

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

 

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

老师，”入库.库明细”表直接绑定是可以的，我想用代码绑定，没有搞好。

直接赋值即可

 

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

谢谢搞好了。