主题：动态创建表时怎么同时加列标题？

1、帮助文件创建表及列，但是同时每一列加个列标题，怎么办？

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()
Syscmd.Project.Open(ProjectFile)

2、还有个小问题，我用单元格绘图的时候e.row.height就可以获取行高的值 ，但是我想在命令窗口来取当前行的行高，但是row没有发现有行高属性，请问在命令窗口怎么获取当前行的行高

3、咱们论坛我想看管理的回复，总是每次点“平板”才能展开帖子，请问从哪里设置可以自动展开，不用每次都点

4、我发现一些精华贴挺棒,想有时间多学习一下，怎么看？有没有统一的筛选功能