From 7bdf1f165f799e91545375c789bfb5f6e2004c39 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sun, 10 Feb 2002 11:07:17 +0000
Subject: [PATCH] Bug fixed reported by Bill Smith

---
 harbour/source/rtl/dbedit.prg | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/dbedit.prg b/harbour/source/rtl/dbedit.prg
index dd67052d3e..cf6e7b965e 100644
--- a/harbour/source/rtl/dbedit.prg
+++ b/harbour/source/rtl/dbedit.prg
@@ -180,7 +180,11 @@ FUNCTION dbEdit(;
          cHeading := FieldName( nPos )
       ENDIF
 
-      bBlock := &( "{||" + acColumns[ nPos ] + "}" )
+      IF ISARRAY( acColumns )
+         bBlock := &( "{||" + acColumns[ nPos ] + "}" )
+      ELSE
+         bBlock := FieldBlock( FieldName( nPos ) )
+      ENDIF
 
       IF ValType(Eval(bBlock)) == "M"
          bBlock := {|| "  <Memo>  " }
@@ -374,4 +378,3 @@ STATIC FUNCTION dbEditSkipped( nRecs )
    ENDIF
 
    RETURN nSkipped
-