ListView控件是由ColumnHeader和ListItem对象所组成的，其中ColumnHeader对象的个数决定了控件的列数，而ListItem对象的个数则决定了控件的行数。
 下面介绍一下ListView控件的两个对象及其add方法：
 ColumnHeader对象是ListView控件中包含标头文字的项目，ColumnHeader对象的数目决定每个ListItem对象可包含的子项目数目。
 利用ColumnHeader对象，用户可以：
     1、单击对象触发ColumnClick事件并根据数据项目将项目排序。
     2、拖动对象的右边框来调整列宽度。
     3 、在报表视图中隐藏ColumnHeader对象。
 
ListItem对象是指控件中的一行（不包含标头行）的所有内容，它代表ListView控件中ListItem对象的数据。
 ListItem对象可包含任意多个的关联项目数据字符串（子项目），但每个ListItem对象子项目数目必须相同。每个子项目都对应于相关的列标头，无法直接向子项目数组添加元素，只有通过ColumnHeaders的Add方法添加列标头的方法 来添加子项目。
 
以ListView1为例：
 增加列的Add方法：
 ListView1.ColumnHeaders.Add([index],[key],[text],[width],[alignment]) 
           index ：唯一标识对象集合成员的整数。 
           key ：唯一的字符串标识，可以用来访问集合的成员。 
           text ：列标头中显示的文字。 
           width ：列宽。是数值表达式，用来指定列的宽度。 
           alignment ：决定 ColumnHeader对象中文本对齐方式的整数（lvwColumnLeft、lvwColumnRight、lvwColumnCenter）
 
增加行的Add方法：
 ListView1.ListItems.Add([index],[key],[text],[icon],[smallicon])
           Index：指定在何处插入ListItem对象的整数。
           Key 插入列表项的关键字
           Text 插入列表项的文本
           Icon ：当为图标视图时，要求显示的图标（从imagelist中选定要显示的图标）
           Smallicon：当为小图标视图时，要求显示的图标（从imagelist中选定要显示的图标）
 
 
 
项目实例：
 
 
 
 
 
 
 
 
 

