Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Append records
Message
De
17/01/2005 11:35:03
 
 
À
17/01/2005 08:29:51
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00977705
Message ID:
00977765
Vues:
28
Try the grid's refresh().

>hi,
>thank you,
> i must but this code under event keypress at thisform.text2.value
>as if !found()
>thisform.Append31
>how i can see those records after append at mygrid via myform
>
>thanks.
>m.qasem
>>>hi all,
>>>i need help, to append records at my table, via myform and i can see all records as empty records, without date field.
>>> as
>>>locate for machaine1=thisform.text1.value and month+year=thisform.text2.value
>>>if !found()
>>>append 31 records&&if the month is 30 days append 30 records ,if month=2(february) append 28 or 29, and if day is friday replace day1 with friday
>>>else
>>>=messagebox("found")
>>>endif.
>>>m.qasem
>>
>>Something like this?
FUNCTION Append31
>>   lpara tdD
>>   local ldD, lnM
>>   ldD = tdD-DAY( tdD ) + 1
>>   lnM = month( tdD )
>>   do while month( ldD ) = lnM
>>      append blank
>>      ldD = ldD + 1
>>   enddo
>>   return
Groet,
Peter de Valença

Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform