Private Sub Admin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
Me.RadListView1.Columns.Add("itemnmbr", "Item Number")
Dim oDT As DataTable
oDT = dyndata.SPs.FP_IV00101_SEL("NGB01").getTable
Me.RadListView1.DataSource = oDT
Me.RadListView1.ValueMember = "ITEMNMBR"
Me.RadListView1.DisplayMember = "ITEMNMBR"
Catch ex As Exception
ErrorHandler.globalErrorHandler(ex, True)
End Try
End Sub
Iterate through the selected items
For Each oItem As ListViewDataItem In Me.lstEmailSites.SelectedItems
intSite = oItem.Value
Next