Function BrowseParticularFields lparameter tcPattern local lnFields, lnI, lcStr, lnFields lcStr='' if empty(m.tcPattern) tcPattern = "PD" endif lnFields=afields(laFields) for lnI = 1 to if m.tcPattern $ laFields[m.lnI,1] lcStr = m.lcStr+laFields[m.lnI,1]+',' endif endfor if !empty(m.lcStr) lcStr = "fields "+left(m.lcStr,len(m.lcStr)-1)) endif browse &lcStrThis is off the top of my head and not tested.