vb.net - 如何在 VB.net 中使用 CInt 和 Split 从列表中删除项目

Question

我想从列表和数据库中删除一个项目。这是我使用的代码：

Dim nr As Integer
        Dim s As String
        s = lstPatiënten.ToString
        nr = CInt(s.Split("-"c)(0))
        For Each d In patienten
            If d.nr = nr Then
                If patientenDB.PatientVerwijderen(d) > 0 Then
                    initGetPatienten()
                End If
            End If
        Next

但它不起作用..错误是：

从字符串“System.Windows.Forms.ListBox, It”到类型“Integer”的转换无效。

但是当我输入 Nr = 83 （83 是我的患者的用户 ID）时，它起作用了。

有人能帮帮我吗？

Answer 1

您需要更改s = lstPatiënten.ToString为s = lstPatiënten.SelectedItem.ToString. 试一试，让我知道它是否有效。

Listbox.SelectedItem