Delphi 7 - TMS Intraweb數據庫感知網格組合框

我有一個使用TTIWDBAdvWebGrid組件的Intraweb應用程序。網格的兩列組合框（編輯設置爲edCombo） - 看看下面的圖片Delphi 7 - TMS Intraweb數據庫感知網格組合框

enter image description here

我要的是，當組合框的一個改變對方改變了它的價值，是相反的（如果首先是YES，然後另一個是NO）。

我和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');} 
}

但是這個代碼修改的數值，從第二個組合不了了之....

我怎樣才能解決這個問題？

來源

2011-06-02 RBA

集可能不算什麼，但在喲ur代碼提取，第一個字符串比較似乎在字符串中至少有一個尾隨空格 - 「if（vaclb ='OUI'）'。至少我會使用常量值而不是重複字符串文字。 – Stuart 2011-06-02 12:48:12

@Stuart - 非常好的評論。謝謝 – RBA 2011-06-02 16:10:41

我會接受我自己的答案，直到給出另一個/更好的答案 – RBA 2011-06-04 10:43:39

通過使用下面的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財產

enter image description here

來源

2011-06-03 08:21:57 RBA

Delphi 7 - TMS Intraweb數據庫感知網格組合框

回答

相關問題