主题：怎样设置价格对比窗口啊 求高手

Tables("xxx").ClearSubtotal()

  我咋怎么哈哟， 这跟切换是一回事  多谢， 现在还有一点就是在生成汇总后，排列顺序  形如 _Identify值类似行的编号，这个编号表示数据录入的顺序，
此主题相关图片如下：ssssh.jpg


此主题相关图片如下：ddddulpb7)6iuuk.jpg

循环把 类别为空的行 移动到最底层

怎么设置 ？每次新增后  生成汇总后都会跑到最上面。（想它是 1.2.3.4.5.6.7.8.9 而不想它变成 9.8.7.6.5.4.3.2.1）

 

With Tables("HID光源业务员价格表")
    .MergeMode = MergeModeEnum.Free
    .MergeCols.Clear()
    .MergeCols.Add("飞利浦_成套价")
    .MergeCols.Add("欧司朗_成套价")
    .MergeCols.Add("GE_成套价")
    .MergeCols.Add("亚示_成套价")
    .MergeCols.Add("律浦_成套价")
    .MergeCols.Add("类别")
    .MergeCols.Add("规格")
    .MergeSort = "飞利浦_成套价,欧司朗_成套价,GE_成套价,亚示_成套价,律浦_成套价,类别,规格"
    .AllowMerge = True
End With

Dim t As Table = Tables("HID光源业务员价格表")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = False

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "类别"
g.TotalOn = "飞利浦_单价,欧司朗_单价,GE_单价,亚示_单价,律浦_单价,"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()

MainTable = Tables("HID光源业务员价格表")

 在设置打印的时候      怎样在下面的代码中加入  

      “自动换行 和 指定某一列数据居中呢？”

 

 With Tables("xxx价格表").PrintInfo
    .Title = "xxx价格表xx" '用于设置标题
    .PageFooter = "第[PageNo]页,共[PageCount]页" '用于设置页脚
    .PageFooterLine = True '页脚之上是否显示一条分割线
    .PaperKind = 9 '指定纸张类型 9为A4纸张
    .FitIntoPage = True '是否自动适用页宽
    .LandScape = True '是否横向打印
End With
Tables("xxx价格表").Print(True,False)

 

 

 

 

此主题相关图片如下：333ox7.jpg