Множественные строки в списке на основе строки

Question

У меня есть многосегментный список, который имеет около 60 значений, пользователь может пройти и выбрать все, что угодно, я могу успешно прочитать все выбранное и вывести его как одну строку, такую ​​как «1,2, 3,4,5 "и сохранить это значение. В настоящее время проблема заключается в том, когда пользователю нужно отредактировать выбранное. Как я могу повторно выбрать элементы списка на основе строки «1,2,3,4,5», которая была сохранена ранее?

Answer 1

Я понял это после долгих поисков, вот код

Dim strValue As String 
Dim strArray() As String 
Dim x As Integer 
Dim startRow As Integer 

strValue = rsPrints("ctype")'Get string of row values 
strArray = Split(strValue, ",", -1, vbTextCompare)'My string required splitting to remove commas and moving to an array 

x = 0 'Set array start point to 0 

For Q = LBound(strArray) To UBound(strArray) 'Run through array 
    startRow = strArray(x) 
    Me.formctype.Selected(startRow) = True 
    x = x + 1 
Next