[hassan 14]

هذا الكود الذي استعمله
رقم 16 يمثل مكان الشكبوكس في لبجدول مصدر البيانات
لكن عند الضغط على الزر يطبع جميع البطاقات

كود :

Public Sub tabaa(ByVal DGV1 As DataGridView)
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("select * from mochtrikin", con)
       da.Fill(dt)
       For i = 0 To DGV1.Rows.Count - 1
           If DGV1.Item(16, i).Value = True Then
               Formcrvmochtrkin.Show()
               Formcrvmochtrkin.WindowState = FormWindowState.Maximized
               Dim rpt As New CrystalReportmoch
               rpt.SetDataSource(dt)
               rpt.SetParameterValue("pic", Application.StartupPath)
               Formcrvmochtrkin.CrystalReportViewer1.ReportSource = rpt
               Formcrvmochtrkin.CrystalReportViewer1.Refresh()
           End If
       Next
   End Sub