Private Sub Button1Click(sender As Object, e As EventArgs) Dim r As DataGridViewRow = dataGridView1.CurrentRow Dim id As Integer = CInt(r.Cells("id").Value) Dim name As String = DirectCast(r.Cells("name").Value, String) Dim age As Integer = CInt(r.Cells("age").Value)
Dim pof As New PrintOneForm() Dim por As New PrintOneReport() por.SetParameterValue("id", id) por.SetParameterValue("name", name) por.SetParameterValue("age", age) pof.crystalReportViewer1.ReportSource = por pof.Show() End Sub