Visual Basic

Dim gCustomerItemsAll As List(Of MarginItemCustomerProfit) = sTpAll.Where(Function(w) w.FCustomerNo.Equals(cI.FCustomerNumber)).OrderBy(Function(ob) ob.FItemNo).GroupBy(Function(item) item.FItemNo).Select(Function(cl) New MarginItemCustomerProfit() With {
   .FCustomerNumber = cl.First().FCustomerNo,
   .FItemNumber = cl.First().FItemNo,
   .FShipQty = cl.Sum(Function(qty) qty.FShipQty),
   .FCost = cl.Last().FCost,
   .FPrice = cl.Last().FPrice,
   .FAmount = cl.Sum(Function(amount) amount.FAmount)
}).ToList()

.Last(Function(price) price > 0)

Imports System.Data.SqlClient
Public Class Equipos_de_Computacion
    Dim sql As String = ""


    Private Sub BtnInsertar_Click(sender As Object, e As EventArgs) Handles btnInsertar.Click
        If (Me.txtCodigoInterno.Text = "") Then
            MsgBox("El campo idententificacion no puede estar vacio", MsgBoxStyle.Critical, "Atencion")
            Me.txtCodigoInterno.Select()
        Else
            Dim CodigoInterno As Integer
            Dim NumerodeSerie As Integer
            Dim NumerodeFactura As Integer
            Dim FechadeCompra As Date
            Dim Precio As Decimal
            Dim Acargode As String = ""
            Dim Estado As String = ""
            Dim Depreciacion As Decimal
            Dim Caracteristicas As String = ""


            CodigoInterno = CInt(Me.txtCodigoInterno.Text)
            NumerodeSerie = CInt(Me.txtNumerodeSerie.Text)
            NumerodeFactura = CInt(Me.txtNumerodeFactura.Text)
            FechadeCompra = CDate(Me.DateTimePicker1.Value)
            Precio = Me.nudPrecio.Value
            Acargode = Me.txtACargode.Text
            Estado = Me.txtEstado.Text
            Depreciacion = Me.NudDepreciacion.Value
            Caracteristicas = Me.txtCaracteristicas.Text

            cmd.CommandType = CommandType.Text
            cmd.Connection = conn

            sql = "INSERT INTO [Equipos de Computacion] (CodigoInterno, NumerodeSerie, NumerodeFactura, FechadeCompra, Precio, Acargode, Estado, Caracteristicas, Depreciacion)"
            sql += "Values('" & CodigoInterno & "','" & NumerodeSerie & "','" & NumerodeFactura & "','" & FechadeCompra & "', '" & Precio & "' ,'" & Acargode & "','" & Estado & "','" & Caracteristicas & "','" & Depreciacion & "')"
            MsgBox(sql)
            cmd.CommandText = sql
            Try
                cmd.ExecuteNonQuery()
                MsgBox("Registro insertado correctamente")

            Catch ex As Exception

                If ex.ToString.Contains("duplicate") Then
                    MsgBox("El registro ya existe en la base de datos")
                Else
                    MsgBox(ex.ToString)
                End If
            End Try
        End If
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvEquiposdeComputacion.CellContentClick

    End Sub

    Private Sub BtnMostrar_Click(sender As Object, e As EventArgs) Handles btnMostrar.Click
        Dim DS As New DataSet
        Dim DA As New SqlDataAdapter("Select * from [Equipos de Computacion]", conn)
        DA.Fill(DS)

        dgvEquiposdeComputacion.DataSource = DS.Tables(0)
    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

    End Sub

    Private Sub BtnTotalDepreciacion_Click(sender As Object, e As EventArgs) Handles btnTotalDepreciacion.Click


        NudDepreciacion.Value = CDec(FormatNumber(nudPrecio.Value * 0.25, 2))


    End Sub

    Private Sub TxtPrecio_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub txtPrecio_KeyPress(sender As Object, e As KeyPressEventArgs) Handles nudPrecio.KeyPress
        nudPrecio.DecimalPlaces = 2
    End Sub

    Private Sub txtPrecio_LostFocus(sender As Object, e As EventArgs)
        Dim VarMonedaDolares As Double
        VarMonedaDolares = nudPrecio.Value

        nudPrecio.Value = CDec(FormatCurrency(VarMonedaDolares, 2))
    End Sub

End Class