如何在列表视图中插入自动增量列？ [英] how to insert auto increment column in list view?

问题描述

我使用以下子来填充我的列表。我想在运行时插入另一列来自动编号列表视图中的记录。因此编号应从1和2,3,4,5开始，依此类推。换句话说，我想在运行时插入一个自动增量列，这个列必须放在最左边的位置。





< pre lang =vb> 公共 Sub populate_lvw（）
lvw.Items.Clear（ ）
con.Close（）

con.Open（）
cmd = 新 SqlCommand（ SELECT * FROM学生的加入（选择student_fullname，student_dob来自Students GROUP BY student_fullname，student_dob HAVING count（*）> 1）a on s.student_fullname = a.student_fullname和s.student_dob = a.student_dob order by s.student_fullname，con）
使用 dr 作为 SqlDataReader = cmd.ExecuteReader

如果 dr.HasRows 然后
while dr.Read
Dim li As 新 ListViewItem（）
li.Text = Convert.ToString（dr.Item（ student_slno））
li.SubItems.Add（Convert.ToString（dr.Item（ student_fullname）））
li.SubItems.Add（ CType （博士。 Item（ student_dob），DateTime）.ToShortDateString）
' li.SubItems.Add（Convert.ToString（dr.Item（student_dob）））
li.SubItems .Add（Convert.ToString（dr.Item（ student_br anch）））
li.SubItems.Add（Convert.ToString（dr.Item（ student_scholarship）））
li.SubItems.Add（Convert.ToString（dr.Item（ student_accountno）））

' li.SubItems。添加（dr.Item（student_dob））。ToString（dd / MM / yyyy）
lvw.Items.Add（li）
结束

其他：MsgBox（ 找不到违约者，MsgBoxStyle.OkOnly）

结束 如果

结束 我们ing
cmd.Dispose（）
con.Close（）


结束 Sub

解决方案

   myListData.Read ' 使用ExecuteReader  
 
  Dim  i 作为 整数 
 
 对于 i =  0  至 lvList.Items.Count  -   1  
 lvList.Items（i）.Text =（i +  1 ）。ToString（）
 下一步 i 
 
 lvList.Items.Add（Trim（ CStr （ CInt （i）+  1 ）。 ToStri ng））'  col no。 1  
 ' 从数据库添加子项（mysql） 
 '  ........  
 结束 虽然 

希望它能为您提供帮助

I am using the following sub to populate my list. i want to insert another column at run time to automatically number the records in the list view.therefore the numbering should start from 1 and 2,3,4,5 and so on. in other words i want to insert an auto increment column at run time and this column must be placed in the leftmost position.

Public Sub populate_lvw()
        lvw.Items.Clear()
        con.Close()

        con.Open()
        cmd = New SqlCommand("SELECT * FROM Students s  join (select  student_fullname, student_dob   from Students GROUP BY student_fullname, student_dob HAVING count(*) > 1) a on s.student_fullname = a.student_fullname and s.student_dob=a.student_dob order by s.student_fullname", con)
        Using dr As SqlDataReader = cmd.ExecuteReader

            If dr.HasRows Then
                While dr.Read
                    Dim li As New ListViewItem()
                    li.Text = Convert.ToString(dr.Item("student_slno"))
                    li.SubItems.Add(Convert.ToString(dr.Item("student_fullname")))
                    li.SubItems.Add(CType(dr.Item("student_dob"), DateTime).ToShortDateString)
                    'li.SubItems.Add(Convert.ToString(dr.Item("student_dob")))
                    li.SubItems.Add(Convert.ToString(dr.Item("student_branch")))
                    li.SubItems.Add(Convert.ToString(dr.Item("student_scholarship")))
                    li.SubItems.Add(Convert.ToString(dr.Item("student_accountno")))

                    '  li.SubItems.Add(dr.Item("student_dob")).ToString("dd/MM/yyyy")
                    lvw.Items.Add(li)
                End While

            Else : MsgBox(" No defaulters found", MsgBoxStyle.OkOnly)

            End If

        End Using
        cmd.Dispose()
        con.Close()


    End Sub

解决方案

While myListData.Read       ' using ExecuteReader

Dim i As Integer

       For i = 0 To lvList.Items.Count - 1
          lvList.Items(i).Text = (i + 1).ToString()
       Next i

lvList.Items.Add(Trim(CStr(CInt(i) + 1).ToString)) 'col no. 1
   ' adding sub items from database (mysql)
   ' ........
End While

Hope it will help you

这篇关于如何在列表视图中插入自动增量列？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！