ListBox绑定数据

来源：互联网发布：guitar rig5 mac 破解编辑：程序博客网时间：2024/05/01 02:46

1.datatableで使う

Dim dt As DataTable = Nothing
        Dim clsAdm060 As GroupwareDataAccess.ADM060SQL = New _
        GroupwareDataAccess.ADM060SQL
        dt = clsAdm060.selectbyCompany(txtYear.Text, _
                                       drpCompany.SelectedValue, _
                                       drpOffice.SelectedValue)

            lstHoliday.DataSource = dt
            lstHoliday.DataValueField = "HOLIDAY_MONTH"
            lstHoliday.DataTextField = "HOLIDAY_NM"
            lstHoliday.DataBind()

2.listItemを使う

        Dim dt As DataTable = Nothing
        Dim lstitem As ListItem
        Dim clsAdm060 As GroupwareDataAccess.ADM060SQL = New _
        GroupwareDataAccess.ADM060SQL
        dt = clsAdm060.selectbyCompany(txtYear.Text, _
                                       drpCompany.SelectedValue, _
                                       drpOffice.SelectedValue)
        If dt.Rows.Count > 0 Then
            For i = 0 To dt.Rows.Count - 1
                lstitem = New ListItem
                lstitem.Value = dt.Rows(i).Item("HOLIDAY_MONTH").ToString & "/" & _
                                dt.Rows(i).Item("HOLIDAY").ToString
                lstitem.Text = dt.Rows(i).Item("HOLIDAY_MONTH").ToString & "月" & _
                                dt.Rows(i).Item("HOLIDAY").ToString & _
                                dt.Rows(i).Item("HOLIDAY_YEAR").ToString & _
                                dt.Rows(i).Item("KBN").ToString & _
                                dt.Rows(i).Item("HOLIDAY_KBN").ToString & _
                                dt.Rows(i).Item("HOLIDAY_NM").ToString

                lstHoliday.Items.Insert(i,lstitem)
            Next
        End If