- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何动态设置列数据格式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41361)
-- 发布时间：2013/10/17 16:46:00
-- [求助]如何动态设置列数据格式
对于已经生成的表,如何来设置列的数据格式,比如要将数据设置为小数点2位
-- 发布时间：2013/10/17 16:47:00
--
列属性
此主题相关图片如下：qq截图20131017164711.png
-- 发布时间：2013/10/17 16:48:00
--
DataTables
("订单").DataCols("折扣").SetFormat("0.00")-- 发布时间：2013/10/17 16:51:00
--
谢谢程老师
-- 发布时间：2013/10/17 16:57:00
--
程老师,表是Fill出来的查询表,属性不对
Dim Cust As String = e.Form.Controls("CustomerName").Value
Dim DateFrom As Date = e.Form.Controls("DateFrom").value
Dim DateTo As Date = e.Form.Controls("DateTo").value
Dim sql As String = "Select ProductName as 商品名称 , Sum(Quantity) as 数量,Sum(Quantity*UnitPrice) as 金额 from {SaleContractItems} Inner Join {SaleContracts} On ({SaleContracts}.SaleContractID={SaleContractItems}.SaleContractID) Where SaleDate between #" & DateFrom & "# And #" & DateTo & "# And CustomerName =\'" & Cust & "\' Group By ProductName"
Forms("报表中心").Controls("Table1").Visible=True
Tables("报表中心_Table1").Fill(sql,True)
\'Tables("报表中心_Table1").Cols("金额").SetFormat("0.00") \'出错,说是没有SetFormat属性
Forms("报表中心").Text=Forms("报表中心").Text & " - " & Cust
e.Form.close
-- 发布时间：2013/10/17 16:59:00
--
Tables("报表中心_Table1").Datatable.DataCols("金额").SetFormat("0.00")
-- 发布时间：2013/10/17 17:02:00
--
正确,谢谢Bin老师