Delphi 7 - TMS Intraweb DB-aware Grid 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通过连接以下元素为每个组合生成id “GOD”+ row_number +“C”+ column_number

此代码必须在ClientEvents-ComboChange属性

上设置