专家坐堂-关于listview的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cls() As String = {"日期","成员","部门","项目名称","编号","任务","环节","提审内容","原画1","制作截图1","制作截图2","总结1","总结2","当前进度","预期进度"} \'定义列名

vr = lvw.Rows.Add() \'增加一行

Vr.Group = dr("成员")

V= "制作截图2"

v =V & vbcrlf & "项目名称:" & dr("项目名称")

v =V & vbcrlf & "截图编号:" & dr("编号")

v =V & vbcrlf & "当前进度:" & dr("当前进度")

v = V & vbcrlf & "预期进度:" & dr("预期进度")

vr.ToolTipText = v \'设置此行的动态提示

vr.ImageKey = Key2 \'设置图片键值

vr("项目名称") = "项目名称: " & dr("项目名称")

vr("编号") = "截图编号: " & dr("编号")

vr("环节") = "环节: " & dr("环节")

vr("提审内容") ="提审内容: " & dr("提审内容")

vr("当前进度") ="当前进度:" & dr("当前进度")

vr("预期进度") ="预期进度:" & dr("预期进度")

For Each cl As String In cls2 \'逐列取值

vr(cl) = dr(cl)