照片根据考号自动填充

Question

VBA 里面做准考证    相片名字是考生考号,当主体加载时,照片自动对应填充到图片框,代码如下:Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Dim imgpath As String
imgpath = Application.CurrentProject.Path + "\照片\" + kh.Text + ".jpg"
If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "\noimg.jpg"
stuimg.Picture = imgpath
End Sub在VB里用DataReport做准考证要如何实现这个功能!

Answer 1

（考号（kh）、考生相片(相片名字是:考号)JEPG格式） 
做准考证的时候：  相片不用一个一个给出路径，根据考号，如果相片名字跟考号一样，就自动加载到图片框中。（图片不需要在数据库中存放） 

Answer 2

Dim imgpath As String 
imgpath = App.Path + "\照片\" + kh.Text + ".jpg" 
Set Picture1.Picture = LoadPicture(imgpath)

Answer 3

vbman2003 你好!   请问给有这方面的资料(水晶报表、ActiveReport),能给我一些吗!!?/

Answer 4

我不是专业程序员，水晶报表没用过，只有网上下载的ActiveReport，刚才找了下，安装文件我这儿没有了，ActiveReport有自带的示例，还是蛮好用的，功能也比DataReport强许多

Answer 5

ActiveReport  做报表,显示图片,如果是bmp的全部都会显示,而jpg的只能显示4张!为什么啊!!!!另Dim k As String
 k = DataControl1.Recordset.Fields("kh").Value
    
    Set pic.Picture = LoadPicture(App.Path & "\" & k & ".jpg")考号（kh）、考生相片名字是:   考号.JEPG    每一个证只能显示第一个人的相处,不会根据考号自动选择,请高人帮忙看看!!!

Answer 6

Private Sub Detail_Format()
Dim k As String      ActiveReport1.Field1.Text = DAODataControl1.Recordset.Fields("kh").Value
      
     If ActiveReport1.Field1.Text = DAODataControl1.Recordset.Fields("kh").Value Then
 
     k = DAODataControl1.Recordset.Fields("pho").Value     Set pic.Picture = LoadPicture(App.Path & "\" & k & ".jpg")
    
    End If
End Sub
自己解决了!!!