- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于listview的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159150)
-- 发布时间：2020/12/15 17:21:00
-- 关于listview的问题
为啥显示的内容跟代码的顺序不一致呢
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 的字间距可以调整吗
-- 发布时间：2020/12/15 17:34:00
--
这个要看列的顺序，添加列的顺序。
字间距无法调整