diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 18fc3d0ee..c34aa197e 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -270,7 +270,7 @@ Partial Class Compras_RepCxP
             GvCxP.DataBind()
             UPPDatos.Update()
         Else
-            If DtDatos.Rows.Count > 0 Then
+            If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
                 GvCxP.Columns(2).Visible = False
                 GvCxP.Columns(3).Visible = False
                 GvCxP.Columns(4).Visible = False