Major Diffs: Make Address Look Better

VB.Net

I'm pulling Data from a DB and creating a letter by filling the Labels. It
works perfectly, but if Addr2 and Addr3 are blank, it leaves a Blank space
in that area. Is there a way to make it so I can say if the data is empty,
temporarely delete the label or make it not exist at all? I'm not talking
about just hiding it because it still leaves an empy space.

This is what I get:
FirstName LastName
Addr1
Addr2 (this is blank if no data)
Addr3 (this is blank if no data)
City, State ZIP

This is what I want to get if Addr2 & Addr3 are blank:
FirstName LastName
Addr1
City, State ZIP

Here is my Code:
If Not dr.Item("CustodianAddress2").ToString = String.Empty Then

CustAddr2L.Text = dr.Item("CustodianAddress2")

End If

If Not dr.Item("CustodianAddress3").ToString = String.Empty Then

CustAddr3L.Text = dr.Item("CustodianAddress3")

End IfDon't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
This way you don't need to remove anything.

"pvong" <phillip*at*yahoo*dot*comwrote in message
news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...

Quote:

Originally Posted by

VB.Net
>
I'm pulling Data from a DB and creating a letter by filling the Labels.
It works perfectly, but if Addr2 and Addr3 are blank, it leaves a Blank
space in that area. Is there a way to make it so I can say if the data is
empty, temporarely delete the label or make it not exist at all? I'm not
talking about just hiding it because it still leaves an empy space.
>
This is what I get:
FirstName LastName
Addr1
Addr2 (this is blank if no data)
Addr3 (this is blank if no data)
City, State ZIP
>
This is what I want to get if Addr2 & Addr3 are blank:
FirstName LastName
Addr1
City, State ZIP
>
Here is my Code:
If Not dr.Item("CustodianAddress2").ToString = String.Empty Then
>
CustAddr2L.Text = dr.Item("CustodianAddress2")
>
End If
>
If Not dr.Item("CustodianAddress3").ToString = String.Empty Then
>
CustAddr3L.Text = dr.Item("CustodianAddress3")
>
End If
>
>

"IfThenElse" <sql_agentman@dotnet.itags.org.hotmail.comwrote in message
news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...

Quote:

Originally Posted by

Don't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
This way you don't need to remove anything.
>
>
>
"pvong" <phillip*at*yahoo*dot*comwrote in message
news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...

Quote:

Originally Posted by

>VB.Net
>>
>I'm pulling Data from a DB and creating a letter by filling the Labels.
>It works perfectly, but if Addr2 and Addr3 are blank, it leaves a Blank
>space in that area. Is there a way to make it so I can say if the data
>is empty, temporarely delete the label or make it not exist at all? I'm
>not talking about just hiding it because it still leaves an empy space.
>>
>This is what I get:
>FirstName LastName
>Addr1
>Addr2 (this is blank if no data)
>Addr3 (this is blank if no data)
>City, State ZIP
>>
>This is what I want to get if Addr2 & Addr3 are blank:
>FirstName LastName
>Addr1
>City, State ZIP
>>
>Here is my Code:
>If Not dr.Item("CustodianAddress2").ToString = String.Empty Then
>>
>CustAddr2L.Text = dr.Item("CustodianAddress2")
>>
>End If
>>
>If Not dr.Item("CustodianAddress3").ToString = String.Empty Then
>>
>CustAddr3L.Text = dr.Item("CustodianAddress3")
>>
>End If
>>
>>

>
>

I'm using WebForm if that matters.

"IfThenElse" <sql_agentman@dotnet.itags.org.hotmail.comwrote in message
news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...

Quote:

Originally Posted by

Quote:

Originally Posted by

>
>

On Oct 9, 7:00 pm, "pvong" <phillip*at*yahoo*dot*comwrote:

Quote:

Originally Posted by

What do I put in there so it will include a <BRto it's not all on the same
line? This is my new code and they all run together. I know how to put 1
space in between, but how do you put a return character?
CustAddr1L.Text = dr.Item("CustodianAddress1") &
dr.Item("CustodianAddress2") & dr.Item("CustodianAddress3")
>
"IfThenElse" <sql_agent...@dotnet.itags.org.hotmail.comwrote in message
>
news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...
>
>
>

Quote:

Originally Posted by

Don't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
This way you don't need to remove anything.

Quote:

Originally Posted by

