将数据库数据用代码绑定到Listview

Code
 '填充未出条的预约信息列表
    Sub tianchongYYXX()
        Me.YYListView.Items.Clear() 'Listview项清除
        Me.YYListView.Columns.Clear()

        Dim n As Integer = 0
        Dim leng As Integer = 0

        '添加TD_all的列
        Me.YYListView.Columns.Add("预约编号")
        Me.YYListView.Columns.Add("门条编号")
        Me.YYListView.Columns.Add("访客e5m号")
        Me.YYListView.Columns.Add("被访人e5m号")
        Me.YYListView.Columns.Add("访客类别")
        Me.YYListView.Columns.Add("访客姓名")
        Me.YYListView.Columns.Add("访客性别")
        Me.YYListView.Columns.Add("身份证号")
        Me.YYListView.Columns.Add("随行车辆")
        Me.YYListView.Columns.Add("随行人数")
        Me.YYListView.Columns.Add("门条类型")
        Me.YYListView.Columns.Add("预约时间")
        Me.YYListView.Columns.Add("到访时间")
        Me.YYListView.Columns.Add("有效期至")

        leng = Me.YYListView.Columns.Count
        For n = 0 To leng - 1
            Me.YYListView.Columns.Item(n).Width = 70
        Next

        '设置ListView的一系列属性
        YYListView.FullRowSelect = True '选中的是一行，并是不一个数据项
        YYListView.GridLines = True   '显示行与行之间的分隔线 
        YYListView.Scrollable = True  '需要时候显示滚动条

        ''获得DataSet
        Dim sqlstr As String = "select M_ID,M_Stype_Name,Dating_Infro.*,lgIDimage from Dating_Infro,Mentiao_Infro,Mentiao_Stype,TB_USER_INFOR where Dating_Infro.D_ID=Mentiao_Infro.D_ID and Mentiao_Stype.M_Stype_ID=MenTiao_Infro.M_Stype_ID and UID=Dating_Infro.FK_e5m  "
        Dim dbobject As DataBase = New DataBase(0)  '自定义的数据库操作类
        allYYXX = dbobject.returnDS(sqlstr) '自定义的数据库操作类返回一个DataSet

        ''添加的行
        leng = allYYXX.Tables(0).Rows.Count
        For n = 0 To leng - 1
            Dim lvite As ListViewItem = New ListViewItem
            lvite.Text = allYYXX.Tables(0).Rows(n).Item("D_ID").ToString

            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("M_ID").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_e5m").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("BF_e5m").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Stype").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Name").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_Sex").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("FK_IDNumber").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("EntourageCar").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("EntourageCount").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("M_Stype_Name").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("YY_DateTime").ToString)
            lvite.SubItems.Add(allYYXX.Tables(0).Rows(n).Item("Dating_DateTime").ToString)
            Me.YYListView.Items.Add(lvite)
        Next
        '选中第一行
        If Me.YYListView.Items.Count <> 0 Then
            Me.YYListView.Items(0).Selected = True
        End If

    End Sub

转载于:https://www.cnblogs.com/chybin500/archive/2009/04/08/1431599.html