T
Tibby
One thing I'vew come to dislike is .NEt's lack of sensable error messages. On this one, I get an "Index out of bounds" Can't figure it out. Will give ya the setup...
Protected Structure Letter
Dim Series1 As String
Dim Series2 As String
Dim Series3 As String
End Structure
Dim StoreLetter As Letter
StoreLetter = New Letter()
StoreLetter.Series1 = 0
If StoreLetter.Series1.Length < 15 Then StoreLetter.Series1 = New String( "0", 0, _
CInt(15 - StoreLetter.Series1.Length)) & StoreLetter.Series1
The above line is where I get the Index out-of bounds. I know, long line wrapped LOL So, in the End, since my StoreLetter.Series1.Length=1, I need to tack 14 Zero's onto the beginning of it, then the value of StoreLetter.Series1 on the end to make a string with 15 Zero's in this case.
Thanks
Tibby
Protected Structure Letter
Dim Series1 As String
Dim Series2 As String
Dim Series3 As String
End Structure
Dim StoreLetter As Letter
StoreLetter = New Letter()
StoreLetter.Series1 = 0
If StoreLetter.Series1.Length < 15 Then StoreLetter.Series1 = New String( "0", 0, _
CInt(15 - StoreLetter.Series1.Length)) & StoreLetter.Series1
The above line is where I get the Index out-of bounds. I know, long line wrapped LOL So, in the End, since my StoreLetter.Series1.Length=1, I need to tack 14 Zero's onto the beginning of it, then the value of StoreLetter.Series1 on the end to make a string with 15 Zero's in this case.
Thanks
Tibby