以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]统计表的列标题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150501)
--  作者：天一生水
--  发布时间：2020/5/31 21:44:00
--  [求助]统计表的列标题

老师好！我生成的统计表，用代码显示和表中的显示为什么不同？

我要引用统计表中的数据，应该怎么办？

 

统计代码：

Dim b As New sqlCrossTableBuilder("统计表1","日历表")
b.AddTable("日历表","日期","数据表","日期")

b.HGroups.AddDef("星期") \'添加客户列用于水平分组
b.HGroups.AddDef("日期",DateGroupEnum.none) \'添加客户列用于水平分组

b.VGroups.AddDef("代码") \'添加产品列用于垂直分组
b.VGroups.AddDef("名称") \'添加产品列用于垂直分组
b.Totals.AddDef("涨跌幅") \'添加数量列用于统计
b.Build \'生成统计表
\'MainTable = Tables("统计表1") \'打开生成的统计表
Tables("统计分析_Table1").DataSource = b.BuildDataSource()

 

 


图片点击可在新窗口打开查看此主题相关图片如下：123.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/5/31 22:17:00
--  
正常，生成的统计表一般看到的是标题，而不是列名

output.show(c.name & "," & c.Caption)
--  作者：天一生水
--  发布时间：2020/5/31 22:38:00
--  

谢谢蓝老师！

比如下面的代码，引用列的时候，用的都是列名称，如果用列标题，应该怎样使用？

 

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = " & dr("第一列") ) Is Nothing Then
        dr("第三列") = True
    Else
        dr("第三列") = False
    End If
Next
--  作者：有点蓝
--  发布时间：2020/5/31 22:54:00
--  
像1楼那样，遍历所有列，把标题和列名放入字典

Dim doct As new Dictionary(of String,String)
For Each c As Col In Tables().cols
    doct.Add(c.Caption,c.Name)
Next

dr(doct("第三列标题")) = True