by A.Rajapandian (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 26th August 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Display two datafield values aligned in a listbox
While Not rs.EOF
For i_incr = 1 To 15 Step 1
If Len(rs(1)) = i_incr Then
t_tmp = 16 - i_incr
iplist.AddItem rs(1) & String(t_tmp, " ") & rs(2)
End If
Next
rs.MoveNext
Wend