печать и сохранение текущей записи - PullRequest
Новая
       115

печать и сохранение текущей записи

0 голосов
/ 14 марта 2020

всем привет, у меня есть Form1 и Form2 для просмотра отчетов Crystal, Form1 как основная запись данных и главная страница имеет 10 полей TextBox и 1 datagridview. Я хочу объединить сохранение, затем распечатать непосредственно выбранные текущие записи, но мне не удалось, я попробовал много пути и я изменили и отредактировали коды, но не повезло ... единственное, что я получил, это то, что я смог напечатать в Crystal Viewer Viewer, но в целом не текущая выбранная запись, мой код печати 

 Imports CrystalDecisions.CrystalReports.Engine
 Imports System.Data
 Imports MySql.Data.MySqlClient
 Public Class Form1
 Dim conn As New MySqlConnection("server=localhost;userid=sh;password=***;database=saj;sslMode=none")
 Dim cmd As New MySqlCommand("", conn)
 Dim dt As New DataTable
 Dim da As New MySqlDataAdapter
 Dim bs As New BindingSource
 Dim sex As String
 Dim ds As DataSet
 Dim myReport As New ReportDocument

    Private Sub pr_Click(sender As Object, e As EventArgs) Handles pr.Click
    Dim rep As New CrystalReport1
    rep.SetDataSource(dt)
    Form2.CrystalReportViewer1.ReportSource = Application.StartupPath + "\CrystalReport1.rpt"
    Form2.CrystalReportViewer1.Refresh()
    Form2.CrystalReportViewer1.RefreshReport()
    Form2.Show()

Я также попытался заполнить datagridview как код ниже 

If Not String.IsNullOrWhiteSpace(r.Text) Then
        bs.Filter = String.Format("r Like '%{0}%'", r.Text)

    Else


        Dim rep As New CrystalReport1
        Dim DataViewFilter As New DataView(dt)
        DataGridView1.DataSource = DataViewFilter
        DataGridView1.DataSource = DataViewFilter
        bs.Filter = String.Format("r Like '%{0}%'", r.Text)
        rep.SetDataSource(dt)
        Form2.CrystalReportViewer1.ReportSource = Application.StartupPath + "\CrystalReport1.rpt"
        Form2.CrystalReportViewer1.Refresh()
        Form2.CrystalReportViewer1.RefreshReport()

    End If
    Form2.Show()

, но не сработало :( .. любая помощь, пожалуйста

...