表中的新增条已经位于(o)的位置了
listview中的“显示”代码跟帮助中的一样:
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim pg As Integer = e.Form.Controls("Label1").Text
Dim idx1 As Integer = (pg - 1)*10 '获取要显示的第一行
Dim idx2 As Integer = (pg*10)-1 '获取要显示的最末行
idx2 = Math.Min(DataTables("建议栏").dataRows.Count -1,idx2) 'idx2不能超过表的最大行数
lvw.Images.Clear() '清除之前的图片
lvw.Rows.Clear() '清除之前的行
For idx As Integer = idx1 To idx2
Dim dr As DataRow = DataTables("建议栏").DataRows(idx) '根据行位置从数据表中取得对应的DataRow
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '在ListView增加一行
For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值
vr(cl.Name) = dr(cl.Name)
vr.Tag= dr
Next
Next
新增条还是位于最后,所以这段代码是不是有问题
[此贴子已经被作者于2015/4/17 16:11:49编辑过]