[求助]临时表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]临时表

共有5123人关注过本帖树形打印复制链接主题：[求助]临时表

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/29 13:10:00 [显示全部帖子]

添加一个窗口表，使用1楼+2楼的代码

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/29 14:26:00 [显示全部帖子]

订单表有加载数据吗？

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("产品", Gettype(String), 16)

dtb.AddDef("数量", Gettype(Integer))

dtb.AddDef("金额", Gettype(Double))

Tables("窗口1_Table1").DataSource = b.BuildDataSource()

For Each nm As String In DataTables("订单").GetValues("产品")

Dim dr As DataRow = DataTables("窗口1_Table1").AddNew()

dr("产品") = nm

dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & nm & "'")

dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & nm & "'")

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 8:57:00 [显示全部帖子]

dtb.AddDef("入库_合计金额", Gettype(Double))

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 9:31:00 [显示全部帖子]

我测试没有问题

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("客户名称", Gettype(String), 16)

dtb.AddDef("商品名称", Gettype(String), 16)

dtb.AddDef("入库_数量", Gettype(Integer))

dtb.AddDef("入库_合计金额", Gettype(Double))

Tables("窗口1_Table1").DataSource = dtb.BuildDataSource()

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 13:30:00 [显示全部帖子]

tb.AddDef("客户名称", Gettype(String), 16)

Dim prds As List(of String) = DataTables("入库明细").GetValues("商品名称")

dim s as string

For Each prd As String In prds

dtb.AddDef(prd & "_数量", Gettype(Integer))

dtb.AddDef(prd & "_金额", Gettype(Double))

s = s & "|" & prd & "_数量|70|" & prd & "_金额|100"

'dtb.Build()这一句去掉，不要自以为是

Tables("入库明细_Table1").DataSource = dtb.BuildDataSource()

……

Tables("入库明细_table1").SetColVisibleWidth ("客户名称|260|商品名称|120" & s)

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 16:56:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/2750.htm

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/30 20:15:00 [显示全部帖子]

For Each prd As String In prds

Tables("入库明细_table1").Cols(prd & "_数量").GrandTotal = True

Tables("入库明细_table1").GrandTotal = True

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/1 10:19:00 [显示全部帖子]

'dtb.Build()这一句去掉，不要自以为是

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/1 10:20:00 [显示全部帖子]

For Each prd As String In prds

dr(prd) = DataTables("入库明细").Compute("Sum(入库_数量)","客户名称 = '" & cus(0) & "' And [月] = '" & prd & "'")

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/1 11:35:00 [显示全部帖子]

像17楼的数量，金额标题名称的用法一样

下一主题 >> << 上一主题

总数 16 1 2 下一页

主题：[求助]临时表