问题描述
我正在从 MsAccess 数据库表中填充 CheckedListBox。该表由两个字段组成,Terms 和 RegX。我想显示条款,但当我提交时,我想从 RegX 字段中获取值。
Public Function GetMyTable() As DataTable
' Create new DataTable instance.
Dim table As New DataTable
Dim strsql As String = "SELECT * FROM Keywords ORDER BY Terms ASC"
Dim cmd As New OleDbCommand(strsql,con)
Using dr As OleDbDataReader = cmd.ExecuteReader
table.Load(dr)
End Using
Return table
End Function
Private Sub SearchInDoc_Load(sender As Object,e As EventArgs) Handles MyBase.Load
Dim dt1 As DataTable = GetMyTable()
If dt1.Rows.Count > 0 Then
For i As Integer = 0 To dt1.Rows.Count - 1
CheckedListBox1.Items.Add(CStr(dt1.Rows(i).Item("Terms")),False)
Next
End If
CheckedListBox1.CheckOnClick = True
End Sub
当我点击我的提交按钮时,我不知道如何返回 RegX 的值
解决方法
如果您想将有关“Terms”和“RegX”的信息保存在一起,那么您应该使用 CheckedListBox 的 DataSource 属性将其设置为检索到的数据表,然后指定应在列表中显示的列。
Private Sub SearchInDoc_Load(sender As Object,e As EventArgs) Handles MyBase.Load
Dim dt1 As DataTable = GetMyTable()
CheckedListBox1.DataSource = dt1
CheckedListBox1.DisplayMember = "Terms"
CheckedListBox1.CheckOnClick = True
End Sub
现在在您的提交按钮中,您可以添加这样的代码来检索 RegX 字段
Sub Submit_Click(sender As Object,e As EventArgs) Handles Submit.Click
For Each row As DataRowView In CheckedListBox1.CheckedItems
Console.WriteLine(row("RegX"))
Next
End Sub
CheckedListBox 中的每个元素都是从表中提取的 DataRowView,您可以提取有关 RegX 字段的信息,只需使用列名索引该 DataRowView。
在上面的示例中,只有选中的项目受循环枚举的约束。如果要遍历 CheckedListBox 中的所有项目,请使用 CheckedListBox1.Items