谢谢!!!先谢了!!首先我用ACCESS建了个数据库叫shiyan,里面有个表叫dongman,只有两列,形式如下:
姓名         图片地址
杀生丸      d:\a\1.jpg
阿斯兰      d:\a\2.jpg
玲          d:\a\3.jpg
史黛拉      d:\a\4.jpg
奈落        d:\a\5.jpg然后我在FORM上加了一个ADODC1控件,和一个DATALIST1控件,我把他们连在数据库shiyan上,
设置显示姓名列,于是现在DATALIST1上显示的是那五个姓名。
5个姓名竖着排列(旁人:废话!),都可以点击(还是废话)我现在在FORM上加一个PICTURE1控件,我现在就是希望PICTURE1能显示名字对应的图片,
比如我点击“阿斯兰”,PICTURE1就会显示“2.jpg”,怎么能做到啊??我看我写的还算清楚把,谢谢各位老大拉!!!!!

解决方案 »

  1.   

    Set DataList1.RowSource = Adodc1
    DataList1.ListField = "姓名"
    DataList1.BoundColumn  = "图片地址"
      

  2.   

    Private Sub DataList1_Click()
    Picture1.Picture = LoadPicture(DataList1.BoundText)End SubPrivate Sub Form_Load()
    pathtmp = App.Path
    If Right(pathtmp, 1) <> "\" Then
    pathtmp = pathtmp + "\"
    End If
    mdb_path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathtmp & "shiyan.mdb;Persist Security Info = True;Jet OLEDB:Database Password="
    Adodc1.ConnectionString = mdb_path     Adodc1.CommandType = adCmdText
         
         sql$ = "select 姓名,图片地址 from dongman "
         Adodc1.RecordSource = sql$
         Adodc1.Refresh