Códigos Fuente de Visual Basic.NET

Imports System.Data.SqlClient

Imports System.Data

Private Sub ingresos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

	Cnn.open

	Try

		Dim Ds As New dsingresos

		Dim Da As New SqlClient.SqlDataAdapter("Select * From TABLA " & _

		"where FECHA_INGRESO >= '" & CAMPO_INGRESO.DateTimePicker11.Text & "' and FECHA_INGRESO <= '" & CAMPO_INGRESO.DateTimePicker22.Text & "' order by FECHA_INGRESO", Cnn)

		Da.Fill(Ds, "TABLA")

		'Mandar los datos al dataSet y muestralos

		'se tiene que crear forzosamente esta instancia para poder pasar

		'parametros...

		Dim Reporte As New NOMBRE_REPORTE

		Reporte.SetDataSource(Ds)

		Reporte.SummaryInfo.ReportTitle = "TITULO DE MI REPORTE " & Today

		Reporte.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape

		Me.CrystalReportViewer1.ReportSource = Reporte

	Catch ex As Exception

		MessageBox.Show(ex.ToString)

	End Try

End Sub

Imports system.DateTime

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

	'Se asigna al 11 y 22 para que no cambie el fomato de fechas

	DateTimePicker11.Text = DateTimePicker1.Text

	DateTimePicker22.Text = DateTimePicker2.Text

	'Cambia formato de fechas para 11 y 22

	DateTimePicker11.CustomFormat = "yyyyMMdd"

	DateTimePicker11.Format = DateTimePickerFormat.Custom

	DateTimePicker22.CustomFormat = "yyyyMMdd"

	DateTimePicker22.Format = DateTimePickerFormat.Custom

	My.Forms.ingresos.ShowDialog()

End Sub

Dim frAlert As New windowAlert

frAlert.aConfirm(Me, "AQUI LO QUE QUIERES QUE PREGUNTE")

AddHandler frAlert.botonYes.Click, AddressOf botonSi_1 ' al dar click en boton Si

Sub botonSi_1(sender As Object, e As EventArgs)

    ' aqui pones tu código que deseas que haga al dar click en si.

End Sub