Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
If found()
Message
From
14/08/2007 09:39:08
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01247979
Message ID:
01248007
Views:
26
hi,
thank you for reply,
i try it but error message syntax error
SELECT Mstr.nam, Mstr.bank, Mstr.sheqno, Mstr.dat, Mstr.tra, S1.amount FROM Mstr ;
 inner join (SELECT nam,amount,bank,sheqno,dat,tra, SUM(amount) AS bill_total FROM Mstr ;
 on Mstr.Nam = S1.Nam and Mstr.Bank = S1.Bank and Mstr.SheqNo = S1.SheqNo ;  
 and Mstr.dat = S1.dat ;
 ORDER BY Mstr.sheqno INTO CURSOR qTmp 
thanks
>See changes inside.
>
>>hi all,
>>
>>i try to display mygrid if date found at my tabel via this code ... but it works all the time...found or not.
>>thanks for help.
>>
>>>
>>thisform.olecontrol1.Visible=.t.
>>
>>thisform.grid1.Visible=.f.
>>
>>LOCAL ldStart
>>ldStart = thisform.text1.value
>
>=messagebox(vartype(m.ldStart)) && I want to check, if this is a date type
>
>>*************************************
>
>select Mstr && Locate needs to select a table first, seek doesn't
>
>locate for dat = m.ldStart
>>         IF FOUND()
>>**********************************
>* Here we need to change ENGINEBEHAVAIOR if we want to select memo, though we can change our select instead
>
> SELECT Mstr.nam, Mstr.bank, Mstr.sheqno, Mstr.dat, Mstr.tra, S1.bill_total FROM Mstr ;
> inner join (SELECT nam,amount,bank,sheqno,dat,tra, SUM(amount) AS bill_total FROM Mstr ;
>>WHERE dat = m.ldStart ;
>>GROUP BY nam,bank,sheqno, dat) S1 ; && Obviously we don't want to group by Amount
> on Mstr.Name = S1.Name and Mstr.Bank = S1.Bank and Mstr.ShegNo = S1.ShegNo ;
> and Mstr.dat = S1.dat ;
> ORDER BY Mstr.sheqno INTO CURSOR qTmp
>
>&& Hmmm, why did we do locate at all? - why we can not always select first and choose various paths depending on _tally ?
>
>** BTW, above assumes we may have multiple same dates for the same Nam, Bank and ShegNo but different amounts
>
>>SELECT csrBillTotals
>>ZAP
>>APPEND FROM DBF( [qTmp] )
>>go top
>>
>
>** Don't need to run the same code twice
>
>*>  SELECT csrBillTotals
>*>ZAP
>*>APPEND FROM DBF( [qTmp] )
>>Thisform.refresh()
>
>* Since we're using "safe select" technique the rest of the code is not needed
>* and needs to be commented out
>
>>    * thisform.grid1.column1.header1.forecolor='255,255,0'
>>     thisform.grid1.column1.header1.caption="ÊÇÑíÎ ÇáÔíß"
>>     thisform.grid1.column1.header1.fontsize=12
>>     thisform.grid1.column1.WIDTH=88
>>     thisform.grid1.column1.header1.fontbold=.t.
>>     thisform.grid1.column1.Alignment = 2
>>  backcolor="128,128,255"
>>
>>    thisform.grid1.column2.header1.caption="ÑÞã ÇáÔíß"
>>     thisform.grid1.column2.header1.fontsize=12
>>     thisform.grid1.column2.WIDTH=88
>>   thisform.grid1.column2.header1.fontbold=.t.
>>   thisform.grid1.column2.Alignment = 2
>>  backcolor="128,128,255"
>>
>>
>>
>>   thisform.grid1.column3.header1.caption="ãÓÍæÈ Úáì"
>>     thisform.grid1.column3.header1.fontsize=12
>>     thisform.grid1.column3.WIDTH=88
>>   thisform.grid1.column3.header1.fontbold=.t.
>>   thisform.grid1.column3.Alignment = 2
>> backcolor="128,128,255"
>>
>>  thisform.grid1.column4.header1.caption="ÞíãÉ ÇáÔíß"
>>  thisform.grid1.column4.header1.fontsize=12
>>  thisform.grid1.column4.WIDTH=88
>>  thisform.grid1.column4.header1.fontbold=.t.
>>  thisform.grid1.column4.Alignment = 2
>>  backcolor="128,128,255"
>>
>>  thisform.grid1.column5.header1.caption="ÇÓã ÇáãÓÊÝíÏ"
>>  thisform.grid1.column5.header1.fontsize=12
>>  thisform.grid1.column5.WIDTH=120
>>  thisform.grid1.column5.header1.fontbold=.t.
>>  thisform.grid1.column5.Alignment = 2
>>  backcolor="128,128,255"
>>  else
>>  thisform.grid1.Visible=.f.
>>  endif
>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform