+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : طباعة السجلات المحددة في الداتا قريد (/showthread.php?tid=10814)
طباعة السجلات المحددة في الداتا قريد - aftfm - 28-11-14
السلام عليكم ورحمة الله وبركاته
كيف يمكنني طباعة السجلات المختارة من الداتا قريد فقط دون بقية السجلات التي لم يتم تحديدها
RE: طباعة السجلات المحددة في الداتا قريد - الوليد ☺ - 28-11-14
السلام عليكم ورحمة الله
هذه طريقتين تنشئ لك جملة استعلام جاهزة، ما عليك إلا استخدامها بطريقتك
الأولى: لو كنت تحدد الأسطر عن طريق تحديدها بالماوس
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(SqlDataGridViewSelections)
End Sub
Public Function SqlDataGridViewSelections() As String
' تجهيز الجزء الأول من جملة الاستعلام '
Dim sqlString As String = " SELECT * FROM [table1] "
' تجميع الأسطر عن تحديدها بالماوس '
Dim w As New List(Of String)
For Each r As DataGridViewRow In Me.DataGridView1.SelectedRows
w.Add(" ([ID] = " & r.Cells("id").Value & ") ")
Next
' تجميع بقية جملة الاستعلام '
sqlString &= " WHERE " & Join(w.ToArray, " OR ") & " ORDER BY [ID] "
If w.Count > 0 Then Return sqlString
End Function
الثانية: لو كنت تحدد الأسطر عن طريق عمود يكون تشيك بوكس
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(SqlDataGridViewChecked)
End Sub
Public Function SqlDataGridViewChecked() As String
' تجهيز الجزء الأول من جملة الاستعلام '
Dim sqlString As String = " SELECT * FROM [table1] "
' تجميع الأسطر عن طريق تشيك بوكس '
Dim w As New List(Of String)
For Each r As DataGridViewRow In Me.DataGridView1.Rows
If r.Cells(0).Value = True Then w.Add(" ([ID] = " & r.Cells("id").Value & ") ")
Next
' تجميع بقية جملة الاستعلام '
sqlString &= " WHERE " & Join(w.ToArray, " OR ") & " ORDER BY [ID] "
If w.Count > 0 Then Return sqlString
End Function
RE: طباعة السجلات المحددة في الداتا قريد - atefkhalf2004 - 28-11-14
ممكن مثال حيث ان الموضوع مفيد وهام للجميع