كيف اطبع تقرير من datasetبالكود

بسم الله الرحمن الرحيم

نرجوا رفع مشروعك حتى نستطيع المساعدة

تفضل الملف

المطلوب طباعة جملتي الاستعلا فتقرير بالكود,,,,,,,,,,

رقم الفاتورة .......

اسم الصنف السعر

........ .............

........ .............

........ .............

........ .............

........ .............

cood كتب:

تفضل الملف

المطلوب طباعة جملتي الاستعلا فتقرير بالكود,,,,,,,,,,

رقم الفاتورة ....... التاريخ........

-------------------------------------------------

اسم الصنف السعر

........ .............

........ .............

........ .............

........ .............

........ .............

--------------------------------------------------

لم استطع تحميل القاعده لان حجمها 2 ميقا :sad:

والحد الاقصى 600 كيلو

WinRAR archive جديد ‫‬.rar

cood كتب:

لم استطع تحميل القاعده لان حجمها 2 ميقا :sad:

والحد الاقصى 600 كيلو

مارايكم بهذ الكود ومالذي ينقصه؟

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
    Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=db;Integrated Security=True;")
    Dim cmd As New SqlCommand



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter("SELECT no, date FROM   t1 WHERE    no = 1 ", con)

        ds.Tables.Add("fatora2")
        con.Open()
        da.Fill(ds, "fatora2")
        DataGridView1.DataSource = ds.Tables("fatora2")



        cmd.Connection = con
        cmd.CommandText = " SELECT   prc, itm FROM  t2 WHERE  (no_2 = 1)"
        cmd.CommandType = CommandType.Text
        Label1.Text = cmd.ExecuteScalar

        Dim e1 As New CrystalReport1
        e1.SetDataSource(ds.Tables("fatora2"))
        'CrystalReportViewer1.ReportSource = e1
        'Me.CrystalReportViewer1.RefreshReport()
        e1.print()

        con.Close()
    End Sub
End Class

cood كتب:

مارايكم بهذ الكود ومالذي ينقصه؟

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
    Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=db;Integrated Security=True;")
    Dim cmd As New SqlCommand



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter("SELECT no, date FROM   t1 WHERE    no = 1 ", con)

        ds.Tables.Add("fatora2")
        con.Open()
        da.Fill(ds, "fatora2")
        DataGridView1.DataSource = ds.Tables("fatora2")



        cmd.Connection = con
        cmd.CommandText = " SELECT   prc, itm FROM  t2 WHERE  (no_2 = 1)"
        cmd.CommandType = CommandType.Text
        Label1.Text = cmd.ExecuteScalar

        Dim e1 As New CrystalReport1
        e1.SetDataSource(ds.Tables("fatora2"))
        'CrystalReportViewer1.ReportSource = e1
        'Me.CrystalReportViewer1.RefreshReport()
        e1.print()

        con.Close()
    End Sub
End Class

up :sad:

cood كتب:

up :sad:

ياعرب :huh:

cood كتب:

ياعرب :huh:

طيب احد يعطيني مثال عن طباعة تقرير من الداتا ست بالكود