Best Programmer
سه شنبه 25 آذر 1382, 04:30 صبح
Take all of the items in a combo box and insert them all into a string.
S.Azish
سه شنبه 25 آذر 1382, 16:02 عصر
Dim items() As String
Dim strItems As String
Dim i As Integer
ReDim items(Combo1.ListCount) As String
For i = 0 To Combo1.ListCount - 1
items(i) = Combo1.List(i)
Next
strItems = Join(items, ";")
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.