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

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