Formulas

Hola a todos:

gracias a todos encontre el siguiente articulo a ver si
encuentro algo que me sirva.

http://support.businessobjects.com/...articles/c
2010287.asp


Alberto López
Chile

Hola:
Yo las asigno con el sigueinete códugo.
Dim pvCollection As New
CrystalDecisions.Shared.ParameterValues
Dim pdvValor As New
CrystalDecisions.Shared.ParameterDiscreteValue
Dim rptRep As New ReportDocument
Dim bmpImagen As
System.Windows.Forms.PictureBox 'StdPicture


'Objetos para establecer la coneccion
Dim tbCurrent As
CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As
CrystalDecisions.Shared.TableLogOnInfo
Dim picture As PictureObject
Try
rptRep.ReportOptions.EnableSaveDataWithReport =
False
rptRep.VerifyDatabase()
'Establecer conexion del reporte
For Each tbCurrent In rptRep.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = gsServer
.UserID = gsUsr
.Password = gsClave
.DatabaseName = gsBD
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
'Establecer parametros para el reporte
' Limpiar para el siguientye parametro (formula)
pvCollection.Clear()
pdvValor.Value = lstrTit1
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("Tit5").ApplyCurrentValues(pvCollection)
' Limpiar para el siguientye parametro
pvCollection.Clear()
pdvValor.Value = lstrTit2
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("Tit4").ApplyCurrentValues(pvCollection)
' Limpiar para el siguientye parametro
pvCollection.Clear()
pdvValor.Value = lstrTit3
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("Tit3").ApplyCurrentValues(pvCollection)
' Limpiar para el siguientye parametro
pvCollection.Clear()
pdvValor.Value = lstrTit4
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("Tit2").ApplyCurrentValues(pvCollection)
' Limpiar para el siguientye parametro
pvCollection.Clear()
pdvValor.Value = lstrTit5
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("Tit1").ApplyCurrentValues(pvCollection)
pvCollection.Clear()
pdvValor.Value = Me.txtFini.Text
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("@FINI").ApplyCurrentValues(pvCollection)
' Limpiar para el siguientye parametro
pvCollection.Clear()
pdvValor.Value = Me.txtFFin.Text
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("@FFIN").ApplyCurrentValues(pvCollection)

' Limpiar para el siguientye parametro
pvCollection.Clear()
Dim linaviera As Integer = 0
If cmbCus.SelectedIndex > 0 Then
linaviera = DirectCast(cmbCus.Items
(cmbCus.SelectedIndex), cboDatos).ID
End If
pdvValor.Value = linaviera
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("@CUSTOMER").ApplyCurrentValues(pvCollection)
' Limpiar para el siguientye parametro
pvCollection.Clear()
If linaviera > 0 Then
pdvValor.Value = DirectCast(cmbCus.Items
(cmbCus.SelectedIndex), cboDatos).Des
Else
Dim lsDes As String = ""
pdvValor.Value = lsDes
End If
pvCollection.Add(pdvValor)
rptRep.DataDefinition.ParameterFields
("Cliente").ApplyCurrentValues(pvCollection)

crv1.ReportSource = rptRep
Me.Cursor = Cursors.Default
rptRep = Nothing
Catch ex As Exception
If TypeOf ex.GetType Is SqlException Then
Dim exBD As SqlException
exBD = CType(ex, SqlException)
Call gSqlErrors(exBD)
Else
Call gErrors(ex)
End If
Finally
Me.Cursor = Cursors.Default
rptRep = Nothing
End Try