FOR i=1 TO columns
ColName=Upper(dw_obj.Describe("#"+String(i)+".Name"))
IF Left(ColName,Len(Table1))=Table1 and ColName <> Key1 THEN
n1=n1+1
Name1[n1]=ColName
END IF
IF Left(ColName,Len(Table2))=Table2 and ColName<>Key2 THEN
n2=n2+1
Name2[n2]=ColName
END IF
NEXT
// 下面程序:存储dw_obj,确定返回值(True:成功,False:失败)
IF dw_obj.Update(True,False)=1 THEN
FOR i=1 TO n1
dw_obj.Modify(Name1[i]+".Update=No")
NEXT
IF dw_1.ModifiedCount() > 0 or dw_1.DeletedCount() > 0 THEN
IF MessageBox("提示信息","是否存盘?",Question!,YesNo!) = 1 THEN
IF f_update_2table(dw_1,"t1","t2","k1","k2") THEN
Commit;
ELSE
Rollback;
END IF
END IF
END IF
======================================================================*/