"pvong" <phillip*at*yahoo*dot*comwrote in message
news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...

Quote:

Originally Posted by

VB.Net

Quote:

Originally Posted by

Quote:

Originally Posted by

I'm pulling Data from a DB and creating a letter by filling the Labels.
It works perfectly, but if Addr2 and Addr3 are blank, it leaves a Blank
space in that area. Is there a way to make it so I can say if the data
is empty, temporarely delete the label or make it not exist at all? I'm
not talking about just hiding it because it still leaves an empy space.

Quote:

Originally Posted by

Quote:

Originally Posted by

This is what I get:
FirstName LastName
Addr1
Addr2 (this is blank if no data)
Addr3 (this is blank if no data)
City, State ZIP

Quote:

Originally Posted by

Quote:

Originally Posted by

This is what I want to get if Addr2 & Addr3 are blank:
FirstName LastName
Addr1
City, State ZIP

Quote:

Originally Posted by

Quote:

Originally Posted by

Here is my Code:
If Not dr.Item("CustodianAddress2").ToString = String.Empty Then

Quote:

Originally Posted by

Quote:

Originally Posted by

CustAddr2L.Text = dr.Item("CustodianAddress2")

Quote:

Originally Posted by

Quote:

Originally Posted by

End If

Quote:

Originally Posted by

Quote:

Originally Posted by

If Not dr.Item("CustodianAddress3").ToString = String.Empty Then

Quote:

Originally Posted by

Quote:

Originally Posted by

CustAddr3L.Text = dr.Item("CustodianAddress3")

Quote:

Originally Posted by

Quote:

Originally Posted by

End If- Hide quoted text -

>
- Show quoted text -

if blank means null

CustAddr1L.Text = dr.Item("CustodianAddress1") _
& IsDBNull(dr.Item("CustodianAddress2"), "", " " &
dr.Item("CustodianAddress2"))
& IsDBNull(dr.Item("CustodianAddress3"), "", " " &
dr.Item("CustodianAddress3"))
Just put asp:Label controls on the WebForm where you will want the
appropriate content to go (using a table for presice layout is a great
idea). Then just pull out the data from your DataReader and put it into the
appropriate label. No need to fuss with <BRat all.

"pvong" <phillip*at*yahoo*dot*comwrote in message
news:OVlb3ipCIHA.4912@dotnet.itags.org.TK2MSFTNGP03.phx.gbl...

Quote:

Originally Posted by

I'm using WebForm if that matters.
>
>
"IfThenElse" <sql_agentman@dotnet.itags.org.hotmail.comwrote in message
news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...

Quote:

Originally Posted by

>Don't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
>if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
>This way you don't need to remove anything.
>>
>>
>>
>"pvong" <phillip*at*yahoo*dot*comwrote in message
>news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...

Quote:

Originally Posted by

>>VB.Net
>>>
>>I'm pulling Data from a DB and creating a letter by filling the Labels.
>>It works perfectly, but if Addr2 and Addr3 are blank, it leaves a Blank
>>space in that area. Is there a way to make it so I can say if the data
>>is empty, temporarely delete the label or make it not exist at all? I'm
>>not talking about just hiding it because it still leaves an empy space.
>>>
>>This is what I get:
>>FirstName LastName
>>Addr1
>>Addr2 (this is blank if no data)
>>Addr3 (this is blank if no data)
>>City, State ZIP
>>>
>>This is what I want to get if Addr2 & Addr3 are blank:
>>FirstName LastName
>>Addr1
>>City, State ZIP
>>>
>>Here is my Code:
>>If Not dr.Item("CustodianAddress2").ToString = String.Empty Then
>>>
>>CustAddr2L.Text = dr.Item("CustodianAddress2")
>>>
>>End If
>>>
>>If Not dr.Item("CustodianAddress3").ToString = String.Empty Then
>>>
>>CustAddr3L.Text = dr.Item("CustodianAddress3")
>>>
>>End If
>>>
>>>

>>
>>

>
>

See my reply to pvong. Adding HTML <BRtags is sooooo Classic ASP. Use
labels instead.

"Alexey Smirnov" <alexey.smirnov@dotnet.itags.org.gmail.comwrote in message
news:1191951436.968137.9300@dotnet.itags.org.o80g2000hse.googlegrou ps.com...

Quote:

Originally Posted by

