現在、ユーザーがリストボックスに追加したすべての値を移動しようとしていますが、テキストではなくリストボックス内の各項目の実際の値を取得したいと考えています。
以下のコードでこれまでのところ取得しましたが、それはテキストのみを取得し、値は取得しません。
For Each item In SelectedStoresLB.Items
Dim tCompany As Integer = CInt(Left(item.ToString, 1))
Dim tStore As String = Right(item.ToString, 3)
Dim tReason As String = ReasonTxt.Text
insertSQL = "INSERT INTO [CommsDownLog] ([DimCompanyID],[PervasiveStoreNumber],[DownReason]) VALUES (" & tCompany & ", '" & tStore & "', '" & tReason & "')"
Dim insertRow = New SqlCommand(insertSQL, objConn)
Try
objConn.Open()
insertRow.ExecuteNonQuery()
objConn.Close()
Catch ex As Exception
Response.Write(ex)
End Try
Next
コレクション内の各アイテムの値を取得するにはどうすればよいですか?