>Do Case > Case Thisform.Optiongroup1.Value = 1 && All Records > Thisform._lcliftdate = ".T." > Case Thisform.Optiongroup1.Value = 2 && Only Pending Records > Thisform._lcliftdate = "liftdate == {}" > Case Thisform.Optiongroup1.Value = 3 && Only Final Records > Thisform._lcliftdate = "liftdate <> {}" >Endcase >>
>>Do Case >> Case Thisform.Optiongroup1.Value = 1 && All Records >> Thisform._lcliftdate = ".T." >> Case Thisform.Optiongroup1.Value = 2 && Only Pending Records >> Thisform._lcliftdate = "liftdate == {}" >> Case Thisform.Optiongroup1.Value = 3 && Only Final Records >> Thisform._lcliftdate = "not liftdate == {}" >>>Endcase >>>>