主题：[求助]如何动态设置列数据格式

对于已经生成的表,如何来设置列的数据格式,比如要将数据设置为小数点2位

谢谢程老师

程老师,表是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

正确,谢谢Bin老师