Append from dbf('csrMyCursor') for !empty(bookno) or !empty(sticket) OR !empty(eticket)thanks again.
>Append from dbf('csrMyCursor') for !empty('csrMyCursor.bookno.sticket.eticket') && My ild line, does not work! >Append from dbf('csrMyCursor') for !empty(csrMyCursor.bookno) && My new, modified line!>Is this small change really so difficult to figure out for yourself???
>>>>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') >>>>>>>>>>>>>>>>>>>>