Здравствуйте мне нужна помощь с этим кодом
Здравствуйте, мне нужна помощь с этим кодом он работает все, но нужно нажать кнопку 2 А. Тиме, чтобы получить точно данные я вам все данные, и после, когда я нажимаю кнопку, я получаю то, что хочу, как исправить в один клик получить некоторые сведения
Что я уже пробовал:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As New SqlConnection Dim ds As New DataSet1 Dim ad As New DataSet1TableAdapters.TabRestorantTableAdapter ad.Fill(ds.TabRestorant) Dim rpt As New KontrataShqip rpt.SetDataSource(ds) Form2.CrystalReportViewer1.ReportSource = rpt Form2.ShowDialog() Form2.Dispose() con.ConnectionString = "" con.Open() Dim da As New SqlDataAdapter("SELECT * FROM TabRestorant where [DataDasmes]='" + DateTimePicker1.Text + "' and [Restoranti]='" + ComboBox1.Text + "' ", con) da.Fill(DS) Form2.CrystalReportViewer1.RefreshReport() Form2.CrystalReportViewer1.SelectionFormula = "{TabRestorant.DataDasmes}='" + DateTimePicker1.Text + "' and {TabRestorant.Restoranti}='" + ComboBox1.Text + "'" Form2.CrystalReportViewer1.RefreshReport() con.Close() End Sub