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') >>>>>>>>>>>>>>>>>>