Foxtable(狐表)用户栏目专家坐堂 → 竖表转水平表代码有问题


  共有2498人关注过本帖树形打印复制链接

主题:竖表转水平表代码有问题

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


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
竖表转水平表代码有问题  发帖心情 Post By:2018/7/30 22:49:00 [只看该作者]

竖表转水平表时,增加不了行?

代码如下:
1、

Dim tb As Table = Tables("标录分析_Table3")

Dim g As New GroupTableBuilder("统计表1", DataTables("开标记录B"))

g.Groups.AddDef("开标日期", DateGroupEnum.Year, "")

g.Groups.AddDef("开标日期", "")

g.Groups.AddDef("随机摸球法_中标球号")

g.Totals.AddDef("随机摸球法_中标球号", AggregateEnum.Count, "记录数")

g.GrandProportion = True

g.Filter = "[随机摸球法_中标球号] > 0"

tb.DataSource = g.BuildDataSource

tb.Sort = "年,月"


2、

Dim tb3 As Table = Tables("标录分析_Table3")

Dim tb4 As Table = Tables("标录分析_Table4")

Dim dtb As New DataTableBuilder("B")

dtb.AddDef("", Gettype(String), 32)

dtb.AddDef("", Gettype(String), 32)

For Each nm As String In tb3.DataTable.GetValues("随机摸球法_中标球号")

    dtb.AddDef(nm, Gettype(Double))

Next

dtb.Build()

For Each nm As String() In tb3.DataTable.GetValues("|")

    Dim dr1 As DataRow = DataTables("B").AddNew()

    dr1("") = nm(0)

    dr1("") = nm(1)

    For Each dr2 As DataRow In tb3.DataTable.Select(" = '" & nm(0) & "' And = '" & nm(1) & "'")

        dr1(dr2("随机摸球法_中标球号")) = dr2("记录数")

    Next

Next

tb4.DataSource = dtb.BuildDataSource



此主题相关图片如下:qq截图20180730224945.png
按此在新窗口浏览图片



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110509 积分:562429 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/30 22:56:00 [只看该作者]

最后加上
tb.AllowEdit = True
tb4.AllowEdit = True

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/31 9:09:00 [只看该作者]

Dim tb3 As Table = Tables("标录分析_Table3")

Dim tb4 As Table = Tables("标录分析_Table4")

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("年", Gettype(String), 32)

dtb.AddDef("月", Gettype(String), 32)

For Each nm As String In tb3.DataTable.GetValues("随机摸球法_中标球号")

    dtb.AddDef(nm, Gettype(Double))

Next

tb4.DataSource = dtb.BuildDataSource
For Each nm As String() In tb3.DataTable.GetValues("年|月")

    Dim dr1 As Row = tb4.AddNew()

    dr1("年") = nm(0)

    dr1("月") = nm(1)

    For Each dr2 As DataRow In tb3.DataTable.Select("年 = '" & nm(0) & "' And 月 = '" & nm(1) & "'")

        dr1(dr2("随机摸球法_中标球号")) = dr2("记录数")

    Next

Next


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2018/7/31 12:35:00 [只看该作者]

老师出错了:

图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20180731123829.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2018/7/31 12:47:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20180731.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/31 13:10:00 [只看该作者]

Dim tb1 As Table = Tables("标录分析_Table1")
Dim tb2 As Table = Tables("标录分析_Table2")
Dim dtb As New DataTableBuilder("水平表")
dtb.AddDef("年", Gettype(String), 32)
dtb.AddDef("月", Gettype(String), 32)
For Each nm As String In tb1.DataTable.GetValues("中标球号")
    dtb.AddDef("c" & nm, Gettype(Double), "", nm)
Next
tb2.DataSource = dtb.BuildDataSource
For Each nm As String() In tb1.DataTable.GetValues("年|月")
    Dim dr1 As Row = tb2.AddNew()
    dr1("年") = nm(0)
    dr1("月") = nm(1)
    For Each dr2 As DataRow In tb1.DataTable.Select("年 = '" & nm(0) & "' And 月 = '" & nm(1) & "'")
        dr1("c" & dr2("中标球号")) = dr2("记录数")
    Next
Next

 回到顶部