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

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

点击浏览该文件:价格查询对比.rar

 

    例子表也发上来了，  直接在表里设置 和在 窗口管理里设置   多谢

设置成下图所示 

 

多谢！ 多谢

在生成汇总的同时 能否合并？ 代码 怎么写呢 ？版主

此主题相关图片如下：g_9_(_xx9d7`xv4zy73pgny.jpg

汇总后 就不能编辑了，能否设置一下，汇总后可以保存，

也可以返回重新编辑呢（就是没有汇总前一样）？ 

 

此主题相关图片如下：j482yh1weh4)utf5jjvbc.jpg

取消汇总 怎么写代码？

  我咋怎么哈哟， 这跟切换是一回事  多谢， 现在还有一点就是在生成汇总后，排列顺序  形如 _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