Hi List Sorry about the format of the code in the last message; it's not how I typed it.
I repeat it below (hoping this one doesn't get corrupted): Terry McDonnell ----------- code follows: Dim I, lnNumRecs as SmallInt Select * from MICenAPFld where AP_ID = tnAP_ID into csrCenAPFlds Order by AP_Fld_ID lnNumRecs = TABLEINFO( "csrCenAPFlds", TAB_INFO_NROWS) ReDim gaAPFlds( lnNumRecs) ReDim gaAPFldCaps( lnNumRecs) Fetch First From csrCenAPFlds For I = 1 to lnNumRecs gaAPFlds( I).AP_ID = csrCenAPFlds.AP_ID ' Analysis profile ID gaAPFlds( I).AP_Fld_ID = csrCenAPFlds.AP_Fld_ID ' Analysis profile field ID gaAPFlds( I).AP_FieldName = csrCenAPFlds.AP_FieldNa gaAPFlds( I).AP_FieldCapt = csrCenAPFlds.AP_FieldCa gaAPFldCaps( I) = gaAPFlds( I).AP_FieldCapt ' Just the field capt for user select combo gaAPFlds( I).AP_FieldCapt Fetch Next From csrCAPInstcs Next --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 18370
