I am trying to populate a list box with the results of a query. I have
created the following code, which only populates the first column of a two
column listbox. The items in MyArray are present for both bolumns.
Dim MyArray()
ReDim MyArray(mycount, 1)
usrGLDist.lstOutput.ColumnCount = 2
For i = 0 To rst.Count - 1
MyArray(i, 0) = rst.Value("descr")
MyArray(i, 1) = rst.Value("pcamt")
rst.MoveNext
Next i
usrGLDist.lstOutput.List() = MyArray
Thanks in advance for any help.
Rich
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
