Список. Возврат к начальному состоянию.

[Ириминаге]

Здравствуйте! Мне удалось написать довольно неплохую БД, но вот один вопрос разрешить пока не смог:
Есть элемент Формы "Список", в который забиты какие-то данные. Так же на форме есть поля для заполнения. После ввода всех значений и подтверждения нажатием кнопки, все поля очищаются, а список, по моему замыслу, тоже должен показать пустое значение, как при запуске Формы. Пока что найти способ это сделать мне не удалось. Может вы подскажете, как это осуществить?

[sokol92]

За содержимое ListBox отвечает свойство StringItemList его модели.
Пример (для диалога Dialog1, содержащего элемент управления ListBox1):

Код:

Sub TestListBox
  Dim oDialog, oListbox
  oDialog=CreateUnoDialog(DialogLibraries.GetByName("Standard").GetByName("Dialog1"))
  oListBox=oDialog.getControl("ListBox1")
  oListBox.Model.StringItemList=Array("1", "2")
  oDialog.Execute    ' две строки
 
  oListBox.Model.StringItemList=Array()
  oDialog.Execute    ' нет строк
End Sub

[Ириминаге]

Спасибо за ответ! Если я правильно понял, второй раз передается пустой массив? Это не то, что мне нужно.. Список на Форме имеет данные через SQL-запрос на уровне самой Формы. Все поля ввода после подтверждения очищаются для удобства, плюс при подтверждении делается проверка на заполненность полей. Списки, по моему замыслу, должны вернуться к начальному состоянию: данные в них есть, однако ни один элемент не выбран. На одной из последних форм, это даже сработало через Form.reload(), а вот на предыдущих что-то не хочет. И я пока не понимаю почему.

[sokol92]

список, по моему замыслу, тоже должен показать пустое значение

Эту фразу можно интерпретировать по разному.  

Код:

Sub TestListBox2
  Dim oDialog, oListbox, i
  oDialog=CreateUnoDialog(DialogLibraries.GetByName("Standard").GetByName("Dialog1"))
  oListBox=oDialog.getControl("ListBox1")
  With oListBox.Model
    .StringItemList=Array("1", "2", "3")
    .MultiSelection=True
  End With    
  oDialog.SetTitle "Выделите строку (строки)"
  oDialog.Execute    
  
  ' Сбрасываем отмеченные строки
  With oListBox  
    For Each i In .getSelectedItemsPos()
        .selectItemPos i, False
    Next i
  End With  
  oDialog.SetTitle "Нет выделенных строк?"
  oDialog.Execute    
End Sub

[Ириминаге]

Вспоминая Коклюшкина: "Не хочу чтоб меня поняли правильно...."

Спасибо! Похоже, это то, что надо! Буду экспериментировать!