[hassan 14]

هذا الكود المستخدم

كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("select * from mochtrikin ", con)
       da.Fill(dt)
               For i As Integer = 0 To DGV1.Rows.Count - 1
           If DGV1.Item(16, i).Value.ToString = 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