Bug fixed reported by Bill Smith

2002-02-10 11:07:17 +00:00
parent 1e27261d64
commit 7bdf1f165f
1 changed files with 5 additions and 2 deletions
--- 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
-