如何在列表框中删除重复项VB.net

Question

我正在尝试删除由查询请求填充的ListBox中的重复项。 我使用此代码来防止在VB 6.0中添加重复项，但是在转换为VB.net时不起作用。 是否有替代方法来防止或删除重复项。

colSchema = dr("Col_Schema").ToString
If Not lstSchema.Items.ToString.Contains(colSchema) Then
     lstSchema.Items.Add(New ListItem(colSchema))
End If

Answer 1

这段代码

lstSchema.Items.ToString

正在将Items转换为字符串。 项目很可能是ListBox.ObjectCollection类型（如果是WinForms）或其他UI框架的类似集合类型。 在此类上调用ToString最终将调用Object.ToString，后者仅返回类的名称。

相反，尝试

lstSchema.Items.Contains(colSchema)

如果由于某些原因不能解决问题，请更新您的问题，以确切地解释您要通过调用ToString解决的问题。

Answer 2

尝试

colSchema = dr("Col_Schema").ToString
dim exists as boolean = false
for i as integer = 0 to lstSchema.items.count - 1
if lstSchema.items.item(i) = colSchema then
exists = true
end if
next
if exists = false then
lstSchema.Items.Add(New ListItem(colSchema))
end if