none
水晶報表,選擇圖片 RRS feed

  • 問題

  • 各位大師好!
    目前遇到一個難題,找很久想很久,來看看各位有沒有意見
    我的Crystal Report想要從電腦抓取圖片顯示,我可以讓圖片"開啟時顯示",但在"更換圖片"的時候會出問題。
    這是我目前找到最好的相關文章
    http://www.vbforums.com/showthread.php?865197-RESOLVED-Inserting-dynamic-image-in-crystal-report
    但我仍然無法在電腦隨機選擇顯示,希望有大師可以幫我看看
    Public Class Form1
        Dim Str As String
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            OpenFileDialog1.Filter = "Images|*.jpg;*.jpeg;*.png"
            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                Str = OpenFileDialog1.FileName
                ' Str = OpenFileDialog1.SafeFileName
                PictureBox1.Image = Image.FromFile(Str)
                Label1.Text = Str
            End If
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim rptDoc As New CrystalReport1
            rptDoc.SetParameterValue("Pic", "C:\Users\PC-\Desktop\2018-06-21 .jpg")
            Dim paramFields As New CrystalDecisions.Shared.ParameterFields
            Dim paramField As New CrystalDecisions.Shared.ParameterField
            Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue
    
            paramField.ParameterFieldName = "Pic" '我們創建的參數字段名稱
            discreteVal.Value = Str '再一次是新的圖像名稱和位置
            paramField.CurrentValues.Add(discreteVal)
            paramFields.Add(paramField)
            Form2.CrystalReportViewer1.ParameterFieldInfo = paramFields
            Form2.CrystalReportViewer1.Refresh()
            Form2.CrystalReportViewer1.ReportSource = rptDoc
            Form2.ShowDialog()
            Form2.Dispose()
        End Sub
    End Class
    2019年1月14日 上午 08:14

所有回覆

  • 我有發現,如果一開始就設定 Str = C:\Users\PC-\Desktop\2018-06-21 .jpg,就顯示得出來。
    但如果我換一張圖片就顯示不出來了
    2019年1月14日 上午 08:17