close all
clear
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查询分析器内可以插入，这是怎么回事，哪个高人帮忙解答下