ajouter des images dynamiquement dans crystal

on Ajouter Un nouveau champ dans le tableau qui se trouve dans le DataSet lie au Crystalreport, le champ s'appel par Ex : Logo
------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'dans le code VB 
Sub Print()
objet_dataset=GetinformationEntreprise() ' fonction return un objet dataset qui contien tous les information de table entreprise.
Dim chemain As String = Trim(Server.MapPath("~") + "/" & objet_dataset.Tables(0).Rows(0).Item("image_ entreprise"))

Dim fs As New FileStream(chemain , System.IO.FileMode.Open, System.IO.FileAccess.Read)
        Dim Image As Byte() = New Byte(fs.Length - 1) {}
        fs.Read(Image, 0, Convert.ToInt32(fs.Length))
        fs.Close()

Dim column As New DataColumn(Logo , Type.[GetType]("System.Byte[]"))

objet_dataset.Tables(0).Columns.Add(column)
objet_dataset.Tables(0).Rows(0)(column) = Image

 rpt.SetDataSource(objet_dataset.Tables(0))

.
.
.
.
.
'instruction de creation de fichie pdf ou doc
end sub