Estimados muy buenas tardes, alguien puede ayudarme con el siguiente problema... necesito hacer una consulta sql en mi sistema en Visual Basic, la cual sume todos los montos registrados cuando el campo llamado "tipodocumento" sea factura o boleta, pero cuando el campo sea nota de credito, lo reste.
EL CODIGO ES EL SIGUIENTE
Dim varconexion = New SqlConnection(cadena)
varconexion.Open()
Dim DT As New DataTable
Dim DA As New SqlDataAdapter("SELECT numdocpago AS NUM, tipodocpago AS TIPO, fechadocpago AS FECHA, montodocpago AS MONTO, detalledocpago AS DETALLE, numordcomp AS ORDEN_COMPRA, numctactble AS CTA_CTBLE, rutprov AS RUT, digitoprov AS DIG, nomprov AS PROVEEDOR FROM docpago WHERE numdecpago = '" & tbxNumDecreto.Text & "' AND fechadecpago = '" & dtpFechaDecreto.Text & "' AND nomdepto = '" & cbxDepto.Text & "' ORDER BY numdocpago", varconexion)
DA.Fill(DT)
dgvVisualizaPago.DataSource = DT
varconexion.Close()
'SUMAR COLUMNA
dgvVisualizaPago.Columns(3).DefaultCellStyle.Format = "##,##0"
Dim ddt As DataTable = DirectCast(dgvVisualizaPago.DataSource, DataTable)
Dim sumMONTO As Object = ddt.Compute("SUM(MONTO)", Nothing) 'aqui quiero el codigo, actualmente solo entrega una suma, pero quiero hacer el filtro antes mencionado para restar si el tipodocpago es = "NOTA DE CREDITO"
lblMontoTotal.Text = Nothing
If sumMONTO Is DBNull.Value Then
sumMONTO = "0"
Else
lblMontoTotal.Text = sumMONTO
lblMontoTotal.Text = Convert.ToDecimal(lblMontoTotal.Text).ToString("N0")
End If