El valor no puede ser nulo. dataTable (vb.net y Sql server)

[Monxu88]

Hola, tengo un programita con varias pantallas...Una de ellas muestra los datos el paciente en la cual tengo esto y me funciona bien:

Código PHP:

      Private Sub Pacientes_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        sql = "SELECT * FROM fpac"
        Cnn.Close()
        Cnn.Open()
 
        Try
            da = New SqlDataAdapter(sql, Cnn)
            'Llenamos la tabla con los datos leídos
            da.Fill(dt)
            totalpac = dt.Rows.Count - 1
 
            'Comprobamos que tengamos registros en la tabla
            If dt.Rows.Count < 1 Then
 
            Else
                Cargamos datos de clientes
                Cargadatos()
            End If
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error")
        Finally
            If Cnn.State = ConnectionState.Open Then
                Cnn.Close()
            End If
        End Try
 
    End Sub 
   

Luego tengo otra pantalla donde quiero presentar los datos de unas pruebas médicas de estos pacientes...Tengo esto en el código:

Código PHP:

     Private Sub Refracción_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        sql2 = "SELECT * FROM farchgra"
 
        Try
            darefrac = New SqlDataAdapter(sql2, Cnn)
 
            'Llenamos la tabla con los datos leídos
            darefrac.Fill(dtrefrac)
 
            datos_refraccion()
  
 
            'Comprobamos que tengamos registros en la tabla
            'If dtrefrac.Rows.Count < 1 Then
 
            'Else
            '    'Cargamos datos de clientes
            '    datos_refraccion()
            'End If
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error")
        Finally
            If Cnn.State = ConnectionState.Open Then
                Cnn.Close()
            End If
        End Try
 
    End Sub 
   

Datos_refraccion: Carga los datos del registro X en los texbox...No se donde esta el error... :(

[Monxu88]

Lo termino de solucionar poniendo esto...

Código PHP:

    Private Sub Refracción_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        sql2 = "SELECT * FROM farchgra"
        Cnn.Close()
        Cnn.Open()
 
        Try
            ' darefrac = New SqlDataAdapter(sql2, Cnn)
 
            Dim cmd As New SqlCommand(sql2, Cnn)
            Dim darefrac As New SqlDataAdapter(cmd)
            Dim dtrefrac As New DataTable
            'Llenamos la tabla con los datos leídos
            darefrac.Fill(dtrefrac)
 
 
            tot = dtrefrac.Rows.Count - 1
            'Comprobamos que tengamos registros en la tabla
            If dtrefrac.Rows.Count < 1 Then
 
            Else
                'Cargamos datos de clientes
                 datos_refraccion()
                TxtNum.Text = dtrefrac.Rows(1)("numero")
            End If
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error")
        Finally
            If Cnn.State = ConnectionState.Open Then
                Cnn.Close()
            End If
        End Try
 
    End Sub 
   

Pero me tarda en cargar el formulario mas de 10segundos... cargando solamente un textbox...