Delphi7- TMS内部TMS-感知网格ComboBox

Question

我有一个使用TTIWDBAdvWebGrid组件的Intraweb应用程序。网格的两列是组合框(编辑器设置为edCombo) -请看下图

​

​

我想要的是，当其中一个组合框被更改时，另一个组合框的值被更改为相反(如果第一个是YES，那么另一个是NO)。

我尝试过在ClientEvents-combochange上使用javascript代码

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

但这段代码将第二个组合中的值更改为空...

我该如何解决这个问题？

Answer 1

通过使用以下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通过连接以下元素“column_number”+“row_number”+ "C“+column_number为每个组合生成id

必须在ClientEvents-ComboChange属性上设置此代码

​

​