VB LISTVIEW 序号问题

panyong 2010-10-14 02:07:10
'为ListView1设置标题
.ColumnHeaders.Add , , "序号", 800

For i = 0 To rs.Fields.Count - 1
.ColumnHeaders.Add , , rs.Fields(i).Name
Next i

'为ListView1设置各行数据
'.ListItems.Clear
i = 0

While Not rs.EOF

'.ListItems.Add , , rs.RecordCount
For m = 1 To rs.RecordCount
Set Fliv = HNTZLJCQK.ListView1.ListItems.Add()
Fliv.Text = m

'以上怎么修改啊
i = i + 1

For j = 0 To rs.Fields.Count - 1
.ListItems(i).SubItems(j + 1) = rs.Fields(j).Value & ""
Next j


rs.MoveNext
Wend
End With


以上是用TRANSFORM查询的交叉表用LISTVIEW显示出来
问题在:从1排倒读出的最后一条记录 1 to rs.recordcount
...全文
46 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jhone99 2010-10-14
Set Fliv = HNTZLJCQK.ListView1.ListItems.Add( ,,i+1)
回复
jhone99 2010-10-14
While Not rs.EOF

'.ListItems.Add , , rs.RecordCount
Set Fliv = HNTZLJCQK.ListView1.ListItems.Add ,,i

'以上怎么修改啊
i = i + 1

For j = 0 To rs.Fields.Count - 1
.ListItems(i).SubItems(j + 1) = rs.Fields(j).Value & ""
Next j


rs.MoveNext
Wend
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2010-10-14 02:07
社区公告
暂无公告