>select avlbook >seek thisform.text1.value >if !found() > append blank > replace date with thisform.text14.value > replace gate_no with thisform.text1.value >endif > >select avlbook >go top >append blank >delete >pack >flush force >>
select avlbook if !seek( thisform.text1.value ) append blank replace ; date with thisform.text14.value, ; gate_no with thisform.text1.value endif pack && this is not a good idea use && close the table flush force