我想实现把当前数据窗口的数据导出为excel或word表格或txt文本，请问这如何实现？？？
想了许多办法，老是不成功。。。
说明一点：数据窗口有多个，我想把当前处于激活状况的数据窗口的数据导出为excel或word表格或txt文本。
------解决方案--------------------
多个数据窗口切换，那应该用到tab控件的吗？
那可以在标签页切换事件中：
datawindow idw
choose case newindex
case 1
idw = tab_1.tabpage_1.dw_1
idw.settransobject(sqlca)
idw.retrieve(参数)
//其他处理...
case 2
idw = tab_1.tabpage_2.dw_2
idw.settransobject(sqlca)
idw.retrieve(参数)
//其他处理...
case 3
//处理...
...
end choose
idw.saveas() //也可写参数，直接指定保存文件或excel等，不写的话，运行时会弹出另存对话框给用户选择
------解决方案--------------------
上边的办法都比较简单，这些办法，不能处理ddlb 子数据窗口的显示值等，也无法修正格式
建议用OLE处理，虽然可能转出慢，但是显示的结果要好的多。
String ls_File,ls_Title
OLEObject OLEExcel,WorkBooks
Pointer oldpointer
Int ExcelOK,i,j,li_Net
String ls_StartAddress,ls_EndAddress
String ls_Style,ls_Value,ls_DispValue
String ls_BHCol,ls_McCol
//0>判断
if idwo.RowCount() > 65536 Then
MessageBox("提示","该数据超过65536行,系统无法进行处理!")
Return -1
end if
//1>文件名
ls_File = sle_1.Text
//2>删除
if FileExists(ls_File) Then
if Not FileDelete ( ls_File ) Then
MessageBox("提示","删除文件失败!"+ls_File)
Return -1
end if
End if
//3>创建EXCEL
OLEExcel = CREATE OLEObject
ExcelOK = OLEExcel.ConnectToNewObject( "Excel.Application" )
if ExcelOK <> 0 Then
MessageBox("提示","无法创建EXCEL文件，请检查是否已安装OFFICE-EXCEL办公软件!")
Return -1
end if
hpb_1.MinPosition = 1
hpb_1.MaxPosition = idwo.RowCount()
hpb_1.Position = 1
hpb_1.SetStep = 1
hpb_1.Visible = True
st_1.Visible = True
oldpointer = SetPointer(HourGlass!)
WorkBooks = OLEExcel.Application.Workbooks.Add()
//1>报表名称&格式(第一行)
if lower(idwo.Title) = 'none' or Trim(idwo.Title) = '' Then
ls_Title = '报表导出的EXCEL文件'
Else
ls_Title = idwo.Title
End if
WorkBooks.Sheets(1).Cells(1,1).value = ls_Title
WorkBooks.Sheets(1).Cells(1,1).Font.Bold = True
WorkBooks.Sheets(1).Cells(1,1).Font.Name = "宋体"
WorkBooks.Sheets(1).Cells(1,1).Font.Size = 18
WorkBooks.Sheets(1).Cells(1,1).Font.FontStyle = "常规"
WorkBooks.Sheets(1).Cells(1,1).borders.linestyle = 0
//
WorkBooks.Sheets(1).Cells(2,1).Value = '导出时间:'+String(ToDay(),'yyyy-mm-dd hh:mm:ss')
WorkBooks.Sheets(1).Cells(2,1).Font.Bold = True
WorkBooks.Sheets(1).Cells(2,1).Font.Name = "宋体"
WorkBooks.Sheets(1).Cells(2,1).Font.Size = 10
WorkBooks.Sheets(1).Cells(2,1).Font.FontStyle = "常规"
WorkBooks.Sheets(1).Cells(2,1).borders.linestyle = 0
//2>标题
For i = 1 to UpperBound(is_Text)
WorkBooks.Sheets(1).Cells(3,i).value = is_Text[i]
Next
st_1.text = "正在设置标题格式,请稍候......"
//3>标题格式
ls_StartAddress = wf_GetAddress(3,1)
ls_EndAddress = wf_GetAddress(3,UpperBound(is_Col))
WorkBooks.Sheets(1).Range(ls_StartAddress+":"+ls_EndAddress).Font.Bold = True
WorkBooks.Sheets(1).Range(ls_StartAddress+":"+ls_EndAddress).Font.Name = "宋体"
WorkBooks.Sheets(1).Range(ls_StartAddress+":"+ls_EndAddress).Font.Size = 10
WorkBooks.Sheets(1).Range(ls_StartAddress+":"+ls_EndAddress).Font.FontStyle = "常规"
WorkBooks.Sheets(1).Range(ls_StartAddress+":"+ls_EndAddress).borders.linestyle = 1
//4>数据格式
ls_StartAddress = wf_GetAddress(4,1)
ls_EndAddress = wf_GetAddress(4+idwo.RowCount(),UpperBound(is_Col))
WorkBooks.Sheets(1).Range(ls_StartAddress+":"+ls_EndAddress).Font.Bold = True