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

如何删除列表框VB.net

2 个答案: