11-04-15, 08:10 AM
السلام عليكم
انا استخدم كريستال ريبورت
واطبع تقرير عن طريق datatble
السؤال
لدي الحقل
k24من نوع System.Byte()
هل يمكن جلب صورة من كمبيوتر او قاعدة بيانات
ووضعها في k24
علما تعبئة datatable
انا استخدم كريستال ريبورت
واطبع تقرير عن طريق 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()