如何在列表框中刪除重復項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