USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  String para Booleano - É possível ?
dieimes_
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 23/08/2007 15:23 hs            
Boa tarde
 
Pessoal, Minha idéia é a seguinte: Montar uma expressão com base nos dados de textboxes e maskedboxes. Eu queria saber se posso transformar essa expressão(string) em uma expressão booleano para testar com o comando "If"?
 
Grato
 
 
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 23/08/2007 15:55 hs            
Será isto?
If rsTabela!Campo = True Then
   STRVAR = "SIM"
Else
   STRVAR = "NÃO"
End If
 
vlu//
   
dieimes_
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 23/08/2007 16:27 hs            
Não
 
Funcionaria assim:
Como eu tenho dados que vem de uma collection que existe numa determinada classe, eu não posso usar uma sql para filtrar esses dados pq eles não estão numa tabela. Sendo assim , terei de usar uma expressão. Para que eu não tenha que usar uma expressão enorme cheia de funções "Iff" na própria linha do comando "If", eu pretendia montar uma expressão usando uma string, e depois usá-la na linha do "if". É meio complicado de explicar. Vou te dar um exemplo:
 
Dim Expressao as String
 
' montagem da expressão
 
if txttal.text<>"" then
    expressao=expressao & txttal.text
end if
 
if txttal2.text<>"" then
    expressao=expressao & txttal2.text
end if
 
' aqui eu testaria a expressão com o comando if, caso fosse possível a conversão
 
if cbool(expressao) then
    ' faz o que é p ser feito
end if
 
talvez seja uma idéia meia louca, mas se isso fosse possível, facilitaria muito
 
valew por responder
 
 
 
 
 
 
 
 
 
 
 
 
 
   
Msmarcus_RJ
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 23/08/2007 18:00 hs         
Amigo, não sei se entendi direito, mas aqui em meu exemplo eu criei uma função.

Código

Private Sub Form_Load()
If filtrar(Text1.Text) = True Then
MsgBox "Contém o texto TESTE"
Else
MsgBox "Não contém o texto TESTE"
End If
End Sub

Public Function filtrar(texto)
If texto = "teste" Then: filtrar = True
If texto <> "teste" Then: filtrar = False
End Function




______________________________
Resolveu ? Tópico Trancado!

   
dieimes_
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 23/08/2007 19:28 hs            
é....direto acho q não vai dar pra fazer mesmo, mas vvc me deu uma boa idéia.
 
Valew
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página