تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة في طباعة تقرير بعد البحث
#1
السلام عليكم
اعمل على برنامج فيجوال بيسك بعد عملية بحث بين تاريخين اريد اظهار نتيجة في داتا قريد الى حد هنا توفقت والحمد لله مشكلتي ان لمر الطباعة لا يقوم بطلاعة ماظهر في الداتا قريد وانما كل معطيات قاعدة البيانات .
الرجاء مساعدتي ان امكن لتعديل كود الطباعة:
Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
Dim cnStr As String, cmdText As String

cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\base_issam.mdb"
Dim cn As New OleDbConnection(cnStr)
Dim dt As New DataTable("calcul")
Try
cn.Open()


cmdText = "SELECT * FROM calcul where [DateDep] between format(#" & DateTimePicker3.Value.Date & "#,'mm/dd/YYYY') and format(#" & DateTimePicker2.Value.Date & "#,'mm/dd/YYYY')"
'MsgBox(cmdText)
'Exit Sub
cmd = New OleDbCommand(cmdText, cn)
dr = cmd.ExecuteReader()
If dr.HasRows Then
dt.Load(dr)
End If
dr.Close()

DataGridView1.DataSource = dt

DataGridView1.RowHeadersVisible = False

DataGridView1.Columns(0).HeaderText = "id"
DataGridView1.Columns(1).HeaderText = "DateDep"
DataGridView1.Columns(2).HeaderText = "Description"
DataGridView1.Columns(3).HeaderText = "type"
DataGridView1.Columns(4).HeaderText = "depences_recette"
DataGridView1.Columns(5).HeaderText = "recettes"
DataGridView1.Columns(6).HeaderText = "dépences"

DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

''**********************************************************
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
cn.Close()
cn = Nothing
End Try
End Sub
'---------------------------------------------------------------------------------------------

Private Sub PrintGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintGrid.Click




Dim t As DataTable
Dim dr As DataRow

Dim i As Int16 = 0
Do While i < DataGridView1.Rows.Count - 1
t = ds.Tables("Calcul")
dr = t.NewRow
If DataGridView1.Rows(i).Cells(0).Value <> Nothing Then dr(0) = DataGridView1.Rows(i).Cells(0).Value.ToString
If DataGridView1.Rows(i).Cells(1).Value <> Nothing Then dr(1) = DataGridView1.Rows(i).Cells(1).Value.ToString
If DataGridView1.Rows(i).Cells(2).Value <> Nothing Then dr(2) = DataGridView1.Rows(i).Cells(2).Value.ToString
If DataGridView1.Rows(i).Cells(3).Value <> Nothing Then dr(3) = DataGridView1.Rows(i).Cells(3).Value.ToString
If DataGridView1.Rows(i).Cells(4).Value <> Nothing Then dr(4) = DataGridView1.Rows(i).Cells(4).Value.ToString
If DataGridView1.Rows(i).Cells(5).Value <> Nothing Then dr(5) = DataGridView1.Rows(i).Cells(5).Value.ToString

i += 1
Loop


Dim fr1 As New frmprintcalcul
Dim Rep As New Calcul
Rep.Database.Tables(0).SetDataSource(DS)
fr1.CrystalReportViewer1.ReportSource = Rep
fr1.Show()

End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود طباعة فاتورة مبيعات على طابعة EPSON LQ-300+ /II ESC/P 2 سيد درويش 2 2,737 27-11-16, 12:14 PM
آخر رد: hglogtd
  ماهي الطريقة لعرض بيانات مشفره في تقرير؟ قناص المدينة 0 53 12-11-16, 06:29 PM
آخر رد: قناص المدينة
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 172 12-09-16, 12:25 AM
آخر رد: adel2012
  طباعة السجل الحالي علي كعبي 19 517 23-06-16, 02:11 AM
آخر رد: علي كعبي
  [سؤال] كيف يمكننى طباعة كل الفواتير مصممه بالكريستال ريبورت وvb.net? محمود بكرى 4 307 21-06-16, 11:46 PM
آخر رد: محمود بكرى
  طباعة التقرير من جدولين aftfm 19 484 09-06-16, 03:20 AM
آخر رد: حريف برمجة
  [VB.NET] إنشاء تقرير Crystal Report من أكثر من جدول saad.abu 0 253 06-06-16, 11:43 PM
آخر رد: saad.abu
  ارجو المساعدة لحل هذه المشكلة في كريستال ريبورت 13 ahmed saleh 1 192 21-05-16, 11:48 PM
آخر رد: abdhassan
  [سؤال] ارجو المساعدة رسالة خطاء عند طباعة التقرير من كريستال ريبورت 13 ahmed saleh 2 268 18-05-16, 03:52 AM
آخر رد: abdhassan
Lightbulb [سؤال] تقرير يعتمد على نص في التكست بوكس محمد 1 844 02-01-16, 01:02 AM
آخر رد: الراشيدي

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


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