Usar código personalizado do modelo

Exemplo: Função de substituição de string

No exemplo a seguir, você cria uma função para substituir a palavra "Bike" por "Bicicleta".

1. Em Propriedades do Relatório, selecione a página Código.

2. Insira uma função do Visual Basic válida. Por exemplo:

   Public Function ChangeWord(ByVal s As String) As String

   Dim strBuilder As New System.Text.StringBuilder(s)

   If s.Contains("Bike") Then

   strBuilder.Replace("Bike", "Bicycle")

   Return strBuilder.ToString()

   Else : Return s

   End If

   End Function

3. Adicione um campo de texto ao seu modelo e edite o valor. O código definido nas Propriedades do Relatório será listado no Editor de Expressão em Código Personalizado. Utilize a seguinte expressão:

   =Code. ChangeWord("I like Bike")

    

   

 

Na visualização do relatório, o texto será mostrado como "Eu gosto de bicicleta".

Exemplo: Armazene um valor de string em uma variável

As variáveis de cálculo podem armazenar apenas valores numéricos. O exemplo a seguir mostra como armazenar um valor de string em uma variável.

1. Em Propriedades do Relatório, selecione a página Código.

2. Defina a variável e crie funções para definir e obter o valor.

   Public Function ChangeWord(ByVal s As String) As String

   Dim MyText As String = ""

    

   Function SetMyText(text as String)

   MyText = text

   Return MyText

   End Function

    

   Function GetMyText() As String

   Return MyText

   End Function

3. Para definir a variável, use a seguinte expressão em um campo ou coluna em vez do valor original.

   Por exemplo, use =code.SetMyText(Signal_ID) em vez de =Signal_ID

4. Para usar a variável posteriormente no modelo, use a seguinte expressão:

   =code.GetMyText()