表结构不一样 for li_current = 1 to adw_source.rowcount() adw_source.scrolltorow(li_current) adw_source.selectrow(li_current - 1,false) adw_source.selectrow(li_current,true) //得到旧数据 ls_byqdm = adw_source.getitemstring(li_current,'byqdm')
//插入新数据 INSERT INTO xt_bianyqcs ( bianyqdm......) VALUES ( :ls_byqdm,....) USING D_DBTrans; if d_dbtrans.sqlcode <> 0 then messagebox('',string(li_current)) COMMIT USING D_DBTrans ;
先将一条老数据读出,再insert进新数据库
for li_current = 1 to adw_source.rowcount()
adw_source.scrolltorow(li_current)
adw_source.selectrow(li_current - 1,false)
adw_source.selectrow(li_current,true)
//得到旧数据
ls_byqdm = adw_source.getitemstring(li_current,'byqdm')
//插入新数据
INSERT INTO xt_bianyqcs
( bianyqdm......)
VALUES ( :ls_byqdm,....) USING D_DBTrans;
if d_dbtrans.sqlcode <> 0 then messagebox('',string(li_current))
COMMIT USING D_DBTrans ;
snakerlee说对sql执行结果代码进行跟踪,不知何解?:数据很多。