pb+db2,导出excel表时要对表的某个字段转换时到80条左右就为空白(共2000条)

[franky_yuquan]

pb+db2,导出excel表时要对表的某个字段转换时到80条左右就为空白,我要导出2000条以上的数据到excel,导完后要对某个部门的id号转换为部门的名字,也就是对数据库的部门号和部门名的表要select2000次,但80次左右时有全部转换为空白了,为什么?清高手指导

[鸡翅多]

你应该把问题说的再清楚一点，大家也好帮助你

[franky_yuquan]

我的代码大概为:


SetRemote('R' + '1' +'C' + '1', '姓名', "Excel", filename)
SetRemote('R' + '1' +'C' + '2', '性别', "Excel", filename)
SetRemote('R' + '1' +'C' + '3', '工作部门', "Excel", filename)
SetRemote('R' + '1' +'C' + '4', '出生年月', "Excel", filename)
SetRemote('R' + '1' +'C' + '5', '学历', "Excel", filename)
SetRemote('R' + '1' +'C' + '6', '毕业院校', "Excel", filename)
SetRemote('R' + '1' +'C' + '7', '专业', "Excel", filename)
SetRemote('R' + '1' +'C' + '8', '职务', "Excel", filename)
for i =2 to w_main.rcount+1
//2:workdept 工作部门
location = 'R' + string(i) +'C' + '3'
////////////////////
workdeptcode = trim(w_main.dw_1.getitemstring(i,"workdept"))
select deptname into :value from department where deptcode = :workdeptcode;
value = trim(value)
SetRemote(location, value , "Excel", filename)
value = ''
next

[franky_yuquan]

for语句要循环2000次左右,到80次左右value就为空值了,有什么错误吗

[FeelingL]

不是很明白
你可以画一个Datawindow,显示表的所有字段,
然后dw_1.saveasciias()直接另存为Excel
然后在Excel中要怎么修改就怎么修改

[FeelingL]

string ls_docname, ls_named
integer ll_value

ll_value = GetFileSaveName("选择文件",ls_docname, ls_named, "XLS","Excel文件 (*.XLS),*.xls,文本文件 (*.TXT),*.TXT")
IF ll_value = 1 THEN
if dw_1.SaveAsAscii ( ls_docname )=1 then
messagebox("注意","导出数据成功!")
else
messagebox("注意","导出数据成功!")
end if
end if