Foxtable(狐表)用户栏目专家坐堂 → [求助]怎样使狐表某一列用百分数表示


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

主题:[求助]怎样使狐表某一列用百分数表示

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
[求助]怎样使狐表某一列用百分数表示  发帖心情 Post By:2019/10/9 23:28:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:马龙区.xlsx

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:陆良县.xlsx

各位专家
你们好,我现在想问一个问题,在我上传的附件中,“物资损耗统计”的“损耗率”这一列,我是想用小数点后保留两位的百分数表示,在源excel表格中也是保留两位的百分数,可怎么提取到狐表中,变成多位的小数呢,请问要怎样才能像第八列那样是小数点后保留二位的百分数呢?我写的代码如下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物资损耗统计.table


For Each file As String In filesys .GetFiles("f:\物资损耗")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("行驶证").AddNew
        dr("结余量") = sheet(2,1).Text
        dr("领用量") = sheet(2,2).Text
        dr("剩余量") = sheet(2,3).Text
        dr("使用量") = sheet(2,4).Text
        dr("制证量") = sheet(2,5).Text
        dr("损耗量") = sheet(2,6).Text
        dr("损耗率") = sheet(2,7).Text
    End If
Next

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2019/10/9 23:29:00 [只看该作者]

还有一个excel附件在此
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:宣威市.xlsx


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/10/10 8:44:00 [只看该作者]

先设置列属性,将小数位数设置为2,再导入数据:
http://www.foxtable.com/webhelp/topics/0043.htm
http://www.foxtable.com/webhelp/topics/0050.htm

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2019/10/12 21:56:00 [只看该作者]

好的,谢谢你,现在能实现精确到小数点后二位了。

 回到顶部