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

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

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

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

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")

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

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

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("水平表")

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

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