| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3305 人关注过本帖
标题:求助:EXCEL数据导入到VF后为什么数据丢失?
只看楼主 加入收藏
sgzhn
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-7-1
结帖率:100%
收藏
 问题点数:0 回复次数:6 
求助:EXCEL数据导入到VF后为什么数据丢失?
有一个电子表格数据,有很多字段,导入到VF后,其中bklbdm的数据‘0100’的首字符‘0’丢失了,怎么解决,快快帮助?
bmk.zip (25.08 KB)
这是此附件
搜索更多相关主题的帖子: 电子表格 
2011-07-01 10:38
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
Excel表格中bklbdm欄的格式應設為文本類型。

授人以渔,不授人以鱼。
2011-07-01 11:57
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 楼主 sgzhn
图片附件: 游客没有浏览图片的权限,请 登录注册


你自己仔細看看數據有什麽問題?帶綠色三角符號的是文本型數據,不帶的是數値型數據。

授人以渔,不授人以鱼。
2011-07-01 12:42
sgzhn
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-7-1
收藏
得分:0 
回复 3楼 TonyDeng
怎么才能快速设置成文本,如果从设置单元格里设置,前而的“0”就丢失了
2011-07-01 12:55
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 4楼 sgzhn
首先在該欄頂部標籤處單擊鼠標,選中整欄,然後右擊鼠標,調出下圖菜單,用【設置單元格格式】。
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册


[ 本帖最后由 TonyDeng 于 2011-7-1 13:03 编辑 ]

授人以渔,不授人以鱼。
2011-07-01 13:01
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
事實上,解決這個問題的方法有許多。導入FP數據庫後,再集中處理一次也是可以的,用PADL()函數,按指定位數填充整齊。
收到的鲜花
  • sgzhn2011-07-01 13:30 送鲜花  3朵   附言:我很赞同

授人以渔,不授人以鱼。
2011-07-01 13:19
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
给你段vfp直接读取EXCEL文件的示例。这样估计就不会出错了。

M_File=GETFILE('xls','订单文件')
IF M_File=""
   =MESSAGEBOX("请选择待导入的收订单文件!",0+48,"提示")
   RETURN
ELSE
   IF JUSTEXT(M_FILE)#"XLS"  &&获得文件扩展名
      =MESSAGEBOX("您选择的不是EXCEL文档!",0+48,"提示")
      RETURN
   ENDIF
ENDIF
USE 图书订单表
ZAP
myexcel=createobject('excel.application')      &&创建一个对象
myexcel.visible=.f.&&不可见
bookexcel=myexcel.workbooks.open(M_File)      &&打开指定文件
o_SheetName=myexcel.application.ActiveSheet.Name    &&获取当前激活工作表的名称
UsedRange =bookexcel.worksheets(o_SheetName).UsedRange     &&返回工作表中可使用的区域,UsedRange表的属性
o_rows=UsedRange.rows.count    &&汇总行
o_cols=UsedRange.columns.count    &&汇总列
IF o_rows<=1
   =MESSAGEBOX("待导入数据行数太少,请检查!",0+16,"提示")
ELSE
   FOR i=2 TO o_rows
       m1=myexcel.cells(i,1).value      &&书号     
       m2=myexcel.cells(i,2).value      &&书名      
       m3=myexcel.cells(i,3).value      &&出版社
       m4=myexcel.cells(i,4).value      &&作者      
       m5=myexcel.cells(i,5).value      &&定价
       m6=myexcel.cells(i,6).value      &&数量
       APPEND BLANK
       REPLACE 书号 WITH m1,书名 WITH m2,出版社 WITH m3,作者 WITH m4,定价 WITH m5,数量 WITH m6
    ENDFOR
ENDIF
myexcel.workbooks.close    &&关闭工作区
myexcel.quit    &&关闭excel
brow
2011-07-05 10:10
快速回复:求助:EXCEL数据导入到VF后为什么数据丢失?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030916 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved