以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 窗口中的Table控件有以下动态加载数据的方法。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114182)
--  作者：KWK001
--  发布时间：2018/1/31 10:00:00
--  [求助] 窗口中的Table控件有以下动态加载数据的方法。

 

请帮忙看一下代码是否正确？

 

在窗口table中，没有显示生产能率这一列？

 

但是在统计表1 中又有这一列的，何解？

 

Dim g As New GroupTableBuilder("统计表1", DataTables("data"))
    g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
    g.Groups.AddDef("日期", "月")
    g.Groups.AddDef("工号")
    g.Groups.AddDef("姓名")
    g.Totals.AddDef("必要时间")
    g.Totals.AddDef("作业时间")
    g.VerticalTotal = True
    g.Build()
    \'MainTable = Tables("统计表1")
    Dim t As Table = Tables("统计表1")
    Dim dc = t.DataTable.DataCols.Add("生产能率", Gettype(Double),"必要时间/作业时间")
    dc.SetFormat("0.00%")
    Tables("生产效率_Table1").DataSource = g.BuildDataSource()

[此贴子已经被作者于2018/1/31 10:03:04编辑过]
--  作者：有点甜
--  发布时间：2018/1/31 10:44:00
--  

Dim g As New GroupTableBuilder("统计表1", DataTables("data"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("工号")
g.Groups.AddDef("姓名")
g.Totals.AddDef("必要时间")
g.Totals.AddDef("作业时间")
g.VerticalTotal = True


Tables("生产效率_Table1").DataSource = g.BuildDataSource()
Dim t As Table = Tables("生产效率_Table1")
Dim dc = t.DataTable.DataCols.Add("生产能率", Gettype(Double),"必要时间/作业时间")
dc.SetFormat("0.00%")