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 := {|| " " } @@ -374,4 +378,3 @@ STATIC FUNCTION dbEditSkipped( nRecs ) ENDIF RETURN nSkipped -