-2

我实际上正在使用考勤系统，使用列表框我想监视“员工”是否超时。txtEmpNum.text 作为我的文本框，rdTin 作为我的时间单选按钮，rdTout 作为我的超时单选按钮，lblName、lblDept、lblinout 只是标签。我希望如果用户已经以他/她的名字计时，则不会出现在我的列表框中，而是弹出 msgbox。但是在这段代码中，虽然弹出了 msgbox，但员工的名字仍然出现在我的列表框中。

If txtEmpNum.Text = 8888 Then
        If rdTin.Checked = True Then
            For i As Integer = 0 To listEmp.Items.Count - 1
                If (listEmp.Items(i).ToString.Contains("Bane Lim")) Then
                    MsgBox("String found at " & (i + 1).ToString)
                    Exit For
                End If
            Next
            lblName.Text = "Bane"
            lblDept.Text = "Admin"
            lblinout.Text = "In"
            listEmp.Items.Add("Bane Lim")
            txtEmpNum.Clear()

        ElseIf rdTout.Checked = True Then
            lblName.Text = "Bane"
            lblDept.Text = "Admin"
            lblinout.Text = "Out"
            listEmp.Items.Remove("Bane Lim")
            txtEmpNum.Clear()
        End If
4

1 回答 1

0

是名字第二次出现的问题吗？您需要退出 Sub 或 Exit Function 而不是 Exit For。Exit For 将其从循环中踢出，但继续执行剩余的代码（再次添加）。

否则在那里添加一个标志，如：

    If txtEmpNum.Text = 8888 Then
        If rdTin.Checked = True Then
            Dim bolFound As Boolean = False
            For i As Integer = 0 To listEmp.Items.Count - 1
                If (listEmp.Items(i).ToString.Contains("Bane Lim")) Then
                    MsgBox("String found at " & (i + 1).ToString)
                    bolFound = True
                    Exit For
                End If
            Next
            If Not bolFound Then
                lblName.Text = "Bane"
                lblDept.Text = "Admin"
                lblinout.Text = "In"
                listEmp.Items.Add("Bane Lim")
                txtEmpNum.Clear()
            End If


        ElseIf rdTout.Checked = True Then
            lblName.Text = "Bane"
            lblDept.Text = "Admin"
            lblinout.Text = "Out"
            listEmp.Items.Remove("Bane Lim")
            txtEmpNum.Clear()
        End If
于 2014-08-28T15:06:45.567 回答