I am running the following code to assemble a string of 11 lines extracted as a result of lookups in a database:
The result is shown in the MsgBox1 attachment. Notice that the last line - "What do you want to do?" - is missing, and there is an ellipsis (…) at the end of the last item in the message.
If I add two CRLFs (not one - one doesn't fix the problem) with this code:
The result is close to what I expect as shown in the MsgBox2 attachment.
Can anyone help me figure out how to resolve this? I have seen a similar problem with a much shorter list than this one.
B4X:
For i = 0 To lstSelectedRows.Size-1
...more code
Wait for (Lookup_SourceTrack (uPiece.Source, uPiece.SourceTrack)) Complete (SourceTracksFound As Boolean)
If SourceTracksFound Then
If Not(sb.IsInitialized) Then sb.Initialize
sb.Append(TAB).Append(uPiece.Source).Append(" Track ").Append(uPiece.SourceTrack).Append(CRLF)
End If
Next
End If
If sb.IsInitialized Then
Message = "The following Serial Nos and Tracks are already in the MusicBase:" & CRLF
Message = Message & sb.ToString & CRLF
Message = Message & "What do you want to do?"
fx.Msgbox2(MB_Add.frmPGAddition, Message, "New Pieces", "", "OK", "", fx.MSGBOX_WARNING)
End If
If I add two CRLFs (not one - one doesn't fix the problem) with this code:
B4X:
Message = Message & "What do you want to do?"
Message = Message & CRLF
Message = Message & CRLF
fx.Msgbox2(MB_Add.frmPGAddition, Message, "New Pieces", "", "OK", "", fx.MSGBOX_WARNING)
Can anyone help me figure out how to resolve this? I have seen a similar problem with a much shorter list than this one.