Hola, tengo un crystal report hecho en forma de boleta. Para Eso Utilizo 4 tablas:
articulos(codigoarticulo,nombrearticulo,precioarti culo,cantidadstock)
clientes(codigocliente,nombrecliente,direccionclie nte,cedulacliente,telefonocliente)
ventas(codigoventa,fechaventa,importeventa,codigop rocliente)
detalleventa(codigoventa,codigocliente,codigoartic ulo,cantidadvendida,precioventa, importe)
tengo un dataset creado y en el cristal report muestro los sgtes datos de las sgtes tablas:
articulo ---> nombrearticulo
clientes ---> nombrecliente,direccioncliente,cedulacliente
ventas ---> fechaventa,importeventa
detalleventa ---> ,cantidadvendida,importe
en el formulario que uso el Crystal Report Viewer tengo el sgte código:
Option Strict On
Imports System.Data.OleDb
Imports Lógica.dominio
Public Class frmboleta
Private objconexion As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0 ;Data Source=.\stockker.accdb")
'Private dst As New dstboleta
Private dst As New DataSet
Private objventa As Ventas
Private Sub poblarBoleta()
Try
Dim objDA As New OleDbDataAdapter("SELECT articulos.nombrearticulo, clientes.nombrecliente, clientes.direccioncliente, ventas.fechaventa, ventas.importeventa, detalleventa.cantidadvendida FROM (((articulos INNER JOIN detalleventa ON articulos.codigoarticulo = detalleventa.codigoarticulo) INNER JOIN ventas ON detalleventa.codigoventa = ventas.codigoventa) INNER JOIN clientes ON ventas.codigocliente = clientes.codigocliente) where ventas.codigoventa=" & objventa.numero, objconexion)
'Dim objDAVenta As New OleDbDataAdapter("SELECT fechaventa,importeventa,clientes.nombrecliente, clientes.direccioncliente,clientes.cedulacliente FROM ventas INNER JOIN clientes ON ventas.codigocliente = clientes.codigocliente where codigoventa=" & objventa.numero, objconexion)
'Dim objDA As New OleDbDataAdapter("SELECT importeventa from ventas where ventas.codigoventa=" & objventa.numero, objconexion)
'objDA.Fill(dst, "ventas")
' objDAVenta.Fill(dst, "ventas")
'objDALineas.Fill(dst, "detalleventa")
Dim info As New crtboletita
info.SetDataSource(dst)
Me.crvwboleta.ReportSource = info
Catch ex As OleDbException
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Stockker")
End Try
End Sub
Public Sub New(ByVal xobjventa As Ventas)
' Llamada necesaria para el diseñador.
InitializeComponent()
objventa = xobjventa
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
End Sub
Private Sub frmboleta_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.poblarBoleta()
End Sub
End Class
y no funciona, carga el crystal report pero no muestra los datos que hay en él, por favor necesito ayuda con esto. gracias de antemano.
. 
