Base Datos

En cuanto a la consulta SQL solo le puedes cambiar la clausula WHERE, el resto tiene que tener lo mismo que en el crystal
Ej:

SQL= “ SELECT * “ _

& “ FROM tabla1, tabla2,etc “ _

& “ WHERE aqui le pones las condiciones que quieras que

cumpla el cruce de tablas”

Aqui es donde aprovechas ypara restringir el informe, y puedes poner por ejemplo que te traga aquellos campos para un elemento determinado que te han elegido en ejecución. Ej: te seleccionan a un empleado y entonces haces loscruces de tablas necesarios para sacar todos los datos de ese empleado en concreto. Con lo cual cuando diseñas el informe en el CR no sabes que empleado te seleccionarán en ejecución, tu preparas elinforme y luego es cuando le mandas la clausula definitiva.

Dim cadena1 As String

Dim cadena2 As String

Dim cadena3 As String

Dim viForm As IntegerPathString = App.Path ‘Para saber la ruta de donde está la aplicación, que luego

‘empleamos para situar el informe

‘ Opciones de como mostrar el reportCMDIMenu.CrystalReport.WindowState = crptMaximized

CMDIMenu.CrystalReport.Destination = crptToWindow

‘ Cuando haya campos en el informe que quieras rellenar, pero que su contenido escompletamente variable, es decir solo sabes que hay que poner en ese campo cuando en

ejecucion te hallan seleccionado algo, por ejemplo un rango de fechas para un informe, hay queemplear campos de formulas vacios, y que luego desde VB los rellenamos con las siguientes

sentencias:

CMDIMenu.CrystalReport.Formulas(0) = "FORM1= """ & cadena1 & """"CMDIMenu.CrystalReport.Formulas(1) = "FORM2= """ & cadena2 & """"

CMDIMenu.CrystalReport.Formulas(2) = "FORM3= """ & cadena3 & """"

‘ Etc. Tantas como formulas...