17-06-16, 02:46 AM
الصفحات : 1 2
17-06-16, 02:43 PM
يا علي،
شو هاذ اللي في WindowsApplication4
عموما، كان الحل موجود في موضوعك: طباعة التقرير
http://vb4arb.com/vb/thread-15919.html
شو هاذ اللي في WindowsApplication4
عموما، كان الحل موجود في موضوعك: طباعة التقرير
http://vb4arb.com/vb/thread-15919.html
17-06-16, 11:36 PM
هذا في حال اختيار سجل من الداتا قريد فيو
وانا لااريد هذا بل اريد عند اضافة السجل والظغط على مفتاح باركود يتم طباعة هذا السجل المضاف
هذا هو المثال المرد تطبيق المطلوب عليه بحيث عند اضافة سجل جديد يتم طباعة باركود لنفس هذا السجل
وانا لااريد هذا بل اريد عند اضافة السجل والظغط على مفتاح باركود يتم طباعة هذا السجل المضاف
هذا هو المثال المرد تطبيق المطلوب عليه بحيث عند اضافة سجل جديد يتم طباعة باركود لنفس هذا السجل
18-06-16, 01:37 AM
هل من مجيب
مافيه اي احد يساعدني
مافيه اي احد يساعدني
18-06-16, 02:41 AM
مافيه حل ياخوان
هل السوال صعب ياخوان
وين المساعده ياخوان
هل السوال صعب ياخوان
وين المساعده ياخوان
18-06-16, 04:02 AM
مافيه ردود
18-06-16, 11:41 PM
وينكم يااستذة مافية مساعدة
19-06-16, 02:55 AM
اذا كنت تريد طباعة السجل الحالي قول لي
19-06-16, 03:01 AM
ايه نعم اريد عند اضافة السجل يتم طباعتة اي السجل الحالي الموجود على الفورم
والمثال موجود لتطبق المطلوب عليه
والمثال موجود لتطبق المطلوب عليه
19-06-16, 03:06 AM
راح ارفقلك مثال الصحيح ان شاء الله يساعدك
كود :
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form1
Dim conn As New SqlConnection("Data source=.\SQLEXPRESS; Database=yours;Integrated Security=true")
Dim cmd As SqlCommand
Dim reader As SqlDataReader
Dim r As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SqlQuery As String = "select * from table WHERE id = " & DataGridView1.SelectedRows(0).Cells(0).Value & ""
Dim SqlCommand As New SqlCommand
Dim SqlAdepter As New SqlDataAdapter
Dim TABLE As New DataTable
With SqlCommand
.CommandText = SqlQuery
.Connection = conn
End With
With SqlAdepter
.SelectCommand = SqlCommand
.Fill(TABLE)
End With
Dim crystal As New CrystalReport1
crystal.SetDataSource(TABLE)
CrystalReportViewer1.ReportSource = crystal
CrystalReportViewer1.Refresh()
End Sub
Private Sub showdata()
Dim conn As SqlConnection = New SqlConnection("Data source=.\SQLEXPRESS; Database=yours;Integrated Security=true")
Dim sqlstr = "select * from table"
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, conn)
Dim ds As New DataSet
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
showdata()
End Sub
End Classالصفحات : 1 2