Visual Basic.NET - Referencia a objeto no establecida como instancia de un objeto.

   
Vista:

Referencia a objeto no establecida como instancia de un objeto.

Publicado por Miguel (56 intervenciones) el 09/11/2013 17:04:30
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
50
Imports System.Data.OleDb  'Para establecer la conexión con Access
 
Public Class frmCp
    Inherits System.Windows.Forms.Form
    Private cn As OleDbConnection   'Conexión
    Private da As OleDbDataAdapter  'Maneja los registros de Cp
    Private ds As DataSet           'Contine los datos de la tabla Cp
    Private sw As Integer
    Private fila As Integer
 
    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        If sw = 1 Then
            If MessageBox.Show("¿Desea guardar el Cp?", "Añadir Cp", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
                insertaCp()
            End If
        End If
        If sw = 2 Then
            If MessageBox.Show("¿Desea Modificar el Cp?", "Modificar Cp", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
                editarCp()
            End If
        End If
        actualizarCp()
        activaBotones(True)
    End Sub
 
    Sub insertaCp()
        Try
            Dim dr As DataRow
            dr = ds.Tables("Cp").NewRow    ' linea donde salta el error
            dr(0) = Me.txtId.Text
            dr(1) = Me.txtCp.Text
            dr(2) = Me.txtPobla.Text
            ds.Tables("Cp").Rows.Add(dr)
            da.Update(ds, "cp")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Sub editarCp()
        Try
            Dim dr As DataRow
            dr = ds.Tables("Cp").Rows(fila)  ' linea donde salta el error
            dr(1) = Me.txtCp.Text
            dr(2) = Me.txtPobla.Text
            da.Update(ds, "Cp")
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Errors.Count)
        End Try
    End Sub

Gracias de antemano.

Un saludo
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