mhsun
asked on
add punctuation like comma into a listbox item
how can i add a string including punctuations like [,][;] into a listbox
while the listbox's rowsource type is set to "valuelist"
while the listbox's rowsource type is set to "valuelist"
hi
you just have to put in the double quote eg: "banana;";"watermelon,"; in the row source...the result should be like this:
banana;
watermelon,
you just have to put in the double quote eg: "banana;";"watermelon,"; in the row source...the result should be like this:
banana;
watermelon,
Hi DZ,
that was what I already said ;-) And in this topic area it is common to not post an answer to a question, but place your answer as a comment.
This way the question is not locked for other users, so that other people can comment too and give a broader view of the problem. The person that asked the question can then pick the answer he thinks helped him most with the problem.
Greetings,
Erwin
that was what I already said ;-) And in this topic area it is common to not post an answer to a question, but place your answer as a comment.
This way the question is not locked for other users, so that other people can comment too and give a broader view of the problem. The person that asked the question can then pick the answer he thinks helped him most with the problem.
Greetings,
Erwin
i'm sorry... i'm a new comer
i'm really sorry...
regards
DZ
i'm really sorry...
regards
DZ
No problem ;-) I did it the first time too, there's no way you can know until someone tells you.
Greetings,
Erwin
Greetings,
Erwin
DZ... You need to select the option at the bottom of the Q to change your proposed answer to a comment...
DZ... If you wouldn't mind...
ASKER
sorry, what i meant was to populate a list box by using a string variable during running time while this string variable has punctuation inside,
For example:
the RowSourceType of listbox1 is set to
"Table/Query" and the items of it include punctuation.
and I want to copy an item from listbox1 to listbox2
of which RowSourceType is set to "ValueList"
my Code is like this
For i = 0 To Listbox1.listcount- 1
For j = 0 To 2
ItemList = ItemList & _ Me.Listbox1.Column(j, i) & ";"
Next j
Next i
Me.listbox2.RowSource = ItemList
So, my question is what will happen if
items in listbox1 have punctuation.
Thank you for your response
For example:
the RowSourceType of listbox1 is set to
"Table/Query" and the items of it include punctuation.
and I want to copy an item from listbox1 to listbox2
of which RowSourceType is set to "ValueList"
my Code is like this
For i = 0 To Listbox1.listcount- 1
For j = 0 To 2
ItemList = ItemList & _ Me.Listbox1.Column(j, i) & ";"
Next j
Next i
Me.listbox2.RowSource = ItemList
So, my question is what will happen if
items in listbox1 have punctuation.
Thank you for your response
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Or you can double up quote inside a string assignment to produce a single quote in the resultant string:
For i = 0 To Listbox1.listcount- 1
For j = 0 To 2
ItemList = ItemList & """" & Me.Listbox1.Column(j, i) & """;"
Next j
Next i
Me.listbox2.RowSource = ItemList
Brian
For i = 0 To Listbox1.listcount- 1
For j = 0 To 2
ItemList = ItemList & """" & Me.Listbox1.Column(j, i) & """;"
Next j
Next i
Me.listbox2.RowSource = ItemList
Brian
ASKER
Thank you very much for your answer, but both of the two solutions couldn't
solve my problem, below is my function
for moving one item to another, the problem is punctuation can't be included.
kindly advise me.
Function Move_Item(ctlSource As Control, strSource As String, ctlDestination As Control, strDest As String) As Integer
Dim intCurrentRow As Integer
Dim intCount As Integer
Dim i As Integer
Dim j As Integer
'------------Copy item selected from source list to dest list-----
For intCurrentRow = 0 To ctlSource.ListCount - 1
If ctlSource.Selected(intCurr entRow) Then
For i = 0 To 2
strDest = strDest & ctlSource.Column(i, _
intCurrentRow) & ";"
Next i
End If
Next intCurrentRow
' Reset destination control's RowSource property.
ctlDestination.RowSource = ""
ctlDestination.RowSource = strDest
'------------Remove item selected form source list-------------
strSource = "" 'Clear Source Content!!!
For intCount = 0 To ctlSource.ListCount - 1
If Not ctlSource.Selected(intCoun t) Then
For j = 0 To 2
strSource = strSource & CHR$(34)& ctlSource.Column(j, intCount) & CHR$(34)& ";"
Next j
End If
Next intCount
ctlSource.RowSource = ""
ctlSource.RowSource = strSource
End Function
solve my problem, below is my function
for moving one item to another, the problem is punctuation can't be included.
kindly advise me.
Function Move_Item(ctlSource As Control, strSource As String, ctlDestination As Control, strDest As String) As Integer
Dim intCurrentRow As Integer
Dim intCount As Integer
Dim i As Integer
Dim j As Integer
'------------Copy item selected from source list to dest list-----
For intCurrentRow = 0 To ctlSource.ListCount - 1
If ctlSource.Selected(intCurr
For i = 0 To 2
strDest = strDest & ctlSource.Column(i, _
intCurrentRow) & ";"
Next i
End If
Next intCurrentRow
' Reset destination control's RowSource property.
ctlDestination.RowSource = ""
ctlDestination.RowSource = strDest
'------------Remove item selected form source list-------------
strSource = "" 'Clear Source Content!!!
For intCount = 0 To ctlSource.ListCount - 1
If Not ctlSource.Selected(intCoun
For j = 0 To 2
strSource = strSource & CHR$(34)& ctlSource.Column(j, intCount) & CHR$(34)& ";"
Next j
End If
Next intCount
ctlSource.RowSource = ""
ctlSource.RowSource = strSource
End Function
ASKER
I am sorry for the above comment, it works, it didn't work just because i forgot to update another function using this way, thank you very much theMek and brianWren, its really a great help for me. actually i already tried this way in my move_item function, but same problem:i forgot to change another function, since i don't have too much experience, so i thought this way doesn't work. Thanks again,DZ also.
"First;item";"Second;item"
This will show like:
First;Item
Second;Item
This should help you out ;-)
Greetings,
Erwin