Dalila
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 17/08/2007 10:54 hs
Erro 13 Type Mismatch e expressão booleana retorna FALSO e VERDADEIRO ao inves de false or true. O que pode ser? SO XP Professional, VB6.
|
|
|
|
|
Postada em 17/08/2007 16:10 hs
tem como passar o código no qual acontece o erro?
|
|
|
Dalila
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 17/08/2007 16:32 hs
Claro!  Private Sub sdgParcelas_RowLoaded(ByVal Bookmark As Variant) With sdgParcelas.Columns(5) If .CellText(Bookmark) Then If sdgParcelas.Columns(7).CellValue(Bookmark) = "False" Then .CellStyleSet "Pg" .Text = sConstSim Else .CellStyleSet "Canc" .Text = "Can." End If Else .CellStyleSet "NPg" .Text = sConstNao End If End With End Sub O problema é que o resultado da expressão está saindo em português... Olha só... ?sdgParcelas.Columns(5).CellText(Bookmark) Falso Já formatei, reinstalei os componentes de desenvolvimento, e nada... Mas outras máquinas rodam a aplicação normalmente... Muito obrigada!!! Abraços!!! 
|
|
|
Roßerto
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2007 02:08 hs
If NOT sdgParcelas.Columns(7).CellValue(Bookmark) Then
tenta dessa maneira
|
|
|
|
Postada em 19/08/2007 23:22 hs
Como colocou o colega tenta da maneira que ele passou. Sempre, quando quiser comparar valores, compare com sua própria categoria, tipo booleanos com tipos booleanos, strings com strings, datas com datas e assim por diante. :) Type Mismatch são tipos incompatíveis. Então está tendo uma atribuição ou comparação de tipos diferentes. Pode tentar usar cbool("false") se quiser fazer uma comparação com o conteúdo da célula porque não sei qual tipo vem se é texto ou se é booleano. at+
|
|
|
|
Postada em 20/08/2007 15:10 hs
uma pergunta ... esta usando controle de terceiros???? por que alguns controles retornam valores traduzidos tipo em vez de retornar True ele retorna verdadeiro eu uso um que eu testo assim if teste = 0 then 'retorna 0 se falso 'falsooooo else 'verdadeiro end if :D
|
|
|