Question

Image1.Picture = LoadPicture("App.path & " \ " & Data1.Recordset.Fields(16)") vb提示类型不匹配，咋

图片地址 D:\程序\系统工程\人员管理系统\Data1.Recordset.Fields(16)
请问应该怎么改？请详细说明，谢谢！急！急！急！！

Answer 1

引号不对
Image1.Picture = LoadPicture(App.path & " \ " & Data1.Recordset.Fields(16))

app.path是你程序所在的目录，Data1.Recordset.Fields(16)是你数据库里选出来的结果，这两个确认下

Answer 2

Image1.Picture = LoadPicture(“D:\程序\系统工程\人员管理系统\图片名字+后缀")
如过是动态加载图片可以用个
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
i = CommonDialog1.FileName
Picture1.Picture = LoadPicture(i)

Answer 3

Image1.Picture = LoadPicture(App.path & " \ " & format(Data1.Recordset.Fields(16)) )
若 Data1.Recordset.Fields(16) 为文本类型，则可以不加 format

追问

这个不可以，提示：未找到路径！

追答

怎么会呢？你的程序是在D:\程序\系统工程\人员管理系统下吗？

追问

是哦！

追答

用在线交谈
通过交谈原来楼主是想将存到数据库里的照片（ole数据格式）显示出来，已帮助其找到相关资料。分不给我太不够意思了，嘿嘿

Answer 4

引号乱套了！少好几个

追问

那应该怎么改呢？