1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
dim s as string
dim sr as System.IO.StringReader
'les variables NO,LIB1 sont supposées déjà remplise ( par des requêtes eventuelement)
'on forme notre chaine au format XML
s="<root>" & _
"<NO> " & NO & " </NO> & _
"<LIB1> " & LIB1 & " </LIB1>" & _
"<GENRE> " & cgenre(2) & " </GENRE>
s="</root>"
try
sr= new System.IO.StringReader(s)
dim ds as new DataSet
dim cr as new MonEtat ' le fichier .rpt
ds.ReadXml(sr)
cr.SetDataSource(ds.Tables(0))
MyReportViewer.ReportSource = cr
catch ex as exception
msgbox(ex.Message)
end try |