تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
logo in datattable
#1
السلام عليكم
انا استخدم كريستال ريبورت
واطبع تقرير عن طريق datatble
السؤال
لدي الحقل
k24من نوع  System.Byte()

هل يمكن جلب صورة من كمبيوتر او قاعدة بيانات
ووضعها في k24
علما تعبئة datatable


كود :
       Dim dt As New DataTable
       With dt


           .Columns.Add("k2")
           .Columns.Add("k3")

           .Columns.Add("k4")
           .Columns.Add("k5")
           .Columns.Add("k6")

           .Columns.Add("k7")



           .Columns.Add("k8")
           .Columns.Add("k9")
           .Columns.Add("k10")
           .Columns.Add("k11")


           .Columns.Add("k14")
           .Columns.Add("k16")
           .Columns.Add("k17")
           .Columns.Add("k18")
           .Columns.Add("k19")
           .Columns.Add("k20")
           .Columns.Add("k21")
           .Columns.Add("k22")
           .Columns.Add("k23")


           .Columns.Add("k25")
           .Columns.Add("id")
           .Columns.Add("name")
           .Columns.Add("Expr1")
           .Columns.Add("k24")



       End With

       Try

     

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       Dim date1 As String = DTP.Value.Date

       For I As Integer = 0 To dgv_bill.Rows.Count - 2

           'dt.Rows.Add(date1, TXT_iD.Text, K2.Text, K3.Text, K4.Text, k5.Text, txt_usere.Text)
           dt.Rows.Add(txt_rmz.Text, txt_name.Text, k1.Text, k3.Text, k7.Text, My.Settings.k1, My.Settings.k2, My.Settings.k3, My.Settings.k4, My.Settings.k5, dgv_bill.Rows(I).Cells(3).Value, dgv_bill.Rows(I).Cells(4).Value, dgv_bill.Rows(I).Cells(5).Value, dgv_bill.Rows(I).Cells(7).Value, dgv_bill.Rows(I).Cells(8).Value, dgv_bill.Rows(I).Cells(9).Value, dgv_bill.Rows(I).Cells(10).Value, dgv_bill.Rows(I).Cells(11).Value, date1, TextBox1.Text, TextBox2.Text, txt_valhsm.Text, TextBox4.Text)
       Next

       Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
       rptDoc = New Crystalbill
       rptDoc.SetDataSource(dt)
       FRM_PRINT.CrystalReportViewer1.ReportSource = rptDoc
       FRM_PRINT.ShowDialog()

       FRM_PRINT.Dispose()
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  logo محاسب يوسف 2 508 17-03-14, 05:57 PM
آخر رد: محاسب يوسف

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم