Descargar solución VBNET_Crystal_Filtro.zip
Para este ejemplo vamos a crear un DataSet con la siguiente estructura:
Codigo tipo Short
Descripcion tipo String
Valor tipo decimal
Moneda tipo String
<xs:schema id=»dsDatos» targetNamespace=»http://tempuri.org/dsImagenes.xsd»
elementFormDefault=»qualified» attributeFormDefault=»qualified»
>
<xs:element name=»dsDatos» msdata_IsDataSet=»true»>
<xs:complexType>
<xs:choice maxOccurs=»unbounded»>
<xs:element name=»Datos»>
<xs:complexType>
<xs:sequence>
<xs:element name=»Codigo» type=»xs:short» minOccurs=»0″ />
<xs:element name=»Descripcion» type=»xs:string» minOccurs=»0″ />
<xs:element name=»Valor» type=»xs:decimal» minOccurs=»0″ />
<xs:element name=»Moneda» type=»xs:string» minOccurs=»0″ />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
</xs:element>
</xs:schema>
Como aplicamos el filtro?
Luego de instanciar el reporte, he indicarle el Load le definimos el filtro que puede ser tan complejo como lo queramos.
En este caso los datos tienen 10 registros y vamos a filtrar por el código, le indicaremos que solo muestre los registros con el código mayor a 4
o que solo muestre los registros 1,4 y 6
también podemos hacer una mezcla de varios filtros utilizando en «AND»
SQL &= «AND {Datos.Moneda} > 'Colones'»
como vemos si el filtro es un string debemos definirlo con comillas simples '
incluso hacer operaciones en el filtro
En los tipos de filtros podemos utilizar diferente <>, igual que =, mayor que >, menor que <, mayor igual >=, menor igual <=, por rango in.
Try
Dim iReporte As New VisorReporte
Dim SQL As String
Dim rpt As New crDatos
rpt.Load()
If Me.chkFiltro.Checked Then
SQL = «{Datos.Codigo} > 4»
ElseIf Me.chkFiltro2.Checked Then
SQL = «{Datos.Codigo} in [1, 4, 6]»
ElseIf Me.chkFiltro3.Checked Then
SQL = «{Datos.Codigo} > 4»
SQL &= «AND {Datos.Moneda} = 'Colones'»
End If
rpt.RecordSelectionFormula = SQL
rpt.SetDataSource(ReturnDataSet)
rpt.Refresh()
iReporte.Reporte = rpt
iReporte.ShowDialog()
Catch ex As Exception
Throw ex
End Try
End Sub
