none
Como pasar este codigo de C# a Vb (proyecto crystalreport)

    Pregunta

  • hola quisiera que me apoyen cin esto:

    acabo de ver un videotutorial de como generar reportes con crystal pero el detalle es que esta diseñado en C# quisiera tener el mismo codigo fuente pero para VB, lo estaba inntentando pero me sale un error en una parte, en todo caso si puedieran traducirlo al idioma visual XDXD para poder trabajarlo, dejo el codigo para que me apoyen, gracias:

    ORIGINAL:

    MI CODIGO:

    *****FORMULARIO2*****

    Public Class Form2
        Dim IDCliente As String
        Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim objReporte As New OrdenesdeClientes()
            objReporte.SetParameterValue("@IDCLIENTE", IDCliente)
            CrystalReportViewer1.ReportSource = objReporte
        End Sub
    End Class

    *****FORMULARIO 1*****

           

    Imports AppCrystalReport.Form2
    Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.CustomersTableAdapter.Fill(Me.NORTHWINDDataSet.Customers)
     End Sub

    Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
            Dim objForm As Form2 = New Form2()
            Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
    objForm.IDCliente = idcli 'AQUÍ MARCA ERROR
            objForm.ShowDialog()
        End Sub
    End Class

    Gracias...


    Juan Fernando

    domingo, 11 de septiembre de 2016 6:57

Respuestas

  • Hola:

    En el Form2
    Cambia Dim IDCliente As String  por  Public Property IDCliente As String

    En el Form1
    Cambia
            Dim objForm As Form2 = New Form2()
            Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
            objForm.IDCliente = idcli
            objForm.ShowDialog()
    Por
            Using objForm As New Form2
                Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
                objForm.IDCliente = idcli
                objForm.ShowDialog()
            End Using
           
    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Juan_fernando domingo, 11 de septiembre de 2016 8:14
    domingo, 11 de septiembre de 2016 7:17

Todas las respuestas

  • Hola:

    Puedes utilizar el conversor de C# a Vb.Net de telerik.

    http://converter.telerik.com/

    Es difícil traducirlo desde una imagen, cuando tengas casos así, mejor pon el código utilizando el cuadro de edición de los mensajes, pulsando la pestaña HTML.

    Un saludo.

    Gemma

    domingo, 11 de septiembre de 2016 7:12
  • Hola:

    En el Form2
    Cambia Dim IDCliente As String  por  Public Property IDCliente As String

    En el Form1
    Cambia
            Dim objForm As Form2 = New Form2()
            Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
            objForm.IDCliente = idcli
            objForm.ShowDialog()
    Por
            Using objForm As New Form2
                Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
                objForm.IDCliente = idcli
                objForm.ShowDialog()
            End Using
           
    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Juan_fernando domingo, 11 de septiembre de 2016 8:14
    domingo, 11 de septiembre de 2016 7:17
  • Hola:

    En el Form2
    Cambia Dim IDCliente As String  por  Public Property IDCliente As String

    En el Form1
    Cambia
            Dim objForm As Form2 = New Form2()
            Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
            objForm.IDCliente = idcli
            objForm.ShowDialog()
    Por
            Using objForm As New Form2
                Dim idcli As String = DataGridView1.CurrentRow.Cells(0).Value.ToString()
                objForm.IDCliente = idcli
                objForm.ShowDialog()
            End Using
           
    Un saludo desde Bilbo
    Carlos

    No cabe duda, el que sabe SABE, muchas gracias J.Carlos Herrero, saludos.


    Juan Fernando

    domingo, 11 de septiembre de 2016 8:17