vb.net - 从 CheckedListBox VB.NET Winform 中检索选中的项目

Question

我之前问过这个问题，但建议提供更多详细信息。这是问题所在:

1. 我有一个名为 CheckedList_Facility 的 CheckedListBox。此 CheckedList_Facility 中的所有项目均来自 SQL Server 数据源。使用以下代码正确加载所有项目

   Dim queryString As String = "SELECT Facility FROM Database.dbo.Facility "
   Dim connection As New SqlConnection(connectionString)
   Dim command As New SqlCommand(queryString, connection)
   connection.Open()
   Dim dataReader As SqlDataReader = command.ExecuteReader()
   Dim source As New BindingSource
   source.DataSource = dataReader
   CheckedList_Facility.DataSource = source
   CheckedList_Facility.ValueMember = "Facility"
   connection.Close()
   

2. 我想获取已检查项目的列表。例如，

   [X] AAA

   [X] BBB

   [ ] CC

   [ ] DDD

   [X] EEE

那么列表应该是“AAA”、“BBB”、“EEE”

1. 为了测试项目是否被正确检索，我使用了一个按钮调用 bt_GetItem，当按下这个按钮时，一个消息框会显示选中的项目。使用此代码:

   Dim itemChecked As Object
   For Each itemChecked In CheckedList_Facility.CheckedItems
       MsgBox(itemChecked.ToString)
   Next
   

2. 但是，我只收到这个错误信息

   System.Data.Common.DataRecordInternal

从技术上讲，这可能不是错误，但我没有收到“AAA”，而是得到了这个

System.Data.Common.DataRecordInternal

Answer 1

因为您将 checkedlistbox 绑定(bind)到数据读取器，所以内部的 checked 对象实际上是 {System.Data.Common.DataRecordInternal} 而不是字符串或任何其他 native 对象。您必须访问对象中的 item 属性才能获得所需的字符串，如下所示:

 MsgBox(itemChecked.item("Facility").ToString)