主题：数据表滚动条上方增加统计行

其实你现在的知识，完全可以实现，除了关联表，还可以用临时表：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目43.rar

输出代码，仔细分析。

位置自己调整，可以放在表的下面，可以考紧一点，第一个单元格可以显示为“合计”，每个工具都有自己的特色，实现了目标就行

例如：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目43.rar

9楼的文件和这个有差别吗？

滚动和移动都可以：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目43.zip

 

至于隐藏列，没有跟踪功能，只需在生成表的时候，不生成隐藏列即可，因为这种录入，都不会在录入过程隐藏列的。

 

既然是编码，你想怎么样都是可以的。

 

Table1控件显示行号列的属性设置为True即可。

行号没办法关闭，你可以自己增加一个普通列，宽度设置为合适的，将其移到第一列即可。

 

 

你不能这样吗：

 

Dim dtb As New DataTableBuilder("统计")
For Each dc As DataCol In DataTables("订单").DataCols
    If dc.IsString
        dtb.AddDef(dc.name, Gettype(String))
    ElseIf dc.IsDate
        dtb.AddDef(dc.name, Gettype(Date))
    ElseIf dc.IsNumeric
        dtb.AddDef(dc.name, Gettype(Double))
    ElseIf dc.IsBoolean
        dtb.AddDef(dc.name, Gettype(Boolean))
    End If
Next
dtb.Build()

那就根据Table而不是DataTable：

 

Dim dtb As New DataTableBuilder("统计")
For Each dc As Col In Tables("订单").Cols
    If dc.IsString
        dtb.AddDef(dc.name, Gettype(String))
    ElseIf dc.IsDate
        dtb.AddDef(dc.name, Gettype(Date))
    ElseIf dc.IsNumeric
        dtb.AddDef(dc.name, Gettype(Double))
    ElseIf dc.IsBoolean
        dtb.AddDef(dc.name, Gettype(Boolean))
    End If
Next
dtb.Build()