0

在我的 .xsd 文件中,我创建了用于 Crystal Report 的数据表(内置于 Visual Studio 2005),我包含了一个列(datatatype = 'Byte'),它应该保存我的 Crystal 报告的图像.

但是,在我输入 COMMENT1 的地方总是会抛出一个错误,说该文件正在被另一个进程使用。我正在访问的文件是我们服务器的映射驱动器。

当我尝试忽略错误并按继续时,报告确实出现了..但没有它应该包含的图像。

以下是我的完整语法

    Dim x As New Reporter
    x.MdiParent = Magulang

    Dim dt As New DataTable
    dt.Columns.Add("EmpNo")
    dt.Columns.Add("FullName")
    dt.Columns.Add("Project")
    dt.Columns.Add("SSS")
    dt.Columns.Add("TIN")
    dt.Columns.Add("EmergencyPerson")
    dt.Columns.Add("EmergencyAddress")
    dt.Columns.Add("EmergencyContact")
    dt.Columns.Add("PicNya", System.Type.[GetType]("System.Byte[]"))

    Dim middleinitial As String = MiddleName.Text.Substring(0, 1)


   Dim fs As FileStream
    Dim br As BinaryReader


    If File.Exists(PicPath.Text) Then

     'COMMENT1 : there is error here, saying that file is used by another process
    fs = New FileStream(PicPath.Text, FileMode.Open)

    Else

        fs = New FileStream(AppDomain.CurrentDomain.BaseDirectory + "NoPhoto.jpg", FileMode.Open)
    End If
    br = New BinaryReader(fs)
    Dim imgbyte As Byte() = New Byte(fs.Length) {}
    imgbyte = br.ReadBytes(Convert.ToInt32((fs.Length)))

    MsgBox(imgbyte.ToString)
    dt.Rows.Add(EmpID.Text, FirstName.Text & " " & middleinitial & ". " & LastName.Text, Project.Text, SSS.Text, TIN.Text, EmergencyContact.Text, "", EmergencyContactNo.Text, imgbyte)

    br.Close()
    fs.Close()


    Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
    rptdoc = New HRISID1

    rptdoc.SetDataSource(dt)
    x.CrystalReportViewer1.ReportSource = rptdoc
    ProgressForm.Hide()

    x.Show()

我可以做些什么来解决 COMMENT1?如果解决了,图像最终会输出到我的水晶报告中吗?如果我想在我的计算机上输出图像,我是否走在正确的轨道上?

4

1 回答 1

0

目前,我们已经决定将每个数据传递到单独的表单中,然后使用 VB Powerpack 中包含的 PRINTFORM 对象。这是为了确保图像也被打印出来。

我不禁觉得这不是正确的解决方案,所以如果有人仍然可以贡献,非常欢迎。

于 2013-09-04T01:18:01.340 回答