Hi Martingz and AUGE_OHR,
Thank you very much for your gracious assistance. I really appreciate it.
I am still in great need of your HMG/Harbour specific experience. (Sadly, my VFP-specific experience has not given the solution.)
I have carefully tried your suggestions but the data still does not appear in the grid.
Some more information:
As stated in my post the header displays but no data. I can navigate up and down the blank grid the same number of rows as the RECCOUNT().
This demonstrates that the .DBF has loaded but is not displayed in the grid.
I made the following substution in
C\HMG.3.4.4\SAMPLES\Basics\TUTORIAL\Tutor20.PRG.
Originally:
// @ 10,10 GRID Grid_1 ;
// WIDTH 610 ;
// HEIGHT 390 ;
// HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' } ;
// WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 } ;
// ROWSOURCE "Test" ;
// COLUMNFIELDS { 'Code' , 'First' , 'Last' , 'Birth' , 'Married' , 'Bio' } ;
// COLUMNCONTROLS {{'TEXTBOX','NUMERIC','999'},{'TEXTBOX','CHARACTER'},{'TEXTBOX','CHARACTER'},{'TEXTBOX','DATE'},
{'CHECKBOX'},{'TEXTBOX','CHARACTER'}};
// ALLOWDELETE ;
// EDIT
With my substutions:
Code: Select all
@ 10,10 GRID Grid_1 ;
WIDTH 610 ;
HEIGHT 390 ;
HEADERS {"Mfg. Name", "Type", "Serviceable", "Descr.", "Model", "Length", "OAL", "Serial Nbr"}
WIDTHS { 150, 150, 150, 150, 150, 150, 150, 150 } ;
ROWSOURCE "All_Items" ;
COLUMNFIELDS {"MFG_NAME", "TYPE", "SERVICEABL", "DESCR", "MODEL", "LENGTH", "OAL", "SERIAL_NBR"}
COLUMNCONTROLS {{"TextBox","Character"}, {"TextBox","Character"}, {"TextBox","Character"}, {"TextBox","Character"} ;
, {"TextBox","Character"}, {"TextBox","Character"}, {"TextBox","Character"}, {"TextBox","Character"}};
ALLOWDELETE ;
EDIT
When I run with my substitutions in "Tutor20.PRG" the grid displays all my table's data displays perfectly.
This demonstrates that the table is valid and understood by HMG.
The following is the exact code in my .FMG. I use the same values here as above.
Unfortunately, none of the table's data displays here.
QUESTION: Why above but not in the (IDE created) grid on my form???
Code: Select all
DEFINE GRID grd_Items
ROW 60
COL 30
WIDTH 760
HEIGHT 150
ITEMS { {""} }
VALUE Nil
WIDTHS {150, 150, 150, 150, 150, 150, 150, 150}
HEADERS {"Mfg. Name", "Type", "Serviceable", "Descr.", "Model", "Length", "OAL", "Serial Nbr"}
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONDBLCLICK Nil
ONHEADCLICK Nil
ONQUERYDATA Nil
MULTISELECT .F.
ALLOWEDIT .F.
VIRTUAL .F.
DYNAMICBACKCOLOR Nil
DYNAMICFORECOLOR Nil
COLUMNWHEN Nil
COLUMNVALID Nil
COLUMNCONTROLS {{"TextBox","Character"},{"TextBox","Character"},{"TextBox","Character"},{"TextBox","Character"} ;
, {"TextBox","Character"},{"TextBox","Character"},{"TextBox","Character"},{"TextBox","Character"}}
SHOWHEADERS .T.
CELLNAVIGATION .F.
NOLINES .F.
HELPID Nil
IMAGE Nil
JUSTIFY Nil
ITEMCOUNT Nil
BACKCOLOR NIL
FONTCOLOR NIL
HEADERIMAGES Nil
ROWSOURCE "NFA_ITEMS"
COLUMNFIELDS {"MFG_NAME", "TYPE", "SERVICEABL", "DESCR", "MODEL", "LENGTH", "OAL", "SERIAL_NBR"}
ALLOWAPPEND .F.
ALLOWDELETE .F.
BUFFERED .F.
DYNAMICDISPLAY Nil
ONSAVE Nil
LOCKCOLUMNS 0
END GRID
Thank you all for your kind help!
Red2