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
0