On Oct 9, 7:00 pm, "pvong" <phillip*at*yahoo*dot*comwrote:

Quote:

Originally Posted by

>What do I put in there so it will include a <BRto it's not all on the
>same
>line? This is my new code and they all run together. I know how to put
>1
>space in between, but how do you put a return character?
>CustAddr1L.Text = dr.Item("CustodianAddress1") &
>dr.Item("CustodianAddress2") & dr.Item("CustodianAddress3")
>>
>"IfThenElse" <sql_agent...@dotnet.itags.org.hotmail.comwrote in message
>>
>news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...
>>
>>
>>

Quote:

Originally Posted by

Don't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
This way you don't need to remove anything.

Quote:

Originally Posted by

"pvong" <phillip*at*yahoo*dot*comwrote in message
>news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...
>VB.Net

Quote:

Originally Posted by

>I'm pulling Data from a DB and creating a letter by filling the
>Labels.
>It works perfectly, but if Addr2 and Addr3 are blank, it leaves a
>Blank
>space in that area. Is there a way to make it so I can say if the
>data
>is empty, temporarely delete the label or make it not exist at all?
>I'm
>not talking about just hiding it because it still leaves an empy
>space.

Quote:

Originally Posted by

>This is what I get:
>FirstName LastName
>Addr1
>Addr2 (this is blank if no data)
>Addr3 (this is blank if no data)
>City, State ZIP

Quote:

Originally Posted by

>This is what I want to get if Addr2 & Addr3 are blank:
>FirstName LastName
>Addr1
>City, State ZIP

Quote:

Originally Posted by

>Here is my Code:
>If Not dr.Item("CustodianAddress2").ToString = String.Empty Then

Quote:

Originally Posted by

>CustAddr2L.Text = dr.Item("CustodianAddress2")

Quote:

Originally Posted by

>End If

Quote:

Originally Posted by

>If Not dr.Item("CustodianAddress3").ToString = String.Empty Then

Quote:

Originally Posted by

>CustAddr3L.Text = dr.Item("CustodianAddress3")

Quote:

Originally Posted by

>End If- Hide quoted text -

>>
>- Show quoted text -

>
if blank means null
>
CustAddr1L.Text = dr.Item("CustodianAddress1") _
& IsDBNull(dr.Item("CustodianAddress2"), "", " " &
dr.Item("CustodianAddress2"))
& IsDBNull(dr.Item("CustodianAddress3"), "", " " &
dr.Item("CustodianAddress3"))
>

Scott, that's my problem to begin with. I do have labels and all the data
are flowing correctly, but it leaves a blank space where the Label is for
Address2 and 3 which is what I'm trying to avoid.

Can you take my code and show me how you would do it with multiple labels?

"Scott M." <s-mar@dotnet.itags.org.nospam.nospamwrote in message
news:%23clc3xpCIHA.5980@dotnet.itags.org.TK2MSFTNGP04.phx.gbl...

Quote:

Originally Posted by

Just put asp:Label controls on the WebForm where you will want the
appropriate content to go (using a table for presice layout is a great
idea). Then just pull out the data from your DataReader and put it into
the appropriate label. No need to fuss with <BRat all.
>
>
"pvong" <phillip*at*yahoo*dot*comwrote in message
news:OVlb3ipCIHA.4912@dotnet.itags.org.TK2MSFTNGP03.phx.gbl...

Quote:

Originally Posted by

>I'm using WebForm if that matters.
>>
>>
>"IfThenElse" <sql_agentman@dotnet.itags.org.hotmail.comwrote in message
>news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...

Quote:

Originally Posted by

>>Don't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
>>if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
>>This way you don't need to remove anything.
>>>
>>>
>>>
>>"pvong" <phillip*at*yahoo*dot*comwrote in message
>>news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...
>>>VB.Net
>>
>>>I'm pulling Data from a DB and creating a letter by filling the Labels.
>>>It works perfectly, but if Addr2 and Addr3 are blank, it leaves a Blank
>>>space in that area. Is there a way to make it so I can say if the data
>>>is empty, temporarely delete the label or make it not exist at all?
>>>I'm not talking about just hiding it because it still leaves an empy
>>>space.
>>
>>>This is what I get:
>>>FirstName LastName
>>>Addr1
>>>Addr2 (this is blank if no data)
>>>Addr3 (this is blank if no data)
>>>City, State ZIP
>>
>>>This is what I want to get if Addr2 & Addr3 are blank:
>>>FirstName LastName
>>>Addr1
>>>City, State ZIP
>>
>>>Here is my Code:
>>>If Not dr.Item("CustodianAddress2").ToString = String.Empty Then
>>
>>>CustAddr2L.Text = dr.Item("CustodianAddress2")
>>
>>>End If
>>
>>>If Not dr.Item("CustodianAddress3").ToString = String.Empty Then
>>
>>>CustAddr3L.Text = dr.Item("CustodianAddress3")
>>
>>>End If
>>
>>
>>>
>>>

