DoDefault() >> >>select abbrev from states order by 1 into array This.aList >> >>local lnResult >>lnResult = 1 >>if !empty( This.ControlSource ) >> lnResult = ascan( This.aList, eval( This.ControlSource ) ) >>endif >> >>if lnResult = 0 >> local lnLen >> lnLen = alen( This.aList, 1 ) + 1 >> dimension This.aList[ lnLen, 1 ] >> This.aList[ lnlen ] = eval( This.ControlSource ) >> asort( This.aList ) >>endif >>