以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159148)

--  作者:rgbjwjb
--  发布时间:2020/12/15 16:51:00
--  数据格式

请问窗体中的“统计表格“控件中如何设置小数位数?下面的代码运行后,数据还是整数,请问如何修改?谢谢!

Dim rd1 As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim nf1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If rd1.Checked =True Then
    \'-----------------生成统计表--------------------
    Dim g As New GroupTableBuilder("统计表1", DataTables("收入明细表"))
    Dim dt As fxDataSource
    g.Groups.AddDef("收入日期", DateGroupEnum.Year, "年")
    g.Totals.AddDef("收入金额")
    g.Decimals = 2
    g.Build()
    dt=g.BuildDataSource()
    Tables("收入表格查询_Table1").DataSource = dt \'将统计结果绑定到Table
    Tables("收入表格查询_Table1").SetColVisibleWidth("年|240|收入金额|160")
    Tables("收入表格查询_Table1").ExtendLastCol = True
    Tables("收入表格查询_Table1").Sort = "年,收入金额"
    Tables("收入表格查询_Table1").Cols("收入金额").GrandTotal = True
    Tables("收入表格查询_Table1").GrandTotal = True
    For Each C As Col In Tables( "收入表格查询_Table1").ColS  \'除备注字段外,居中对齐
        c.TextAlign  = TextAlignEnum.Center
    Next
Else
    nf1.Enabled =True
    nf1.Value ="请选择年度"
End If


--  作者:有点蓝
--  发布时间:2020/12/15 17:06:00
--  
"收入金额"列类型是整数?
--  作者:rgbjwjb
--  发布时间:2020/12/15 18:52:00
--  
单精度小数
--  作者:有点蓝
--  发布时间:2020/12/15 20:32:00
--  
我测试没有问题,试试

Dim g As New GroupTableBuilder("统计表1", DataTables("收入明细表"))
    g.Groups.AddDef("收入日期", DateGroupEnum.Year, "年")
    g.Totals.AddDef("收入金额")
    g.Decimals = 2
    Tables("收入表格查询_Table1").DataSource = g.BuildDataSource() \'将统计结果绑定到Table

还不行就上传实例测试

--  作者:rgbjwjb
--  发布时间:2020/12/16 16:07:00
--  
试过之后还是不行,请帮看一下。谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:家庭日常收支管理系统.rar


--  作者:有点蓝
--  发布时间:2020/12/16 16:47:00
--  
没有问题呀。默认小数点后面没有值,肯定不显示的。如果要显示123.00这种情况要设置一下列:http://www.foxtable.com/webhelp/topics/1659.htm

    Tables("收入表格查询_Table1").DataSource = g.BuildDataSource() \'将统计结果绑定到Table
DataTables("收入表格查询_Table1").DataCols("收入金额").SetFormat("0.00")