none
Adicionar vírgula entre os registros RRS feed

  • Pergunta

  • Pessoal,

    Gostaria de saber como posso fazer para adicionar neste caso vírgula entre os registros.

    Tenho 11 registros em Checkbox cada um com seu valor e tenho uma variável para compor o código final.

    Checkbox1 que se estiver Checked grava o valor na variável marca1
    Checkbox2 que se estiver Checked grava o valor na variável marca2
    Checkbox3 que se estiver Checked grava o valor na variável marca3

    e assim por diante até o 11.

    Neste caso na variável marca teria que incluir as variáveis das outras marcas da seguinte maneira.

    Ex1:

    Se somente uma marca conter valor somente ela seria incluída na variável marca

    marca = marca2

    Ex2:

    Se mais do que uma marca conter valor teria que colocar a vírgula entra as variáveis, porem a última marca não pode ter a vírgula.

    marca = marca1 & ", " & marca3

    Esse código ira fazer parte de um select na base de dados.

    Desde já obrigado pela atenção

    terça-feira, 15 de maio de 2018 20:19

Respostas

  • Coloquei uma validação dentro de cada If do Checkbox e obtive o resultado esperado, não sei se teria outra forma.

    If CheckBox9.Checked = True Then
        marca9 = 31
        If marca = Nothing Then
            marca = marca9
        Else
            marca &= ", " & marca9
        End If
    End If



    terça-feira, 15 de maio de 2018 20:39

Todas as Respostas

  • Coloquei uma validação dentro de cada If do Checkbox e obtive o resultado esperado, não sei se teria outra forma.

    If CheckBox9.Checked = True Then
        marca9 = 31
        If marca = Nothing Then
            marca = marca9
        Else
            marca &= ", " & marca9
        End If
    End If



    terça-feira, 15 de maio de 2018 20:39
  • Tente assim:

    If CheckBox9.Checked = True Then
        marca9 = 31
        IIf (marca = Nothing, marca = marca9, marca &= ", " & marca9)
    End If


    MARIANO1776

    quarta-feira, 23 de maio de 2018 02:00