Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Insert from grid1 to grid2
Message
De
21/04/2005 09:03:24
 
 
À
21/04/2005 07:20:44
Jon Neale
Bond International Software
Wootton Bassett, Royaume Uni
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Divers
Thread ID:
01006853
Message ID:
01006936
Vues:
24
hi,
thank you,
i have no idea about how,adding a checkbox to the grid which will wllow the user to be sure what they are selecting.


>As I've already pointed out to M he needs to look a the design of the form before coding it. Currently the code below runs in the afterrowcolchange of a grid, this is not the best way to allow selection from a grid.
>
>I suggested adding a checkbox to the grid which will wllow the user to be sure what they are selecting.
>
>I dont know why I'm telling you this as I know you already know this kind of stuff.
>
>
>>M
>>
>>Assuming the table (MyTable) in your source grid is current, i.e. the selected table, then you can say:
>>
>>
>>LPARAMETERS nColIndex
>>
>>lcType = MyTable.TypeField
>>Select Temp  && you're STILL using specific work areas - such as Select 3, rather than the ALIAS!!!!
>>LOCATE FOR TYP = lcType
>>IF !FOUND()
>>     APPEN BLANK
>>     REPLACE TYP WITH lcType in TEMP
>>     GO top
>>     thisform.grid1.refresh
>>ELSE
>>       =MESSAGEBOX("found.....")
>>endif
>>
>>
>>Terry
>>
>>
>>>hi all,
>>>
>>>i need help to insert item (evrey time one item only) from grid2 to grid1
>>>i try via this code under.
>>>but this code get all items form grid2 and replacement to grid1
>>>
>>>but i need to replace one item after i make choice
>>>i try ==,
>>>i try set exact on,
>>>and set near off,
>>>and upper,alltrim
>>>same result ...
>>>
>>>
>>>LPARAMETERS nColIndex
>>>LOCATE FOR temp.typ=THISFORM.GRID2.column1.text1.VALUE
>>>IF !FOUND()
>>>      SELECT 3 &&mytablename is temp
>>>      APPEN BLANK
>>>      REPLACE temp.typ WITH THISFORM.GRID2.column1.text1.VALUE
>>>      GO top
>>>      thisform.grid1.refresh
>>>
>>>ELSE
>>>       =MESSAGEBOX("found.....")
>>>endif
>>>
>>>
>>>thanks.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform