Foxtable(狐表)用户栏目专家坐堂 → 请问为什么Exporter会将数据字段硬截成保留两位


  共有9130人关注过本帖树形打印复制链接

主题:请问为什么Exporter会将数据字段硬截成保留两位

帅哥哟,离线,有人找我吗?
zoomify
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:209 积分:1695 威望:0 精华:0 注册:2012/7/26 17:50:00
请问为什么Exporter会将数据字段硬截成保留两位  发帖心情 Post By:2012/11/8 10:59:00 [只看该作者]

请问为什么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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:209 积分:1695 威望:0 精华:0 注册:2012/7/26 17:50:00
  发帖心情 Post By: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


 回到顶部