如果库存表里面有产品名称颜色字段，如何将颜色作为字段标题显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果库存表里面有产品名称颜色字段，如何将颜色作为字段标题显示

共有1988人关注过本帖树形打印复制链接主题：如果库存表里面有产品名称颜色字段，如何将颜色作为字段标题显示

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

如果库存表里面有产品名称颜色字段，如何将颜色作为字段标题显示 发帖心情

Post By：2016/4/1 11:15:00 [只看该作者]

如果库存表里面有产品名称颜色字段，如何将颜色作为字段标题

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/1 11:23:00 [只看该作者]

哪里的字段标题？具体例子上传。

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2016/4/1 14:03:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目14.foxdb

要求仓库变成字段

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/1 14:15:00 [只看该作者]

没看到你什么意思，你是要设置单元格的颜色？

http://www.foxtable.com/help/topics/0656.htm

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2016/4/1 14:17:00 [只看该作者]

不是这个意思要求仓库横向显示

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/1 14:52:00 [只看该作者]

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68546&skin=0

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/1 15:01:00 [只看该作者]

Dim dt As DataTable = DataTables("期初表")
Dim dtb As New DataTableBuilder("水平表")
dtb.AddDef("名称", Gettype(String), 32)
dtb.AddDef("颜色", Gettype(String), 32)

For Each v As String In dt.GetValues("仓库")
    dtb.AddDef(v & "_数量", Gettype(Double))
    dtb.AddDef(v & "_单价", Gettype(Double))
    dtb.AddDef(v & "_金额", Gettype(Double))
Next
dtb.Build()
For Each v As String() In dt.GetValues("名称|颜色")
    Dim dr1 As DataRow = DataTables("水平表").AddNew()
    dr1("名称") = v(0)
    dr1("颜色") = v(1)
    For Each dr2 As DataRow In dt.Select("名称+颜色 = '" & v(0) & v(1) & "'")
        dr1(dr2("仓库") & "_数量") = dr2("数量")
        dr1(dr2("仓库") & "_单价") = dr2("单价")
        dr1(dr2("仓库") & "_金额") = dr2("金额")
    Next
Next
MainTable = Tables("表B")

jswjyjf

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

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

Post By：2016/4/1 15:22:00 [只看该作者]

嗯万分感谢可不可以右边加个合计数量合计金额

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/1 15:24:00 [只看该作者]

你为什么不直接用交叉统计？

http://www.foxtable.com/help/topics/0165.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/1 15:29:00 [只看该作者]

Dim dt As DataTable = DataTables("期初表")
Dim dtb As New DataTableBuilder("水平表")
dtb.AddDef("名称", Gettype(String), 32)
dtb.AddDef("颜色", Gettype(String), 32)
Dim s1 As String = ""
Dim s2 As String = ""
For Each v As String In dt.GetValues("仓库")
    dtb.AddDef(v & "_数量", Gettype(Double))
    dtb.AddDef(v & "_单价", Gettype(Double))
    dtb.AddDef(v & "_金额", Gettype(Double))
    s1 &= "isnull(" & v & "_数量" & ",0)+"
    s2 &= "isnull(" & v & "_金额" & ",0)+"
Next
dtb.AddDef("数量合计", Gettype(Double), s1.trim("+"))
dtb.AddDef("金额合计", Gettype(Double), s2.trim("+"))
dtb.Build()
For Each v As String() In dt.GetValues("名称|颜色")
    Dim dr1 As DataRow = DataTables("水平表").AddNew()
    dr1("名称") = v(0)
    dr1("颜色") = v(1)
    For Each dr2 As DataRow In dt.Select("名称+颜色 = '" & v(0) & v(1) & "'")
        dr1(dr2("仓库") & "_数量") += dr2("数量")
        dr1(dr2("仓库") & "_单价") += dr2("单价")
        dr1(dr2("仓库") & "_金额") += dr2("金额")
    Next
Next
MainTable = Tables("水平表")

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

主题：如果库存表里面有产品名称 颜色字段，如何将颜色作为字段标题显示

主题：如果库存表里面有产品名称颜色字段，如何将颜色作为字段标题显示