| 发表于：2007-02-12 10:15:16 楼主 |
我想将两张表合并成一张表，代码如下：
with adojna
if .state <> adstateopen then
.activeconnection = adosdb
.cursorlocation = aduseclient
.cursortype = adopenstatic
.locktype = adlockbatchoptimistic
.open "select * from dnhzb order by 序号 ", options:=adcmdtext
set .activeconnection = nothing
else
set .activeconnection = nothing
end if
end with
with adojnb
if .state <> adstateopen then
.activeconnection = adosdb
.cursorlocation = aduseclient
.cursortype = adopenstatic
.locktype = adlockbatchoptimistic
.open "select * from db order by 序号 ", options:=adcmdtext
set .activeconnection = nothing
else
set .activeconnection = nothing
end if
end with
adojnb.movefirst
do until adojnb.eof
adojna.addnew
adojna![序号] = iif（isnull（adojnb![序号]), " ", adojnb![序号])
adojna![签单编号] = iif（isnull（adojnb![签单编号]), " ", adojnb![签单编号])
adojna![客户名称] = iif（isnull（adojnb![客户名称]), " ", adojnb![客户名称])
adojna![地区或受理局] = iif（isnull（adojnb![地区或受理局]), " ", adojnb![地区或受理局])
adojna![固定电话] = iif（isnull（adojnb![固定电话]), " ", adojnb![固定电话])
adojna![联系电话] = iif（isnull（adojnb![联系电话]), " ", adojnb![联系电话])
adojna![登记编号] = iif（isnull（adojnb![登记编号]), " ", adojnb![登记编号])
adojna![送货住址] = iif（isnull（adojnb![送货住址]), " ", adojnb![送货住址])
adojna![宽带类型] = iif（isnull（adojnb![宽带类型]), " ", adojnb![宽带类型])
adojna![受理时间] = iif（isnull（adojnb![受理时间]), " ", adojnb![受理时间])
adojna![受理工号] = iif（isnull（adojnb![受理工号]), " ", adojnb![受理工号])
adojna![机型] = iif（isnull（adojnb![机型]), " ", adojnb![机型])
adojna![机型序列号] = iif（isnull（adojnb![机型序列号]), "0 ", adojnb![机型序列号])
adojna![显示器] = iif（isnull（adojnb![显示器]), " ", adojnb![显示器])
adojna![显示器序列号] = iif（isnull（adojnb![显示器序列号]), "0 ", adojnb![显示器序列号])
adojna![送货时间] = iif（isnull（adojnb![送货时间]), "1999-1-1 ", adojnb![送货时间])
adojna![安装情况] = iif（isnull（adojnb![安装情况]), " ", adojnb![安装情况])
adojna![原由] = iif（isnull（adojnb![原由]), " ", adojnb![原由])
adojna![完工时间] = iif（isnull（adojnb![完工时间]), " ", adojnb![完工时间])
adojna![安装工程师] = iif（isnull（adojnb![安装工程师]), " ", adojnb![安装工程师])
adojna![满意度] = iif（isnull（adojnb![满意度]), " ", adojnb![满意度])
adojna![其它] = iif（isnull（adojnb![其它]), " ", adojnb![其它])
adojna.update
adojnb.movenext
loop
|
|
|
|
|
