[aftfm]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني طباعة السجلات المختارة من الداتا قريد فقط دون بقية السجلات التي لم يتم تحديدها

[الوليد ☺]

السلام عليكم ورحمة الله

هذه طريقتين تنشئ لك جملة استعلام جاهزة، ما عليك إلا استخدامها بطريقتك

الأولى: لو كنت تحدد الأسطر عن طريق تحديدها بالماوس

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 


[atefkhalf2004]

ممكن مثال حيث ان الموضوع مفيد وهام للجميع