rowscopy, 拷貝帶有自增字段的表

　　１清除本地數據
　　
　　ls_sql = TRUNCATE TABLE + ls_table []
　　 execute IMMEDIATE :ls_sql using sqlca;
　　
　　２//打開可以插入自增顯示插入自增字段的值
　　
　　 ls_sql = SET IDENTITY_INSERT + ls_table [] + on
　　 execute IMMEDIATE :ls_sql using sqlca;
　　
　　構造數據窗口或datastore
　　
　　wf_set_iden_off_(dw_)　//關掉本地datastore的自增
　　
　　wf_set_iden_off_內容:
　　
　　//將指定datastore 的自增字段設置為 off
　　
　　string ls_colcount
　　long ll_colcount i
　　string ls_ColName
　　
　　ls_colcount = ar_dsDescribe(DataWindowColumnCount)
　　
　　if integer (ls_colcount) > then
　　 ll_colcount = integer (ls_colcount)
　　else
　　 return
　　end if
　　
　　string ls_on ls_err
　　
　　for i = to ll_colcount
　　 ls_ColName = ar_dsDescribe(# + string(i) +name)
　　 ls_on = ar_dsDescribe(# + string(i) +Identity)
　　 if ls_on = yes then
　　ar_dsmodify (ls_ColName + Identity = no )
　　 end if
　　next
　　
　　５開始copy
　　
　　update
　　
　　結束
From:http://tw.wingwit.com/Article/program/Oracle/201311/16525.html