在VB中制作报表一般来讲有三种方法：
 1、直接使用VB6.0中自带的Data Report 来做，这种方法有很大的局限性，对于比较规则的报表，但对于比较复杂的报表，比如说一张报表，上部分是人员的工资，下部分是人员的各日的考勤，使用这种方法就无能为力。
 2、使用直接的打印方法，即Printer.print ，这种方法直接向打印机打印，就象过去使用Foxpro似的，需要进行打印机定位，并且在Windows下，不同的字符数字所占的宽度也不相同，所以这种方法使用起来非常麻烦。
 3、使用微软的Excel。本文重点讨论用Excel来制作报表所涉及的问题。我们用Excel做报表时，不仅是将所要的内容填到Excel的工作表中，而且还需要填写公式、定义合适的格式（格线、字体、对齐）等。
 Excel的每张工作表是由若干行、若干列构成的，行列的交叉形成的小格称作单元格。我们正好可以用这些现成的单元格来做我们的报表的相应的格。为了程序简单，可以将报表的模板做好，如表头，相应的行高、列宽、字体、对齐调整好（事实上，这些也可以通过程序来实现，只是麻烦点。），然后利用VB程序来操纵Excel。
 这里我们以SQL SERVER 7.0为后台数据。首先定义好需要的变量，在VB6.0的菜单"工程\引用"中确保 Microsoft Excel 8.0 Object Library（在Excel2000中，此处为Excel 9.0）复选框选中。
 再向Excel工作表中填入数据：
 Dim VBExcel As Excel.Application
 Dim xlbook As Excel.Workbook 定义Excel工作簿对象
 Dim xlsheet As Excel.Worksheet 定义Excel工作表对象
 Dim rssalary As New ADODB.Recordset 定义记录集
 rssalary.Open SQLStrsalary, CNstring, adOpenStatic, adLockReadOnly
 rssalary 为已计算好的工资数据记录集。
 SQLStrsalary 是SQL语句（如select * FROM SALARY）。
 Cnstring 是连接字符串（如Provider=SQLOLEDB.1;Integrated
 Security=SSPI;Persist Security Info=False;
 Initial Catalog=DBname;Data Source=servername）。
 Set VBExcel = createObject("excel.application")
 VBExcel.Visible = True
 根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
 Set xlbook = VBExcel.Workbooks.Open(ExcelFile)
 ExcelFile为事先设计好的Excel模板文件（包括路径）
 Set xlsheet = xlbook.Worksheets("salary")
 Salary 为Excel模板工作表的名字
 xlsheet.Activate
 下面是向单元格中填写数据（以一个简单的工资打印为例）：
 xh = 1
 Row = 6 从第6行开始是工资数据，1-5 行为工资单表头
 SumRow = Row SumRow用来存放合计的起始行
 Do While Not rssalary.EOF
 Col = 1
 xlsheet.Cells(Row, Col).Value = xh
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = rssalary("name")
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = Str(rssalary("jngz").Value)
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = Str(rssalary("jbdx").Value)
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = Str(rssalary("gwgz").Value)
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = Str(rssalary("zygz").Value)
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = Str(rssalary("jfgz").Value)
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = Str(rssalary("yfgz").Value)
 xh = xh + 1
 Row = Row + 1
 rssalary.MoveNext
 Loop
 以上可将各人的工资项打印出来，下面是合计（仅以一列的合计为例，填写公式）：
 Col = 1
 xlsheet.Cells(Row, Col).Value = ""
 Col = Col + 1
 xlsheet.Cells(Row, Col).Value = "合计"
 Col = Col + 1
 HeJi = "=SUM(c" + Trim(Str(SumRow)) + ":c" + Trim(Str(Row - 1)) + ")"
 xlsheet.Cells(Row, Col).Value = HeJi
 填入公式，HeJi是一个字符串变量。
 如果用到的汇总是求平均、记数等，可用相应的Excel函数来替代上面的SUM，如COUNT、AVERAGE等。
 因为Excel中所见到的格线，其实并不是实际存在的线，只是为了分割各个单元格；而如果在Exce的选项中设置上有网格线的话，那么每一个格的四周都有线，并不一定能符合实际的需要。因此，如果只是某些地方需要画线，可用以下方法为某个单元格加上边框：
 xlsheet.Cells(Row, Col).Borders(xlTop).Weight = xlThin
 其中Borders 的参数可为：xlTop，xlBottom，xlRight，xlLeft 代表位置。
 它的Weight 的值可为：xlThin，xlMedium,xlThick.... 代表线粗。
 在Excel 中，如果某个单元格的宽度小于其中内容的长度，其中的内容将显示一串"＃"，真正的内容就看不到了，我们可用以下的方法来解决：
 　 xlsheet.Cells(Row, Col).ShrinkToFit = true
 这样Excel可以自动将单元格中内容的字体缩小来适合所在的单元格的宽度。也可以将模板中所有可能用到的单元格格式的对齐方式中的"缩小字体填充"项选中，然后将不需要缩小字体填充的单元格设为：
 　　 xlsheet.Cells(Row, Col).ShrinkToFit =false
 由于Excel中对于对齐方式(即靠左、右,上、下等)有它自己默认的方式，如数字自动在单元格中靠右，文字自动靠左。如果需要中单元格的内容在某个单元格中的对齐方式可以这样来做：
 水平对齐：xlsheet.Cells(Row, Col).HorizontalAlignment = xlCenter
 其中xlCenter处可为xlLeft、xlRight。
 垂直对齐：xlsheet.Cells(Row, Col). VerticalAlignment = xlCenter
 其中xlCenter处可为xlTop、xlBottom。
 如果需要用到单元格的内容在多个单元格中居中（跨列居中），可以这样来实现(下例可实现第一行的A到H列居中)：
 Dim Total As Range
 RangeCells = "a" + RTrim(LTrim(Str(1))) + ":" + "h" + RTrim(LTrim(Str(1)))
 Set Total = Range(RangeCells)
 Total.select
 Total.HorizontalAlignment = xlHAlignCenterAcrossselection
 然后在这几个单元格中的最前一个单元填入实际内容。
 xlsheet.Cells(1, 1).Value = "实际内容"
 有时我们可能会用到改变字体及尺寸，可以通过以下方法实现：
 Sheet1.Cells(Row,Col).Font.Name = "隶书"
 Sheet1.Cells(Row,Col).Font.Size = 20
 在单元格中输入数字性的文本，如05182381104，写到Excel的单元格中时，Excel会自动将其视为数字，从而变为5182381104。要解决这个问题，可这样做：
 xlsheet.Cells(Row, Col).Value=" "+"05182381104"
 上句中的两个双引号中间是一个单引号。
 另外，如果一张Excel工作表的长度超过了所设定的打印机的纸张的长度，Excel将自动分页，第二页就会没有表头。在出现这种情况下，如果表头是模板中固定好的，可在模板中设置好，方法是在Excel的菜单"文件\页面设置"中来设置。如果表头是在程序中形成的，可用下面的方法：
 xlsheet.PageSetup.PrintTitleRows = rows("1:6").Address
 这里"1:6"是根据表头所在的行来自行设定的。
 xlsheet.PageSetup.PrintTitleColumns = Columns("A:p").Address
 这里"A:P"是根据表头所在的列来设定的。
 通过上面这些方法来制做我们平常所见的报表，应该是不会有太大的问题。其实，我们在Excel软件中所能做到的，在VB中都可以通过调用来实现。