如何在核对表箱中增加价值[英] How to add value in checklistbox

问题描述

你好,
我正在尝试在 combobox_SelectedIndexChanged 事件的数据库中的复选框中添加值.

为此我使用了这些代码

Dim a, b As 整数Dim h As Stringh = Convert.ToString(comboBox3.Text)commObj = New OleDbCommand("SELECT Test FROM SubTest WHERE MainTest= '" & h & "' ", cnn)myAdapter =  OleDbDataAdapter(commObj)myAdapter.Fill(myDataSet1, "cDetails")For Each ds As DataRow  myDataSet1.Tables("cDetails").RowsCheckedListBox1.Items.Add(ds("SubTest").ToString())下一个


但主要问题是,当我在列表开始时在复选框中得到输出时,我们得到 8 个空白项(空格),后来数据库选定项开始

我的问题是为什么这 8 个空间存在于那里.
我尝试了很多可能性,但无法找到解决方案:-(
尝试帮助解决这些问题.

推荐答案

你需要在你的 vb 代码中这样做..
首先用您选择的查询数据填充您的数据表myDataSet1

CheckedListBox1.DataValueField = "Test";CheckedListBox1.DataTextField = "Test";CheckedListBox1.DataSource = myDataSet1;CheckedListBox1.DataBind();


无需像任何循环一样将项目附加到复选框列表

本文地址:https://www.itbaoku.cn/post/1395012.html