Visual Basic - Me pueden ayudar a encontrar el error

Life is soft - evento anual de software empresarial
   
Vista:

Me pueden ayudar a encontrar el error

Publicado por felipe (1 intervención) el 20/03/2014 08:28:47
Hola me podrian decir cual es el error que tengo en estos codigos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Class Detalles_Operaciones
 
    'Para seleccionar la Operacion
    Public Operacion As String
 
    'Variables para obtener los datos de la base de datos.
    'Validos para todas las operaciones
    Public Numero_Tarjeta As Integer
    Public Numero_Cuenta As String
    Public Titular As String
    Public SaldoActual As Decimal
 
    'solo validos en caso de retiro
    Public SaldoAnterior As Decimal
    Public MontoRetirado As Decimal
 
    'Obtener Datos de la base de datos
    Public Sub ObtenerDatosCuenta(ByVal NT As Integer)
 
    End Sub
 
    Private Sub Detalles_Operaciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If Operacion = "Consulta" Then
            ObtenerDatosCuenta(Numero_Tarjeta)
            RichTextBox1.AppendText(String.Format("Numero de Cuenta:{1}{1}", Numero_Cuenta, vbCrLf))
            RichTextBox1.AppendText(String.Format("Titular:{1}{1}", Titular, vbCrLf))
            RichTextBox1.AppendText("")
            RichTextBox1.AppendText(String.Format("Saldo Actual:{1}{1}", SaldoActual, vbCrLf))
        Else
            RichTextBox1.AppendText(String.Format("Numero de Cuenta:{1}{1}", Numero_Cuenta, vbCrLf))
            RichTextBox1.AppendText(String.Format("Titular:{1}{1}", Titular, vbCrLf))
            RichTextBox1.AppendText(String.Format("Saldo Anterior:{1}{1}", SaldoAnterior, vbCrLf))
            RichTextBox1.AppendText(String.Format("Monto Retirado:{1}{1}", MontoRetirado, vbCrLf))
            RichTextBox1.AppendText(String.Format("Saldo Actual:{1}{1}", SaldoActual, vbCrLf))
 
        End If
 
    End Sub
 
   Private Sub CuentasBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.CuentasBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.BANKDataSet)
 
    End Sub
 
 
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Iconos en los menús
- Mail bomber
- Libreria
Imágen de perfil de xve

Me pueden ayudar a encontrar el error

Publicado por xve (178 intervenciones) el 20/03/2014 15:15:07
Hola Felipe, nos puedes dar alguna pista de que es lo que no te funciona? o que error te da?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar