以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样使狐表某一列用百分数表示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141733)

--  作者:qjm107
--  发布时间: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
--  发布时间:2019/10/9 23:29:00
--  
还有一个excel附件在此
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:宣威市.xlsx


--  作者:狐狸爸爸
--  发布时间:2019/10/10 8:44:00
--  
先设置列属性,将小数位数设置为2,再导入数据:
http://www.foxtable.com/webhelp/topics/0043.htm
http://www.foxtable.com/webhelp/topics/0050.htm

--  作者:qjm107
--  发布时间:2019/10/12 21:56:00
--  
好的,谢谢你,现在能实现精确到小数点后二位了。