Hola Damián, gracias por contestar. Este es el codigo:
Dim fila As Integer = Form1.busca_fila()
'GUARDAMOS EL ID DE LA ENTRADA A EDITAR
Dim id As Integer = Form1.Datos.Tables("Entradas").Rows(fila).Item("id_entrada")
Dim Fila_Nueva As DataRow
Dim indice As Integer
'REVISAMOS SI SE HA BORRADO ALGUNA IMAGEN
If fotos_borradas.Length > 0 Then
'PARA CADA IMAGEN BORRADA ACTUALIZAMOS LA BASE DE DATOS
For i As Integer = 0 To fotos_borradas.Length - 1
'BUSCAMOS LA FILA A BORRAR
For j As Integer = 0 To Form1.Datos.Tables("Fotos").Rows.Count - 1
If Not Form1.Datos.Tables("Fotos").Rows(j).RowState = DataRowState.Deleted Then
If Form1.Datos.Tables("Fotos").Rows(j).Item("ruta") = fotos_borradas(i) And Form1.Datos.Tables("Fotos").Rows(j).Item("id_entrada") = id Then
deleteftp(Form1.Datos.Tables("Fotos").Rows(j).Item("ruta"))
Form1.Datos.Tables("Fotos").Rows(j).Delete()
'SI BORRAMOS ESA FILA, PASAMOS A BUSCAR LA FOTO SIGUIENTE EN LA TABLA
Exit For
End If
End If
Next
' Form1.actualiza_bd()
'SI HEMOS MARCADO PARA BORRAR UNA FOTO QUE HEMOS MARCADO PARA SUBIR, LA BORRAMOS DEL ARRAY PARA NO SUBIRLA
indice = Array.IndexOf(fotos_nuevas, fotos_borradas(i))
If indice <> -1 Then
fotos_nuevas(indice) = ""
End If
Next
End If
Form1.Conexion.Open()
Form1.AdaptadorEntradas.Update(Datos.Tables("Entradas"))
Form1. AdaptadorFotos.Update(Datos.Tables("Fotos"))
Form1.AdaptadorVideos.Update(Datos.Tables("Videos"))
Form1.Conexion.Close()
'REVISAMOS SI SE HA AÑADIDO ALGUNA IMAGEN
If fotos_nuevas.Length > 0 Then
'PARA CADA IMAGEN AÑADIDA ACTUALIZAMOS LA BASE DE DATOS
For i As Integer = 0 To fotos_nuevas.Length - 1
'COMPROBAMOS QUE LA FOTO NO HAYA SIDO BORRADA
If fotos_nuevas(i) <> "" Then
//////AQUI DA EL ERROR:No se encontro nullReferenceException
Fila_Nueva = Form1.Datos.Tables("Fotos").NewRow()
Fila_Nueva("id_entrada") = id
Fila_Nueva("ruta") = uploadftp(fotos_nuevas(i))
Form1.Datos.Tables("Fotos").Rows.Add(Fila_Nueva)
End If
Next
End If
'Si estamos editando un contenido, modificamos los valores de la fila correspondiente
Form1.Datos.Tables("Entradas").Rows(fila).Item("titulo") = Replace(txt_titulo.Text, "& ", "&")
Form1.Datos.Tables("Entradas").Rows(fila).Item("fecha") = dt_fecha2.Value
Form1.Datos.Tables("Entradas").Rows(fila).Item("texto") = Replace(rtxt_texto.Text, "& ", "&")
Form1.Datos.Tables("Entradas").Rows(fila).Item("texto") = Replace(rtxt_texto.Text, "€", "€")
Saludos