• Registered: 2018-03-12
  • Posts: 91

Topic: Передача значения из tablegrid одной формы в combox другой формы

Tablegrid на одной форме заполняется поиском с помощью sql запроса:

SELECT
info_stanka.vnutr_nazv_cpu,
info_stanka.invent_nomer,                 
info_stanka.nazv_stanka,
zapcasti.nazvanie_detali,
zapcasti.nomer_zakaza,
(SELECT TOTAL(sklad.kol_vo) FROM sklad WHERE sklad.id_zapcasti=zapcasti.id),
zapcasti.zametka,
zapcasti.strih_cod,   
zapcasti.id,
firmi_postavsiki_zapcasti.firma,
info_stanka.zavod_nomer
                                                                                                             
FROM                                    
zapcasti 
LEFT OUTER JOIN info_stanka ON info_stanka.id=zapcasti.id_info_stanka  
LEFT OUTER JOIN firmi_postavsiki_zapcasti ON firmi_postavsiki_zapcasti.id=zapcasti.id_firmi_postavsiki_zapcasti

Необходимо передать в kombobox'ы на другой форме значения zapcasti.id, info_stanka.nazv_stanka и firmi_postavsiki_zapcasti.firma.

zapcasti.id передаю скриптом:

if (Action = 'NewRecord') and (add_zakaz_vibor.Visible) then
add_zakaz_poziciya.ComboBox1.dbItemID := add_zakaz_vibor.TableGrid1.dbItemID;

а вот как передать остальные 2 параметра дойти не могу, помогите пожалуйста.

2 Reply by metatron (edited by metatron 2018-11-16 06:58:29)

  • Registered: 2018-03-12
  • Posts: 91

Re: Передача значения из tablegrid одной формы в combox другой формы

Додумался сам.

add_zakaz_poziciya.ComboBox5.dbItemID := SQLExecute('Select id_firmi_postavsiki_zapcasti from zapcasti where id='+add_zakaz_vibor.TableGrid1.sqlValue);

3 Reply by metatron (edited by metatron 2018-11-16 09:31:46)

  • Registered: 2018-03-12
  • Posts: 91

Re: Передача значения из tablegrid одной формы в combox другой формы

Правда при наличии пустых записей выдаёт ошибку, как от нее избавится?

Post's attachments

Attachment icon Снимок.PNG 24.12 kb, 180 downloads since 2018-11-16 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Передача значения из tablegrid одной формы в combox другой формы

Попробуйте так

var
    sID: string;
begin    
    sID := SQLExecute('Select id_firmi_postavsiki_zapcasti from zapcasti where id='+add_zakaz_vibor.TableGrid1.sqlValue);
    if ValidInt(sID) then add_zakaz_poziciya.ComboBox5.dbItemID := StrToInt(sID) else add_zakaz_poziciya.ComboBox5.dbItemID := -1;
Dmitry.