Hola a todos, espero porfavor que me puedan ayudar. Gracias.
Este error se genera cuando quiero buscar compras, pero cuando aun no he generado ninguna compra:
Try
cn.Open()
Dim FecDesde, FecHasta As Date
FecDesde = Me.DtpFechaDesde.Text
FecHasta = Me.DtpFechaHasta.Text
Dim cmdListarCompra As New SqlCommand("IF EXISTS(SELECT forma_pago FROM compra_encabezado WHERE forma_pago='EFECTIVO' AND estado='H' AND saldo='0.00')" & _
"SELECT razon," & _
" tipo_comprobante," & _
" idcom=Right('0000000000'+CAST(CAST(Right(compra_en cabezado.idcom,10)AS INT)AS VARCHAR),10)," & _
" f_emision," & _
" total," & _
" acuenta," & _
" saldo" & _
" FROM compra_encabezado" & _
" INNER JOIN Proveedor" & _
" ON compra_encabezado.idprov= proveedor.idprov" & _
" WHERE compra_encabezado.f_emision" & _
" BETWEEN '" + FecDesde + "' AND '" + FecHasta + "'" & _
" AND compra_encabezado.estado='H'" & _
"ORDER BY f_emision ASC", cn)
da = New SqlDataAdapter(cmdListarCompra)
dts = New DataSet
da.Fill(dts)
Me.DgvPagarDeuda.DataSource = dts.Tables(0) 'EL ERROR SEÑALA EN ESTA LINEA DE CODIGO Call Saldos()
Call Contador_de_Registro()
Catch ex As Exception
'mostramos el error
MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
Finally
'cerramos la conexion solo si esta abierta
If (cn.State And ConnectionState.Open) <> 0 Then
cn.Close()
End If
End Try