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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表填充问题

共有1882人关注过本帖树形打印复制链接主题：跨表填充问题

jamhuton

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

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

跨表填充问题 发帖心情

Post By：2017/1/17 15:08:00 [显示全部帖子]

Select Case e.DataCol.name

Case "客户简称","月份"

e.DataRow("金4") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )

e.DataRow("金6") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )

e.DataRow("金8") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )

End Select

用这代码，3个列会同时填充，是否要加else，如何加？

此主题相关图片如下：1.png

jamhuton

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

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2017/1/17 15:12:00 [显示全部帖子]

按照“客户简称”，“月份”来分开，图中的“金4”“金6”“金8”就是对应箭头中的列

[此贴子已经被作者于2017/1/17 15:16:00编辑过]

jamhuton

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

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2017/1/17 15:25:00 [显示全部帖子]

按照客户和月份，来填入另外一张数据表的统计数据，后面的每个列对应一个客户

[此贴子已经被作者于2017/1/17 15:28:23编辑过]

jamhuton

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

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2017/1/17 15:37:00 [显示全部帖子]

Select Case e.DataCol.name

Case "客户简称","月份"

If e.DataRow("客户简称") = "AAA" Then

e.DataRow("金4") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )

ElseIf e.DataRow("客户简称") = "BBB" Then

e.DataRow("金6") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )

ElseIf e.DataRow("客户简称") = "ccc" Then

e.DataRow("金8") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )

End If

End Select

3个的话是不是这样？

jamhuton

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

加好友

发短信

等级：二尾狐帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00

Post By：2017/1/17 15:46:00 [显示全部帖子]

谢谢老师

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

主题：跨表填充问题