Foxtable(狐表)用户栏目专家坐堂 → 数据格式


  共有2069人关注过本帖平板打印复制链接

主题:数据格式

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
数据格式  发帖心情 Post By: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


 回到顶部