Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Synchronize VCX file and VCT file
Message
 
À
30/04/1997 18:06:25
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00030304
Message ID:
00030638
Vues:
47
>use myvcx.vcx
>PACK MEMO
>
>Arnon
>
>
> ----
>Date: éåí øáéòé 30 àôøéì 1997 20:48
>
>>
>>How to synchronize a VCX file with its VCT file.
>>In the VCT file we can see (with a word processor) some code who does not
>>exist in the VCX file.
>>It's not possible to delete a VCT file.
>>In development time all the application works well but this problem
>occurs
>>when we want to build an executable.
>>
>>Visual Class Library [FILE].vcx has the following errors:
>> Unknown [PROCEDURE] - Undefined
>>
>>Thank's
>>
>>Stephan
>>
>>
Arnon,

Your tip to open and work in the .VCX like in a .DBF is wonderful and we saw some procedures was duplicate on several records. This tip opens the way to correct automatically name of variables …

Thanks

On an other hand, I try your tip about DynamicForeColor but it does not work.
I built a form with a grid with an entry field ("efSearch") for a "rapid search" like in the help dialogbox.

In ThisForm.Init
WITH ThisForm
.GridBackColor = .gdGrid.column1.text1.SelectedBackColor
ENDWITH

In my entry field efSearch.InteractiveChange
This.Parent.SearchKey()

in the procedure SearchKey()
WITH ThisForm
if empty(.efSearch.Value)
.gdGrid.SetAll("dynamicforecolor", "", "Column")
.gdGrid.SetAll("dynamicbackcolor", "", "Column")
else
.nRecno = recno()
If Seek(AllTrim(Upper(.efSearch.Value)))
.nRecno = recno()
.ColorLine()
else
if .nRecno > 0
go .nRecno
endif
Endif
endif
ENDWITH

in the procedure ColorLine()
WITH ThisForm
.gdGrid.SetAll("dynamicbackcolor", ;
"IIF(RECNO() = .nRecno, .GridBackColor, .gdGrid.BackColor)", "Column")
.gdGrid.Refresh()
ENDWITH

The problem occurs on the gdGrid.Refresh()

Have an idea where the problem is ?

Stephan
Analystik Team
1430 Belanger
Montreal (Quebec)
Canada
(514) 278-2727
analyste@analystik.ca
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform