主题：报表自动汇总问题

1、为什么要用listview处理？直接用table显示不行？

 

http://www.foxtable.com/webhelp/scr/1906.htm

 

2、显示不同颜色，参考

 

http://www.foxtable.com/webhelp/scr/0656.htm

 

3、分页

 

http://www.foxtable.com/webhelp/scr/2269.htm

 

当时看教程，说listview 功能多，就用的listiew,版主能帮我看看怎么写代码吗？我自己写了很多，表格是做出来了，但是数据都进不去

 

你要操作哪个表哪个窗口，要得到什么数据？

版主，通过您的指导，已经换用table控件了，现在还有一个数据标记的问题，我希望在控房状态数据类型为逻辑型，希望实现，当控房状态1/2/3，为true/False 的时候，对应的酒店地区1/2/3，分别用不同颜色的背景色和字体色标记，不知道怎么写代码，请您指导

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

点击浏览该文件:操团系统.table

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

点击浏览该文件:操团系统.table

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

点击浏览该文件:操团系统.table

执行下面代码

 

Dim cs As String() = {"FIT团","成都寰球","昆山春秋","杭州招商"}
For Each c As String In cs
    Dim f As New Filler
    f.SourceTable = DataTables(c) '指定数据来源
    f.SourceCols = "日期,团号,组团社,产品结构" '指定数据来源列
    f.DataTable = DataTables("团期一览") '指定数据接收表
    f.DataCols = "日期,团号,组团社,产品结构" '指定数据接收列
    f.ExcludeExistValue = True
    f.Fill() '填充数据
Next

Tables("团期一览").sort = "日期"

谢谢版主，用版主给的代码，顺利实现了要实现的效果，存在问题：

1、代码放到项目的afteropenproject事件，或者设计一个窗口，放到窗口按钮点击事件中

谢谢版主