de momento solo pondre la entrada mas tarde colocare la explicacion.
Function CargaReporte() As System.NullReferenceException
Dim DelegateTable As New DataTable("USUARIOS")
Dim DelegateRow As DataRow = Nothing
Dim OnionCount As Integer = 1
DelegateTable.Columns.Add(New DataColumn("NOMBRE", GetType(String)))
DelegateTable.Columns.Add(New DataColumn("USUARIO", GetType(String)))
DelegateTable.Columns.Add(New DataColumn("DEPARTAMENTO", GetType(String)))
DelegateTable.Columns.Add(New DataColumn("blob", GetType(Byte())))
Adapter = New OleDbDataAdapter("EL_QUERY", cnx)
Adapter.Fill(DS, "T_USUARIOS")
cnx.Close()
For Each Filas As DataRow In DS.Tables("T_seg_c_usuarios").Rows
DelegateRow = DelegateTable.NewRow
DelegateRow("Nombre") = Filas("nombre")
DelegateRow("usuario") = Filas("usuario")
DelegateRow("departamento") = Filas("departamento")
If OnionCount <= 5 Then DelegateRow("blob") = ImageToCrystalDefinition("Onion" & OnionCount & ".jpg") OnionCount = OnionCount + 1
ElseIf OnionCount = 6 Then
OnionCount = 1 DelegateRow("blob") = ImageToCrystalDefinition("Onion" & OnionCount & ".jpg")
End If
DelegateTable.Rows.Add(DelegateRow) Next DS.Tables.Add(DelegateTable) DS.WriteXmlSchema(Server.MapPath("Reportes\DataDef\DataMember.xml")) FileName = Server.MapPath("Reportes\imagenesDinamicas.rpt")
ReportMe.Load(FileName) ReportMe.SetDataSource(DelegateTable)
CrystalReportViewer1.ReportSource = ReportMe CrystalReportViewer1.DataBind()
ReportMe.Load(FileName) ReportMe.SetDataSource(DelegateTable)
CrystalReportViewer1.ReportSource = ReportMe CrystalReportViewer1.DataBind()
CrystalReportViewer1.DisplayToolbar = False
DS.Clear()
End Function
Function ImageToCrystalDefinition(Optional ByVal ImgName As String = "Onion1.jpg") As Byte()
Dim image As Byte() = Nothing
Dim BasicPath As String = Server.MapPath("Reportes\Imagenes")
BasicPath = BasicPath & "\" & ImgName
Dim Fs As New FileStream(BasicPath, FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(Fs)
image = New Byte(CInt(Fs.Length) - 1) {}
br.Read(image, 0, CInt(Fs.Length))
br.Close()
Fs.Close()
Return image
End Function
Function ImageToCrystalDefinition(Optional ByVal ImgName As String = "Onion1.jpg") As Byte()
Dim image As Byte() = Nothing
Dim BasicPath As String = Server.MapPath("Reportes\Imagenes")
BasicPath = BasicPath & "\" & ImgName
Dim Fs As New FileStream(BasicPath, FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(Fs)
image = New Byte(CInt(Fs.Length) - 1) {}
br.Read(image, 0, CInt(Fs.Length))
br.Close()
Fs.Close()
Return image
End Function
