+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : البيانات لاتظهر (/showthread.php?tid=29501)
البيانات لاتظهر - احمد خطاب - 26-04-19
فى الكريستال ريبورت راس الاعمدة فقط هى التى تظهر اما بيانات العمود المكررة لاتظهر
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\printt\printt\bin\Debug\ppo.accdb")
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim pp As New DataSet
Dim cmd As New OleDbCommand
Dim K As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\printt\printt\bin\Debug\prent.accdb")
'load all colummns of 'table in access 2007
Dim cmd As New OleDbCommand
Dim dt As New DataTable
cmd = New OleDbCommand("select *From pp", con)
con.Open()
dt.Load(cmd.ExecuteReader)
con.Close()
DataGridView1.DataSource = dt
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim report As New CrystalReport1
report.SetDataSource(pp)
Form2.CrystalReportViewer1.ReportSource = report
Form2.CrystalReportViewer1.Zoom(80 / 100)
Form2.CrystalReportViewer1.Refresh()
Form2.Show()
End Sub
End Class
ايه الحل اصدقائى