>>
>>

>
>

On Oct 9, 8:04 pm, "pvong" <phillip*at*yahoo*dot*comwrote:

Quote:

Originally Posted by

The only thing you can do is to make an "empty" label invsible when it
has no text. It would help to make no empty line.
On Oct 9, 8:25 pm, Alexey Smirnov <alexey.smir...@dotnet.itags.org.gmail.comwrote:

Quote:

Originally Posted by

On Oct 9, 8:04 pm, "pvong" <phillip*at*yahoo*dot*comwrote:
>

Quote:

Originally Posted by

Scott, that's my problem to begin with. I do have labels and all the data
are flowing correctly, but it leaves a blank space where the Label is for
Address2 and 3 which is what I'm trying to avoid.

Quote:

Originally Posted by

Can you take my code and show me how you would do it with multiple labels?

>
The only thing you can do is to make an "empty" label invsible when it
has no text. It would help to make no empty line.

invsible = invisible
I tried your code:

CustAddr1L.Text = dr.Item("CustodianAddress1") &
IsDBNull(dr.Item("CustodianAddress2"), "", "
" & dr.Item("CustodianAddress2")) & IsDBNull(dr.Item("CustodianAddress3"),
"", "
" & dr.Item("CustodianAddress3"))

But I get the error message of:
Too Many Arguments to Public Funcion 'ISDBNULL(Expression As Object) As
Boolean'.
Just add if..then logic to hide the label if there is no data for it.

[psuedo code]

label2.visible = false
If Not IsDBNull(dr("itemName")) Then
label2.visible = true
label2.text = dr("itemName")
End If

"pvong" <phillip*at*yahoo*dot*comwrote in message
news:%23BIyN6pCIHA.484@dotnet.itags.org.TK2MSFTNGP06.phx.gbl...

Quote:

Originally Posted by

Scott, that's my problem to begin with. I do have labels and all the data
are flowing correctly, but it leaves a blank space where the Label is for
Address2 and 3 which is what I'm trying to avoid.
>
Can you take my code and show me how you would do it with multiple labels?
>
>
"Scott M." <s-mar@dotnet.itags.org.nospam.nospamwrote in message
news:%23clc3xpCIHA.5980@dotnet.itags.org.TK2MSFTNGP04.phx.gbl...

Quote:

Originally Posted by

>Just put asp:Label controls on the WebForm where you will want the
>appropriate content to go (using a table for presice layout is a great
>idea). Then just pull out the data from your DataReader and put it into
>the appropriate label. No need to fuss with <BRat all.
>>
>>
>"pvong" <phillip*at*yahoo*dot*comwrote in message
>news:OVlb3ipCIHA.4912@dotnet.itags.org.TK2MSFTNGP03.phx.gbl...

Quote:

Originally Posted by

>>I'm using WebForm if that matters.
>>>
>>>
>>"IfThenElse" <sql_agentman@dotnet.itags.org.hotmail.comwrote in message
>>news:erpfECpCIHA.1212@dotnet.itags.org.TK2MSFTNGP05.phx.gbl...
>>>Don't use CustAddr2L and CustAddr3L Just add everything to CustAddr1L
>>>if CustAddr2L and CustAddr3L exit then add then to CustAddr1L
>>>This way you don't need to remove anything.
>>
>>
>>
>>>"pvong" <phillip*at*yahoo*dot*comwrote in message
>>>news:ODAZnyoCIHA.2280@dotnet.itags.org.TK2MSFTNGP02.phx.gbl...
>>VB.Net
>>
>>I'm pulling Data from a DB and creating a letter by filling the
>>Labels. It works perfectly, but if Addr2 and Addr3 are blank, it
>>leaves a Blank space in that area. Is there a way to make it so I can
>>say if the data is empty, temporarely delete the label or make it not
>>exist at all? I'm not talking about just hiding it because it still
>>leaves an empy space.
>>
>>This is what I get:
>>FirstName LastName
>>Addr1
>>Addr2 (this is blank if no data)
>>Addr3 (this is blank if no data)
>>City, State ZIP
>>
>>This is what I want to get if Addr2 & Addr3 are blank:
>>FirstName LastName
>>Addr1
>>City, State ZIP
>>
>>Here is my Code:
>>If Not dr.Item("CustodianAddress2").ToString = String.Empty Then
>>
>>CustAddr2L.Text = dr.Item("CustodianAddress2")
>>
>>End If
>>
>>If Not dr.Item("CustodianAddress3").ToString = String.Empty Then
>>
>>CustAddr3L.Text = dr.Item("CustodianAddress3")
>>
>>End If
>>
>>
>>
>>
>>>
>>>

>>
>>

>
>

On Oct 9, 8:48 pm, "pvong" <phillip*at*yahoo*dot*comwrote:

Quote:

Originally Posted by

I tried your code:
>
CustAddr1L.Text = dr.Item("CustodianAddress1") &
IsDBNull(dr.Item("CustodianAddress2"), "", "
" & dr.Item("CustodianAddress2")) & IsDBNull(dr.Item("CustodianAddress3"),
"", "
" & dr.Item("CustodianAddress3"))
>
But I get the error message of:
Too Many Arguments to Public Funcion 'ISDBNULL(Expression As Object) As
Boolean'.

Sorry, I forgot about IIF

CustAddr1L.Text = dr.Item("CustodianAddress1") _
& Iif(IsDBNull(dr.Item("CustodianAddress2"), "", " " &
dr.Item("CustodianAddress2")) _
& Iif(IsDBNull(dr.Item("CustodianAddress3"), "", " " &
dr.Item("CustodianAddress3"))

The idea is just to check the value and if it equals to NULL return an
empty string.

It is an equivalent to

CustAddr1L.Text = dr.Item("CustodianAddress1")

If IsDBNull(dr.Item("CustodianAddress2") Then
CustAddr1L.Text &= ""
Else
CustAddr1L.Text &= " " & dr.Item("CustodianAddress2"))
End If

If IsDBNull(dr.Item("CustodianAddress3") Then
CustAddr1L.Text &= ""
Else
CustAddr1L.Text &= " " & dr.Item("CustodianAddress3"))
End If

CustAddr1L.Text = dr.Item("CustodianAddress1")

If Not IsDBNull(dr.Item("CustodianAddress2") Then CustAddr1L.Text &=
" " & dr.Item("CustodianAddress2"))
If Not IsDBNull(dr.Item("CustodianAddress3") Then CustAddr1L.Text &=
" " & dr.Item("CustodianAddress3"))

http://msdn2.microsoft.com/en-us/li...h0d(VS.80).aspx
http://msdn2.microsoft.com/en-us/li...es5(VS.80).aspx
On Oct 9, 11:28 pm, Alexey Smirnov <alexey.smir...@dotnet.itags.org.gmail.comwrote:

Quote:

Originally Posted by

On Oct 9, 8:48 pm, "pvong" <phillip*at*yahoo*dot*comwrote:
>

Quote:

Originally Posted by

I tried your code:

Quote:

Originally Posted by

Quote:

Originally Posted by

But I get the error message of:
Too Many Arguments to Public Funcion 'ISDBNULL(Expression As Object) As
Boolean'.

>
Sorry, I forgot about IIF
>
CustAddr1L.Text = dr.Item("CustodianAddress1") _
& Iif(IsDBNull(dr.Item("CustodianAddress2"), "", " " &
dr.Item("CustodianAddress2")) _
& Iif(IsDBNull(dr.Item("CustodianAddress3"), "", " " &
dr.Item("CustodianAddress3"))
>

CustAddr1L.Text = dr.Item("CustodianAddress1") _
& Iif( IsDBNull(dr.Item("CustodianAddress2")) , "", " " &
dr.Item("CustodianAddress2") ) _
& Iif( IsDBNull(dr.Item("CustodianAddress3")), "", " " &
dr.Item("CustodianAddress3") )

Friday, March 16, 2012

Make Address Look Better

0 comments:

Post a Comment

Major Diffs

Blog Archive

About Me