[已解决]利用窗体查询数据 结果 数据查询位置对应错误，图片显示不出来，求助！

w920301

求助  ，数据位置显示正确，显示图片，谢谢大神们了！！！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-6-23 07:25

考试office.rar (13.16 KB, 下载次数: 42)

2014-6-23 07:25 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Image1.Picture = LoadPicture("")
   
3.     Dim MYRANGE As Range
   
4.     Dim i As Integer, MyPic$
   
5.     With Sheets("sheet1")
   
6.         Set MYRANGE = .Columns("a").Find(TextBox1.Value, lookat:=xlWhole)
   
7.         If Not MYRANGE Is Nothing Then
   
8.             For i = 1 To 12
   
9.                 Me.Controls("TEXTBOX" & i) = .Cells(MYRANGE.Row, i)
   
10.             Next i
    
11.             MyPic = ThisWorkbook.Path & "\照片" & TextBox1.Text & ".jpg"
    
12.             If Dir(MyPic) <> "" Then
    
13.                 Image1.Picture = LoadPicture(MyPic)
    
14.                 Image1.PictureSizeMode = 1
    
15.             End If
    
16.         Else
    
17.             MsgBox "没有找到！" & TextBox1
    
18.         End If
    
19.     End With
    
20. End Sub

复制代码

i不需要+1

hwc2ycy

考试office.rar (13.16 KB, 下载次数: 42)

2014-6-23 07:25 上传

点击文件名下载附件

w920301

hwc2ycy 发表于 2014-6-23 07:25

您好，能再问一句，可不可以实现利用窗体对数据修改后，再返回到原数据表中啊，不会做求实现！万分感谢

hwc2ycy

w920301 发表于 2014-6-23 09:15
您好，能再问一句，可不可以实现利用窗体对数据修改后，再返回到原数据表中啊，不会做求实现！万分感谢

可以啊。
把之前取单元格的值到TEXTBOX的反向操作不就成了。