Question

我制作了用于填充选中列表框中数据的程序。但问题是重复的名称显示在核对清单框中。我的代码如下。如何使用此数据绑定属性避免checkelstbox中的重复名称？

Dim str = "select distinct t.vc_doctype ***********"

    conobj.readdata1(str)
    CheckedListBox1.DataSource = conobj.ds.Tables(0)
    CheckedListBox1.DisplayMember = "vc_doctype"
    CheckedListBox1.ValueMember = "vc_doctype"

Answer 1

如果你不想检查你的查询，你可以得到任何结果到数据表，你可以在代码中获得新数据表的不同值。

对于上面的代码，您可以使用类似的内容

Dim view As New DataView(conobj.ds.Tables(0))
Dim DistinctValues As New DataTable
DistinctValues = view.ToTable(True, "vc_doctype")
CheckedListBox1.DataSource = DistinctValues
CheckedListBox1.DisplayMember = "vc_doctype"
CheckedListBox1.ValueMember = "vc_doctype"

避免在vb中的数据源绑定checkedlistbox中重复项

1 个答案: