>Ok, I reviewed the code. Following is changed mRefresh method:

How about the references to Value and DisplayValue in the mInitSQL code below? I can't seem to work out how to eliminate those lines without wrenching the functionality out of the Combo. And if you're weary of this topic just let it go and I'll program around the GetFldState logic instead. Thanks, Renoir

This.AddProperty('cSourceAlias', '')
with This
   .mQuery()
   if !empty(.ControlSource)
      local lnResult, luValue
      lnResult = 1
      luValue  = eval(.ControlSource)
      lnResult = ascan(.aList, luValue)
      if lnResult = 0
         .mAddItem(luValue)
      endif
      .DisplayValue = luValue
      .Value = luValue
      if at(".", .ControlSource) > 0
         local lcAlias
         lcAlias = juststem(.ControlSource)
         if !empty(lcAlias) and used(lcAlias)
            .nRecord = 0
         endif
            .cSourceAlias = lcAlias
      endif
   endif
   .Requery()
endwith