|
１清除本地数据 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 结束 |
