以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问为什么Exporter会将数据字段硬截成保留两位  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25391)
--  作者：zoomify
--  发布时间：2012/11/8 10:59:00
--  请问为什么Exporter会将数据字段硬截成保留两位

请问为什么Exporter会将数据字段硬截成保留两位,并且还不是四舍五入? 如下面的15168.40 原来是 15168.40654,能设置保留位数吗? 或者四舍五入

 

导出后的数据:

"ID","句柄","所在区域","权属编码","权属","地类编码","地类","面积","所有权"
28672,,"淹没区","ax","凹下","D013","旱地",15168.40,"集体"
28673,,"淹没区","ax","凹下","D111","河流水面",1238.66,"集体"

 

代码:

Dim ex As New Exporter

Dim dlg As New FolderBrowserDialog
    
    ex.SourceTableName = "窗口数据导出_Table1" \'指定导出表
    ex.FilePath = dlg.SelectedPath  \'  "c:\\" \'指定目标文件路径
    ex.Format = "Delimited" \'导出格式为符号分割的文本文件
    ex.NewTableName = "地块信息" & FangAn & "" \'指定文件名,注意无须扩展名
    ex.Export() \'开始导出
   
    msgbox("已经导出到" & dlg.SelectedPath & "\\地块信息" & FangAn & ".txt  文件.")
    Dim Proc As New Process
    Proc.File = dlg.SelectedPath & "\\地块信息" & FangAn & ".txt"
    Proc.Start
--  作者：狐狸爸爸
--  发布时间：2012/11/8 11:05:00
--  

给你一个简单方法：

 

Tables("客户").Grid.SaveGrid("c:\\data\\abc.txt", C1.Win.C1FlexGrid.FileFormatEnum.TextTab, C1.Win.C1FlexGrid.FileFlags.AsDisplayed, System.Text.Encoding.Default)
--  作者：zoomify
--  发布时间：2013/1/27 8:51:00
--  

这个方法解决了截断的问题,但好像不支持导出带表头:

http://helpcentral.componentone.com/nethelp/c1flexgrid/default.htm#!XMLDocuments/C1FlexRef/html/M_C1_Win_C1FlexGrid_C1FlexGridBase_SaveGrid_4_0e55c0c7.htm