用这种方法设置格式：http://www.foxtable.com/webhelp/scr/1659.htm
Dim dtb As New DataTableBuilder("球号分析")
dtb.AddDef("球号", Gettype(Integer))
dtb.AddDef("出现次数", Gettype(Integer))
dtb.AddDef("百分比", Gettype(Double))
dtb.Build()
DataTables("球号分析").DataCols("百分比").SetFormat("0.00%")
Tables("监理投标测算_Table4").DataSource = dtb.BuildDataSource()
Dim dt As Table = Tables("监理投标测算_Table4")
'删除原table所有行
For i As Integer = dt.Rows.count-1 To 0 Step -1
dt.Rows(i).Delete()
Next
Dim cnt As Integer
cnt = Tables("监理投标测算_Table1").Compute("Max([投标家数])")
For i As Integer = 1 To cnt
Dim ndr As Row = dt.AddNew()
ndr("球号") = i
ndr("出现次数") = Tables("监理投标测算_Table1").Compute("count([随机摸球法_中标球号])","随机摸球法_中标球号 = " & ndr("球号"))
ndr("百分比") = ndr("出现次数") / Tables("监理投标测算_Table1").Rows.Count
Next
加好友 
发短信
Post By：2017/3/14 16:59:00 [显示全部帖子]
