以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数字格式怎么设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142942)

--  作者:巷弄太过弯曲
--  发布时间:2019/11/9 15:17:00
--  数字格式怎么设置
老师,请问数量的数字后面好多0怎么设置成11.0 这种格式

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20191109151429.png
图片点击可在新窗口打开查看
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Conn ect ionN ame = "ce shi"
cmd.CommandText = "S ELE CT fbillno as 单据编号,{t_Supplier}.Fname as 供应商 ,{POOrder}.fdate as 日期 ,{t_Department}.FName as 部门,{t_ICItem}.fname as 物料名称,{t_ICItem}.FModel as 规格型号,{POOrderEntry}.FQty as 数量 From ((({POOrder} left join {t_Supplier} on {POOrder}.FSupplyID = {t_Supplier}.FItemID) left join {t_Department} on {POOrder}.FDeptID = {t_Department}.FItemID) inner join {POOrderEntry} on {POOrder}.FInterID = {POOrderEntry}.FInterID) inner join {t_ICItem} on {POOrderEntry}.FItemID = {t_ICItem}.FItemID"
dt = cmd.ExecuteReader()
Tables("窗口1_Table1").DataSource = dt

--  作者:有点蓝
--  发布时间:2019/11/9 15:31:00
--  
……
dt = cmd.ExecuteReader()
Tables("窗口1_Table1").DataSource = dt
Tables("窗口1_Table1").DataTable.DataCols("数量").Decimals = 1
Tables("窗口1_Table1").DataTable.DataCols("数量").SetFormat("0.0")


--  作者:巷弄太过弯曲
--  发布时间:2019/11/9 15:46:00
--  
谢谢老师