Problem in list view function

Question

bry090911 0 Newbie Poster

12 Years Ago

by the way. this is now my problem.

THIS IS FOR TIME IN...

Private Sub cmdIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIN.Click
        lblempno.Text = txtempno.Text
        lblIN.Text = lbltime.Text & lbldate.Text
        MsgBox("Log in successful!", vbInformation)
        lv = ListView1.Items.Add(lbltime.Text)
        txtempno.Text = ""
        txtempno.Focus()

    End Sub

THIS IS FOR TIME OUT...

Private Sub cmdOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOut.Click
        If lblIN.Text = "" Then
            MsgBox("Failed to save Log in first.")
            txtempno.Text = ""
            txtempno.Focus()
            Exit Sub
        End If
        If txtempno.Text = "" Then
            MsgBox("Please put your employee number", vbExclamation)
            txtempno.Focus()
            Exit Sub
        End If

        Try
            lblOUT.Text = lbltime.Text & lbldate.Text
            con2.Open()
            Dim cmd As New SqlCeCommand("insert into tbl_timerec(EmpNo, TimeIN, TimeOUT) VALUES('" & lblempno.Text & "','" & lblIN.Text & "','" & lblOUT.Text & "')", con2)
            dr = cmd.ExecuteReader
            dr.Read()
            MsgBox("Log out sucessful!", vbInformation)

            lv.SubItems.Add(lbltime.Text)

            con2.Close()

            lblIN.Text = ""
            lblOUT.Text = ""
            lblempno.Text = ""
            txtempno.Text = ""
            txtempno.Focus()
        Catch ex As Exception
            MsgBox("[ERROR]" & ex.Message)
            txtempno.Text = ""
            txtempno.Focus()
        End Try
    End Sub

E.G:
if the user1 time in and the user2 will time too, [hours later] if the user1 will use the time out it will go to the last row [last row is user2].

so i want is if the user1 will use the time out using his Employee number it will go to the row the when he time in.

vb.net

Edited 12 Years Ago by bry090911 because: n/a

2 Contributors
15 Replies
122 Views
1 Day Discussion Span
Latest Post 12 Years Ago Latest Post by Reverend Jim

Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators.

12 Years Ago

If I understand your problem, you have a listview ini details view. Each row contains a login/logout time and an employee number. A row gets added when a user logs in and, when the user logs out, you want to update that row with the logout time. Is that correct?

If that is the case then you just need to scan the listview items and look for the first entry for that employee number that has no value entered for logout. You have to check for a blank entry ini case that employee has logged in and out already.

Lets assume you have a listview with three columns. Column 1 contains the employee ID, column 2 the login time and column 3 the logout time. Let's say that employee "4096" has just logged out and you want to update the correct record. You do

For Each item As ListViewItem In ListView1.Items
    If item.Text = "4096" And item.SubItems(2).Text = "" Then
        item.SubItems(2).Text = Now().ToString("HH:mm:ss")
    End If
Next

Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators.

12 Years Ago

I can't tell you what that means without seeing the code and the specific line that generated the error.

Edited 12 Years Ago by Reverend Jim because: n/a

Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators.

12 Years Ago

Read my previous post again

I can't tell you what that means without seeing the code and the specific line that generated the error.

Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators.

12 Years Ago

Why are you comparing

item.SubItems(2).Text = "OUT"

If the user has not logged out then this field should be empty. Try

item.SubItems(2).Text = ""

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

bry090911 0 Newbie Poster · Answer 1 · 2012-02-24T09:39:42+00:00

If I understand your problem, you have a listview ini details view. Each row contains a login/logout time and an employee number. A row gets added when a user logs in and, when the user logs out, you want to update that row with the logout time. Is that correct?
If that is the case then you just need to scan the listview items and look for the first entry for that employee number that has no value entered for logout. You have to check for a blank entry ini case that employee has logged in and out already.
Lets assume you have a listview with three columns. Column 1 contains the employee ID, column 2 the login time and column 3 the logout time. Let's say that employee "4096" has just logged out and you want to update the correct record. You do
For Each item As ListViewItem In ListView1.Items
    If item.Text = "4096" And item.SubItems(2).Text = "" Then
        item.SubItems(2).Text = Now().ToString("HH:mm:ss")
    End If
Next

invalid argument = value of '2' is not valid for 'index' parameter name index

bry090911 0 Newbie Poster · Answer 2 · 2012-02-24T09:49:02+00:00

I can't tell you what that means without seeing the code and the specific line that generated the error.

i have index of 0,1,2

0 = emp number
1 = time in
2 = time out

so whats the problem?

