一次在做到多个表同时更新的时候,出了些问题。
有必要写出来,惹起留意。
虽然多个DW(3个)各自对应的都是一个表,但这些表间存在着 关系,而且DW是同时更新。
比如:table_1 : ID ,   name ,sex .......
          table_2: ...ID(与table_1有对应关系), pro_1 ,pro_2......
          table_3: ...ID(与table_1有对应关系), reg_time.....
由于没有经验:
第一次,后两个DW里在设计的时候,没有选择与第一个表相关的 项----ID。
后来,发现无法更新。
只能从新设计,将table_2 和 table_3的ID项都分别选在各自的DW中,
但在界面中又不想让其出现,最好的办法---
设置他们的visable属性为False,也就是去掉属性里visable前的“钩”。
设计好后的编码中,我先开始的编码是:
if dw_1.update() = 1 then
    if dw_2.update() = 1 then
       if dw_3.update() = 1 then
            commit;
       else
            rollback;
       end if
    end if
end if
----------------------------
但最好还是写成下面比较好:
file://加的SQLCA属性的处理(通用目的)
boolean lb_Tran
lb_Tran = sqlca.AutoCommit
sqlca.AutoCommit = false
IF dw_1.Update() <> 1 THEN
   MessageBox("操作提示","dw_1 数据保存失败!")
   ROLLBACK;
   sqlca.AutoCommit = lb_Tran
   RETURN
ELSEIF dw_2.Update() <> 1 THEN
   MessageBox("操作提示","dw_2 数据保存失败!")
   ROLLBACK;
   sqlca.AutoCommit = lb_Tran
   RETURN
ELSEIF dw_3.Update() <> 1 THEN
   MessageBox("操作提示","dw_3 数据保存失败!")
   ROLLBACK;
   sqlca.AutoCommit = lb_Tran
   RETURN
ELSE
   COMMIT
END IF
------------------------------------------------------------------------