請(qǐng)教一下這個(gè) VBA 怎么表達(dá)

作者：金字塔來(lái)源：cxh99.com 發(fā)布時(shí)間：2015年08月05日

咨詢內(nèi)容： IF UP_G1 AND EXTGBDATA('SKV_G1') =0 AND EXTGBDATA('Last_ Location')=0 THEN BEGIN EXTGBDATASET('T0',TIMETOT0(DYNAINFO(207))); EXTGBDATASET('Last_ Location',1) ; END IF TISREMAIN(3) && EXTGBDATASET('Last_ Location',1) &&TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')>0 && TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')<=2 THEN; BEGIN TCANCEL(1,0); EXTGBDATASET('T0',TIMETOT0(DYNAINFO(207))); END IF TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')>0 && TIMETOT0(DYNAINFO(207))-EXTGBDATA('T0')<=2 THEN; BEGIN TBUYSHORT(1,SS,LMT,G1+10); // 在G1的上面10個(gè)點(diǎn)掛一張多單,這里您要區(qū)分點(diǎn)和變動(dòng)價(jià)位的差別,MINDIFF表示變動(dòng)價(jià)位 TBUY(1,SS,LMT,LMT,G1-10); // 在G1的下面10個(gè)點(diǎn)掛一張多單 EXTGBDATASET('SKV_G1',1) ; EXTGBDATASET('TOTAL_SVOL',EXTGBDATA('TOTAL_SVOL')+SS); DEBUGFILE('D:\DEBUG\GRID_DEBUG.TXT','G1開空_SKV_G1=%.0f' ,EXTGBDATA('SKV_G1')); DEBUGFILE('D:\DEBUG\GRID_DEBUG.TXT','TOTAL_SVOL=%.0f' ,EXTGBDATA('TOTAL_SVOL')); DEBUGFILE('D:\DEBUG\GRID_DEBUG.TXT','Last_ Location=%.0f' ,EXTGBDATA('Last_ Location')); END
請(qǐng)教一下，我想當(dāng)紅色條件出現(xiàn)后，才執(zhí)行藍(lán)色部分的，但藍(lán)色部分出現(xiàn)后才執(zhí)行綠色部分，就是紅色如果沒(méi)有觸發(fā)，后面的兩個(gè)條件都不會(huì)觸發(fā)，請(qǐng)問(wèn)用什么控制語(yǔ)句可以實(shí)現(xiàn)呢？代碼都是紅色部分出現(xiàn)后1秒，觸發(fā)藍(lán)色部分，而藍(lán)色部分觸發(fā)后1秒，才觸發(fā)綠色部分，謝謝
版主說(shuō)后臺(tái)已經(jīng)不能實(shí)現(xiàn)這個(gè)，需要用VBA寫，麻煩解答一下，謝謝
金字塔客服： 能回答一下嗎？
用戶回復(fù)： 稍等,正在處理中