[Rabeea Qbaha]

بنائا على ما تطلب من المفضل الانتقال للعمل في datagridview لتوفر خيارات اكبر.

لكن ساساعدك ببعض الامور

الاضافه الى listview

PHP كود :

       Dim lvi As New ListViewItem(text_name.text)
        lvi.SubItems.Add(text_salary.text)
        ListView1.Items.Add(lvi) 


جمع عمود الرواتب

PHP كود :

   Public Function GetSubTotal() As Decimal

       Dim TotalValue As Decimal
        Dim tmp As Decimal

     arrays and collections start at index(0) not (1)
    OP code would skip the first item 
       For n As Integer = 0 To ListView1.Items.Count - 1

 If Decimal.TryParse(ListView1.Items(n).SubItems(1).Text, tmp) Then
            TotalValue += tmp
      End If
      Next

     Return TotalValue
   End Function 


اظهار اعلى مرتب

PHP كود :

Dim max = listView1.Items.Cast(Of ListViewItem)().Max(Function(x) Integer.Parse(x.SubItems(1).Text)) 


الاضافة لقاعدة البيانات

PHP كود :

       For i As Integer = 0 To ListView1.Items.Count - 1
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = Conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "INSERT INTO your_table (e_name, e_salary) VALUES (@e_name, @e_salary)"
            cmd.Parameters.AddWithValue("@e_name", ListView1.Items(i).SubItems(0).Text)
            cmd.Parameters.AddWithValue("@e_salary", ListView1.Items(i).SubItems(1).Text)
            cmd.ExecuteScalar()
            Conn.Close()
        Next