PB賦值粘貼 多個DW進行update

複製：
string ls_temp
ls_temp = trim(sle_1.text)
Clipboard(ls_temp)
粘貼：
string ls_temp
ls_temp = Clipboard()
sle_2.text = ls_temp
PB開發境界 多個DW進行update
//菜鳥代碼
dw_1.Update()
dw_2.Update()
初級代碼
IF dw_1.Update() = 1 And dw_2.Update() = 1 THEN
COMMIT;
ELSE
ROLLBACK;
END IF
中級代碼
IF dw_1.Update() = 1 THEN
IF dw_2.Update() = 1 THEN
COMMIT;
ELSE
MessageBox("提示","喝多了!")
ROLLBACK;
END IF
ELSE
MessageBox("提示","喝多了!")
ROLLBACK;
END IF
高級代碼
IF dw_1.Update() = 1 THEN
IF dw_2.Update() = 1 THEN
COMMIT;
ELSE
ROLLBACK;
MessageBox("提示","少喝點!")
END IF
ELSE
ROLLBACK;
MessageBox("提示","少喝點!")
END IF
專家級代碼
IF dw_1.Update(True,False) = 1 THEN
IF dw_2.Update(True,False) = 1 THEN
dw_1.ResetUpdate()
dw_2.ResetUpdate()
COMMIT;
ELSE
ROLLBACK;
MessageBox("提示","沒喝高啊!")
END IF
ELSE
ROLLBACK;
MessageBox("提示","沒喝高啊!")
END IF
多個DW進行update,有時會不能所有成功update 用事務處理時,多個DW進行update後,再COMMIT.偶然會發現前面幾個DW update成功,但後面的表失敗時,好像執行了COMMIT,不會rollback.
正確的寫法以下：
if dw_1.update(true, false)= 1 and dw_2.update(true, false)=1 ...then
commit;
dw_1.resetUpdate();
dw_2.resetUpdate();
else
rollback;
end if