Delphi 7 - Сетка ComboBox с поддержкой баз данных TMS Intraweb - PullRequest
Новая
       42

Delphi 7 - Сетка ComboBox с поддержкой баз данных TMS Intraweb

0 голосов
/ 02 июня 2011

У меня есть приложение Intraweb, которое использует компонент TTIWDBAdvWebGrid.Два столбца сетки - это комбинированные списки (для редактора установлено значение edCombo) - посмотрите на рисунок ниже

enter image description here

Я хочу, чтобы при изменении одного из комбинированных списков другой изменялсяэто значение противоположно (если первым является ДА, то другим - НЕТ).

Я пытался использовать код javascript на ClientEvents-combochange 

valcb=GetEditValue(IWDBGESTANTObj,c,r);
if (c==5 )
{
if (valcb='OUI ') {SetCellValue(IWDBGESTANTObj,6,r,'NON'); }
else {SetCellValue(IWDBGESTANTObj,6,r,'OUI');}
}

, но этот код изменил значения из второго комбинированного списка на ничто ....

Какя могу решить это?

1 Ответ

0 голосов
/ 03 июня 2011

Решено с помощью следующего кода javascript: 

if (c==5)
 {wId = "G0D" + r + "C" + (c + 1);}
else
 {wId = "G0D" + r + "C" + (c - 1);} 
myCombo = document.getElementById( wId);
if (ctrl.selectedIndex==0) 
{ wInd=1;}
else
{wInd=0;}
myCombo.options[wInd].selected=true;

Intraweb генерирует идентификатор для каждой комбинации, объединяя следующие элементы «GOD» + row_number + «C» + column_number

Этот код должен быть установлен в свойстве ClientEvents-ComboChange

enter image description here

...