如何在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”转换为type   “整数”无效。

但是，当我输入Nr = 83（83是我的用户ID）时，它有效。

有人可以帮帮我吗？

Answer 1

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

Listbox.SelectedItem