为什么插补进去呢
close allclear
messagebox("从ypqtrk.DBF中的把转运出库数据带入系统!",0+64+0,"提示")
st="driver=sql server;server="+fwq+";uid="+yh1+";pwd="+mm1+";database=Ld"
linka=sqlstringconnect(st)
kk=sqlexec(linka,"select max(顺号) AS ZD FROM YPBBJL","DDD3")
set step on
SHH=ZD
IF ISNULL(SHH)
SHH=0
ELSE
SHH=ZD
ENDI
xxxx=0
sele 101
use YPQTRK
brow
pack
go top
do whil.not.eof()
cpbm11=alltrim(产品编码)
cksl11=入库数量
ckrq11=报表日期
bz11="其他入库"
sh11=recno()+shh
tt0=sqlexec(linka,"select * from ypscd where 产品编码=?cpbm11 ","ddd1")
count all to ddk
if ddk=0
messagebox(cpbm11+"编码不规范,不能导入!",0+64+0,"提示")
xxxx=1
endi
sele 101
skip
endd
if xxxx<>1
sele 101
use ypqtrk
go top
do whil.not.eof()
cpbm11=alltrim(产品编码)
cksl11=入库数量
ckrq11=报表日期
bz11="其他入库"
sh11=recno()+shh
time1=datetime()
*tt1=sqlexec(linka,"insert into ypbbjl(报表日期,操作日期,仓库,产品编码,当日入库,备注,顺号,标记1) values(?ckrq11,?time1,'海宁成品仓库',?cpbm11,?cksl11,?bz11,?sh11,'其他入库')")
TT1 =SQLEXEC(LINKA,"INSERT INTO YPBBJL(标记1,报表日期,当日入库,操作日期,仓库,顺号,产品编码,备注) values('其他入库',?ckrq11,?cksl11,?time1,'海宁成品仓库',?sh11,?cpbm11,'其他入库')")
SELE 101
skip
ENDD
cc=sqldisconnect(linka)
messagebox("样品其他入库完成",0+64+0,"提示")
endi
clea
return
代码运行正常,但TT1对数据库ypbbjl表进行插入始终不能成功,但相同的数据在SQL查询分析器内可以插入,这是怎么回事,哪个高人帮忙解答下