请求高手帮助 在线等待！！！！！！！为什么总是执行MessageBox("信息","导出数据失败") 这个导出数据失败的错误信息

[lynx_cherry]

为什么总是执行MessageBox("信息","导出数据失败") 这个导出数据失败的错误信息
不执行导出数据成功的那一面啊？
integer li_rtn,ii,li_asc
string ls_name,ls_pathname,ls_dianName="和家",ls_line
ls_pathname = string(today(),"yyyymmdd") + ls_dianName + ".xls"
boolean lb_exist
long i
string ls_itnum, ls_itname , ls_poswaiter
long ll_number
dec{6} ld_price
dec{2} ld_disdamount
integer li_FileNum
li_FileNum = FileOpen(ls_pathname,LineMode!,Write!,LockWrite!,Append!)
if dw_2.RowCount()<1 then
MessageBox("提示信息","请先检索出数据再导出Excel!")
return -1//error
end if
li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")
if li_rtn=1 then
lb_exist = FileExists(ls_pathname)
IF lb_exist THEN
li_rtn = MessageBox("保存", ls_pathname+"文件已存在,是否覆盖",Exclamation!, YesNo!)
end if
if li_rtn=1 then
li_rtn=dw_2.SaveAs(ls_pathname,Excel!,true)

if li_rtn=1 then
//MessageBox("提示信息","导出数据成功!")
for i=1 to dw_2.rowcount()
ls_line=""
ls_itnum= dw_2.getitemstring(i,"itnum")
ls_itname = dw_2.getitemstring(i,"itname")
ll_number= dw_2.getitemNumber(i,"number")
ld_price = dw_2.getitemNumber(i,"price")
ld_disdamount = dw_2.getitemNumber(i,"disdamount")
ls_poswaiter = dw_2.getitemstring(i,"poswaiter")
//连接写入的值
ls_line = "商品编码："+ ls_itnum + ", 商品名称：" + ls_itname + ", 数量：" + string(ll_number) + ",单价：" + string(ld_price,"0.00") + "折扣后金额：" + string(ld_disdamount) + ",导购员：" + ls_poswaiter
//写文件
filewrite(li_FileNum,ls_line)
next

//关闭文件
fileclose(li_FileNum)


else
MessageBox("信息","导出数据失败")
return -1//error
end if
else
return -1//error
end if
else
return -1
end if

[starsong]

设定断点跟踪一下。

[niexiancheng]

一点分分都没有？