为啥显示的内容跟代码的顺序不一致呢
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)
Next
另外一个问题就是listview 的字间距可以调整吗
加好友 
发短信
Post By：2020/12/15 17:21:00 [显示全部帖子]
