26-04-19, 07:26 PM
فى الكريستال ريبورت راس الاعمدة فقط هى التى تظهر اما بيانات العمود المكررة لاتظهر
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
ايه الحل اصدقائى
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
ايه الحل اصدقائى