bry090911 0 Newbie Poster · Answer 3 · 2012-02-24T10:04:48+00:00

For Each item As ListViewItem In ListView1.Items
                If item.Text = txtempno.Text And item.SubItems(2).Text = "OUT" Then
                    item.SubItems.Add(2).Text = lbltime.Text
                End If
            Next

that's my code now. the problem now is it didn't add.

bry090911 0 Newbie Poster · Answer 4 · 2012-02-24T10:16:22+00:00

nothings work. it didn't add in the list view. i already double checked it.

my msgbox says it is successful but it didn't add in the list view.

bry090911 0 Newbie Poster · Answer 5 · 2012-02-24T10:24:09+00:00

THIS IS FOR TIME OUT...

Private Sub cmdOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOut.Click
        If lblIN.Text = "" Then
            MsgBox("Failed to save Log in first.")
            txtempno.Text = ""
            txtempno.Focus()
            Exit Sub
        End If
        If txtempno.Text = "" Then
            MsgBox("Please put your employee number", vbExclamation)
            txtempno.Focus()
            Exit Sub
        End If

        Try
            lblOUT.Text = lbltime.Text & lbldate.Text
            con2.Open()
            Dim cmd As New SqlCeCommand("insert into tbl_timerec(Name, TimeIN, TimeOUT) VALUES('" & lblempno.Text & "','" & lblIN.Text & "','" & lblOUT.Text & "')", con2)
            dr = cmd.ExecuteReader
            dr.Read()
            MsgBox("Log out sucessful!", vbInformation)

            For Each item As ListViewItem In ListView1.Items
                If item.Text = lblempno.Text And item.SubItems(2).Text = "" Then
                    item.SubItems.Add(2).Text = lbltime.Text
                End If
            Next
            con2.Close()

            lblIN.Text = ""
            lblOUT.Text = ""
            lblempno.Text = ""
            txtempno.Text = ""
            txtempno.Focus()
        Catch ex As Exception
            MsgBox("[ERROR]" & ex.Message)
            txtempno.Text = ""
            txtempno.Focus()
        End Try
    End Sub

THIS IS FOR TIME IN...

Private Sub cmdIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIN.Click
        Dim dtchkempno As DataTable
        dtchkempno = empchk(txtempno.Text)

        If txtempno.Text = "" Then
            MsgBox("Please put your employee number to log in.")
            Exit Sub
        End If

        If dtchkempno.Rows.Count = 0 Then
            MsgBox("The Employee number is not on the database", vbExclamation)
            txtempno.Text = ""
            txtempno.Focus()
            Exit Sub
        End If

        lblempno.Text = txtempno.Text
        lblIN.Text = lbltime.Text & lbldate.Text
        MsgBox("Log in successful!", vbInformation)
        lv = ListView1.Items.Add(lbltime.Text)
        lv.SubItems.Add(lblOUT.Text)
        lv.SubItems.Add(lblempno.Text)

        txtempno.Text = ""

        txtempno.Focus()

    End Sub

this is now my code.

bry090911 0 Newbie Poster · Answer 6 · 2012-02-24T15:04:26+00:00

bry090911 0 Newbie Poster

12 Years Ago

Please answer. :sad:

score 0 · Answer 7 · 2012-02-24T19:53:38+00:00

For TIME_IN, replace line 21 with

lv.SubItems.Add(lblOUT.Text)

For TIME_OUT replace lines 22-26 with

For Each item As ListViewItem In ListView1.Items
    If item.SubItems(2) = lblempno.Text And item.SubItems(1).Text = "" Then
        item.SubItems.Add(1).Text = lbltime.Text
    End If
Next

The problem was that in my example, the columns were empid,in,out and in yours they are in,out,empid.

I took a while to answer but a guy's gotta sleep sometime ;)

bry090911 0 Newbie Poster · Answer 8 · 2012-02-24T20:07:25+00:00

item.SubItems(2) = lblempno.Text

why der is a blue line in that code? it says..

Overload resolution failed because no accessible '=' can be called with these arguments:

i already tried

items.subitems(2).tostring/text

not working at all..

score 0 · Answer 9 · 2012-02-25T02:35:59+00:00

Sorry. That should have been

item.SubItems(2).Text

see what happens when I don't get my sleep?

bry090911 0 Newbie Poster · Answer 10 · 2012-02-25T07:36:29+00:00

bry090911 0 Newbie Poster

12 Years Ago

oh wait how can i edit my past post?

score 0 · Answer 11 · 2012-02-25T08:19:03+00:00

Reverend Jim 4,968 Hi, I'm Jim, one of DaniWeb's moderators.

12 Years Ago

You can only edit a post within 30 minutes of posting it.