>>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 >> endif >>>>and 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 table>> Append from dbf('csrMyCursor') for empty(csrMyCursor.bookno) ... >>>>
>>>>>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') >>>>>>>>>>>>>>>>