5 replies to this topic

[JurisCode]

eu quero qeu aconteça o seguinte:

select * from tabela

e depois assim:

if RS("campo1") = "" and RS("campo2") = "" and RS("campo3") = "" and RS("campo4") = "" and RS("campo5") = "" then
response write "<font color=red>"

if RS("campo1") <> "" and RS("campo2") <> "" and RS("campo3") <> "" and RS("campo4") <> "" and RS("campo5") <> "" then
response write "<font color=Blue>"
else
response write "<font color=black>"
end if
end if

se tudo estiver em branco, aparece em vermelho, se estiver tudo preenchido, aparece azul e se estiver inclompleto, aparece preto.

não testei ainda, se tiver correções, por favor tbm

[sk15]

Acho que a correção mais contundente seria juntar os IF ...

If (RS("campo1") = "" AND RS("campo2") = "" AND RS("campo3") = "" AND RS("campo4") = "" AND RS("campo5") = "") Then
 Response.Write "<font color=""Red""></font>"
ElseIf (RS("campo1") <> "" AND RS("campo2") <> "" AND RS("campo3") <> "" AND RS("campo4") <> "" AND RS("campo5") <> "") Then
 Response.Write "<font color=""Blue""></font>"
Else
 Response.Write "<font color=""Black""></font>"
End if

Edição feita por: sk15, 06/04/2007, 18:15.

[Sollos]

Carlos, não entendi muito bem.. mas lá vai:

O pacote Adodb.RecordSet oferece um método que de cada 10 programadores e curiosos em asp, 1/2 conhecem, que é o GetString.
Ele é um metodo-auto-formatodor-de-saída-de-dados
Sua assinatura é
Response.write ou variavel =objRecordSet.getString(Formato ou Nulo, linhas ou Nulo, Separador de Colunas, Separador de Linhas, Código ou String para valores vazios).
Eu o uso tanto pra saída em tabelas, ou saída em Listas, Divs(Div mania) e etc, do seguinte formato

Dim tabelaGetString

tabelaGetString = objRs.getString(,,"</td><td><font color='blue'>", "</td></tr><tr><td>", "<font color='black'>Vazio</font>")

Então, complemento com os tags de html

<table>
<tr>
<td>
<%=tabelaGetString%>
</td>
</tr>
</table>

E pronto, ta lá minha tabela com todos os dados, bunitinha, inclusive com o texto Vazio em Preto

[Humberto - S.O.S.]

e ai colega blza?
isso é facil, vamos lá:

if IsEmpty(RS("campo1")) and IsEmpty(RS("campo2")) and IsEmpty(RS("campo3")) and IsEmpty(RS("campo4")) and IsEmpty(RS("campo5")) then
response write "<font color=red>"
Else
response write "<font color=Blue>"
end if

Só não entendi a parte do incompleto.
mas espero ter ajudado.

[JurisCode]

if IsEmpty(RS("campo1")) and IsEmpty(RS("campo2")) and IsEmpty(RS("campo3")) and IsEmpty(RS("campo4")) and IsEmpty(RS("campo5")) then
response write "<font color=red>"
if not IsEmpty(RS("campo1")) and not IsEmpty(RS("campo2")) and not IsEmpty(RS("campo3")) and not IsEmpty(RS("campo4")) and not IsEmpty(RS("campo5")) then
response write "<font color=blue>"
Else
response write "<font color=black>"
end if

Vejam se é isso:
Se todas as colunas estiverem vazias, escreve "<font color=red>"
Se todas as colunas estiverem preenchidas, escreve "<font color=blue>"
caso contrário (estando algumas preenchidas e outras não) escreve "<font color=black>"

acho que é isso, está certo né?

[Humberto - S.O.S.]

isso, isso, isso, isso.
pois é, pois é, pois é