数据窗口保存为文件的问题

[qvsl]

我做好的数据窗口，想要输出为excel文件，，我用的是
if dw_1.saveasascii('c:\ttt.xls')=1 then
messagebox('提示:','ok!')
else
messagebox('提示:','cry!')
end if
提示保存成功了，但是文件里什么内容都没有，不知道是怎么回事？

还有我做的group类型的数据窗口，上边有计算列，怎么样能完整的输出
到excel文件中呀，要列名和结算列的值都有才行，，
新手，请前辈们回答是尽量详细点，谢谢谢谢

[workhand]

计算列好像很难导出去

[klbt]

1、用先retrieve()
2、自己编码，用写文件的方式。

[佣工7001]

同意klbt

[qvsl]

是group的数据窗口，可以吗？能不能说的详细点

[liliang800207]

用循环将数据窗口得内容
读出再写到文本文件中

[qvsl]

说的越详细越好，超级新手，听不明白这么技术性的回答呀，谢谢谢谢

[qvsl]

我是这么写的
OLEObject ole_object , ole_workbooks

ole_object = CREATE OLEObject
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF
ole_object.workbooks.add
ole_object.Visible = True
ole_workbooks = ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="电话号码"
ole_workbooks.cells(1,2).value="市话费"
ole_workbooks.cells(1,3).value="长途费"
ole_workbooks.cells(1,4).value="信息费"
ole_workbooks.cells(1,5).value="合计"
long l_row
for l_row = 2 to dw_1.rowcount()
ole_workbooks.cells(l_row,1).value=dw_1.getitemstring(l_row,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemstring(l_row,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemstring(l_row,3)
ole_workbooks.cells(l_row,4).value=dw_1.getitemstring(l_row,4)
ole_workbooks.cells(l_row,5).value=dw_1.getitemstring(l_row,5)
next
ole_workbooks.SaveAs ("d:\ttt.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks
可是加的计算列不显示呀

[qvsl]

而且，如果这个代码我用在group数据窗口的导出还不行，一行数据也没有，还把
原来的给清除了，，为什么呀？？？group型的怎么导出为excel呢？