从VB.Net打印Crystal报表中的图像

我想在Crystal Reports中打印图像。我从网上得到了一些代码，但是图像没有显示出来；仅显示第一列上的文本ok

如有任何建议，将不胜感激

提前谢谢

这是我的密码

    Dim myRpt As New ImageReport

    Dim txtHeader As CrystalDecisions.CrystalReports.Engine.TextObject = myRpt.Section2.ReportObjects("txtHeader")
    txtHeader.Text = "IMAGE AND TEXT"

    Dim txtDateNow As CrystalDecisions.CrystalReports.Engine.TextObject = myRpt.Section2.ReportObjects("txtDateNow")
    txtDateNow.Text = Format(Now(), "MMMM d, yyyy")

    Dim row As DataRow = Nothing
    Dim DS As New DataSet

    'ADD A TABLE TO THE DATASET
    DS.Tables.Add("rp_recipe_cr_image_report")

    'ADD THE COLUMNS TO THE TABLE
    With DS.Tables(0).Columns
        .Add("others_t1", Type.GetType("System.String"))
        .Add("image", Type.GetType("System.Byte[]"))
    End With

    Dim fs As New FileStream("D:\asianporkroll.Jpg", FileMode.Open)
    Dim br As New BinaryReader(fs)
    Dim lBImageByte As Byte()

    lBImageByte = New Byte(fs.Length + 1) {}
    lBImageByte = br.ReadBytes(Convert.ToInt32(fs.Length))

    row = DS.Tables(0).NewRow
    row(0) = "ok"
    row(1) = lBImageByte
    DS.Tables(0).Rows.Add(row)

    br.Close()
    fs.Close()

    myRpt.SetDataSource(DS)
    CrystalReportViewer1.ReportSource = myRpt
    CrystalReportViewer1.Refresh()

    'DISPOSE OF THE DATASET
    DS.Dispose()
    DS = Nothing

---

您的映像在Crystal Reports中是如何定义的？首先，我在access中创建了一个包含列名others_t1和image的表。我在crystal report name ImageReport中拖放这两列。当您将图像列插入报告中，然后右键单击它时，上下文菜单是否会在顶部显示类似Blob Field:image的内容？hi Competable_tech，现在可以工作了。我将字段类型更改为ole对象，现在它变成了blob字段。多谢各位