Мультивыбор в Dblookupcombobox

Комментарии

• Fokewolf Киев

  June 2008 отредактировано 14:43

  А почему бы не использовать CheckListBox для множественного выбора ?
• snopov

  June 2008 отредактировано 14:43

  Fokewolf написал: »

  А почему бы не использовать CheckListBox для множественного выбора ?

  
  Можно и его, если это единственный вариант.
  
  А каким образом передать эти несколько строк параметром в запрос?
  Чтобы запрос принял примерно такой вид: select * from table where col_1 in (<первая выбранная строка из CheckListBox>, <вторая выбранная строка из CheckListBox>, <третья выбранная строка из CheckListBox>, ...)
  
  Или такая задача как-то по другому решается?
  
  Заранее спасибо за ответ.
• LadySahck

  June 2008 отредактировано 14:43

  snopov написал: »

  А каким образом передать эти несколько строк параметром в запрос?
  Чтобы запрос принял примерно такой вид: select * from table where col_1 in (<первая выбранная строка из CheckListBox>, <вторая выбранная строка из CheckListBox>, <третья выбранная строка из CheckListBox>, ...)

  Сначала нужно в CheckListBox добавить (Items.Add) значения из какого-нибудь датасета, например на событии DialogPage1OnShow.
  А проверка осуществляеться по свойству checked, например
  if CheckListBox.Checked[<Line#> - 1] then
  MasterData1.Visible := True else
  MasterData1.Visible := False;
• Fokewolf Киев

  June 2008 отредактировано 14:43

  snopov написал: »

  Можно и его, если это единственный вариант.
  
  А каким образом передать эти несколько строк параметром в запрос?
  Чтобы запрос принял примерно такой вид: select * from table where col_1 in (<первая выбранная строка из CheckListBox>, <вторая выбранная строка из CheckListBox>, <третья выбранная строка из CheckListBox>, ...)
  
  Или такая задача как-то по другому решается?
  
  Заранее спасибо за ответ.

  Добавляем строки :

  CheckListBox1.Items.AddObject(то что будет отображаться, TObject(ссылка на поле-ключ записи))
  

  
  Собираем строку для запроса:

  For i:=0 to CHeckListBox1.Items.Count-1 do
    begin
      If CheckListBox1.Checked[i] then
        begin
          str_sql:=str_sql+vartostr(CheckListBox1.Items.Objects[i])+',';
        end;
    end;
    str_sql:=Copy(str_sql,1,Length(str_sql)-1);