主题：图片列问题

BeforeOpenFile事件，这样写

If e.DataCol.name = "第八列" Then
    e.Cancel = True
    Dim img = getimage(e.FileName)
    Dim frm As new windows.forms.form
    frm.width = img.width
    frm.height = img.height + 30
    Dim picbox As new windows.forms.picturebox
    picbox.image = img
    picbox.dock = 5
    frm.controls.add(picbox)
   
    frm.show
End If