cAlias = Thisform.DataEnvironment.InitialSelectedAlias Select (cAlias) IF act_flag="1" GO BOTTOM LOCATE FOR UPPER(shipno) =alltrim(thisform.text1.Value) AND act_flag="1" IF!FOUND() Append from dbf('csrMyCursor') for !empty(csrMyCursor.bookno) ; and !empty(csrMyCursor.sticket) and !empty(csrMyCursor.eticket); and !empty(csrMyCursor.noofticket) and !empty(csrMyCursor.boxno); and !empty(csrMyCursor.shipno) and !empty(csrMyCursor.trans_type) * SCAN REST FOR UPPER(shipno) =alltrim(thisform.text1.Value) AND act_flag="1" *ENDSCAN brow ENDIF endifand i try as the last message, error message&&command contains unrecognized phrase/keyword
"for !empty(csrMyCursor.bookno) and !empty(csrMyCursor.sticket) and !empty(csrMyCursor.eticket)"
i try as under, append empty and !epmty records at my tableAppend from dbf('csrMyCursor') for empty(csrMyCursor.bookno) ...thanks
>>>Append from dbf('csrMyCursor') for !empty(csrMyCursor.bookno) and !empty(csrMyCursor.sticket); >>> and !empty(csrMyCursor.eticket) >>>>>>Add more fields if necessary!
>>>>Select bookno,sticket,eticket,NOOFTICKET,BOXNO,shipno,trans_type from trans1 into cursor csrmyCursor readwrite where .F. >>>>SELECT csrMyCursor >>>>With thisform.Grid1 >>>> .RecordSource = "csrMyCursor" >>>> .Columncount = 7 >>>> .Column1.ControlSource = "csrMyCursor.bookno" >>>> .Column2.ControlSource = "csrMyCursor.sticket" >>>> .Column3.ControlSource = "csrMyCursor.eticket" >>>> .Column4.ControlSource = "csrMyCursor.noofticket" >>>> .Column5.ControlSource = "csrMyCursor.boxno" >>>> .Column6.ControlSource = "csrMyCursor.shipno" >>>>.Column7.ControlSource = "csrMyCursor.trans_type" >>>> append blank >>>> .Refresh() >>>>ENDWITH >>>> >>>>>>>>>I am sure that you don't have a FIELD called bookno.sticket.eticket in your csrCourse cursor???
>>>>>> Append from dbf('csrMyCursor') for !empty('csrMyCursor.bookno.sticket.eticket') >>>>>>>>>>>>