+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : طباعة السجل الحالي (/showthread.php?tid=16169)
الصفحات:
1
2
طباعة السجل الحالي - علي كعبي - 17-06-16
عند اضافة سجل جديد اريد عند الضغط على زر طباعة باركود يتم طباعة السجل الحالي
اي طباعة رقم القيد الحالي
RE: طباعة السجل الحالي - الوادي - 17-06-16
يا علي،
شو هاذ اللي في WindowsApplication4
عموما، كان الحل موجود في موضوعك: طباعة التقرير
http://vb4arb.com/vb/thread-15919.html
RE: طباعة السجل الحالي - علي كعبي - 17-06-16
هذا في حال اختيار سجل من الداتا قريد فيو
وانا لااريد هذا بل اريد عند اضافة السجل والظغط على مفتاح باركود يتم طباعة هذا السجل المضاف
هذا هو المثال المرد تطبيق المطلوب عليه بحيث عند اضافة سجل جديد يتم طباعة باركود لنفس هذا السجل
RE: طباعة السجل الحالي - علي كعبي - 18-06-16
هل من مجيب
مافيه اي احد يساعدني
RE: طباعة السجل الحالي - علي كعبي - 18-06-16
مافيه حل ياخوان
هل السوال صعب ياخوان
وين المساعده ياخوان
RE: طباعة السجل الحالي - علي كعبي - 18-06-16
مافيه ردود
RE: طباعة السجل الحالي - علي كعبي - 18-06-16
وينكم يااستذة مافية مساعدة
RE: طباعة السجل الحالي - hitman48 - 19-06-16
اذا كنت تريد طباعة السجل الحالي قول لي
RE: طباعة السجل الحالي - علي كعبي - 19-06-16
ايه نعم اريد عند اضافة السجل يتم طباعتة اي السجل الحالي الموجود على الفورم
والمثال موجود لتطبق المطلوب عليه
RE: طباعة السجل الحالي - hitman48 - 19-06-16
راح ارفقلك مثال الصحيح ان شاء الله يساعدك
كود :
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