Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Pls help, grid controlsource problem!
Message
De
03/01/2000 21:50:24
 
 
À
03/01/2000 08:37:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00311623
Message ID:
00312101
Vues:
41
>pls help, i can't change the current grid display to my setting, what i want to do is manual add column one by one in my setting squence from a table, but now even the column header is display in my order , but the grid display the source in only the order which the table once create. i try many method to change it, but it doesn't work , can anyone hlp me!!!
>
>my code:
>DIMENSION GRD_INFO[6,2]
>GRD_INFO[1,1] = 'Item No.'
>GRD_INFO[1,2] = 'SODETAIL.ITEM_NO'
>GRD_INFO[2,1] = 'Item Desc.'
>GRD_INFO[2,2] = 'SODETAIL.ITEM_DESC'
>GRD_INFO[3,1] = 'Customer'
>GRD_INFO[3,2] = 'SODETAIL.CUST_CODE'
>GRD_INFO[4,1] = 'ETD'
>GRD_INFO[4,2] = 'SODETAIL.ETD'
>GRD_INFO[5,1] = 'Qty'
>GRD_INFO[5,2] = 'SODETAIL.QTY'
>GRD_INFO[6,1] = 'Price'
>GRD_INFO[6,2] = 'SODETAIL.UNIT_PRICE'
>
>WITH THISFORM.DET_GRD
> .RECORDSOURCE = 'SODETAIL'
> .COLUMNCOUNT = 6
> FOR I = 1 TO 6
> SELECT SODETAIL
> .COLUMNS[I].FORECOLOR = RGB(0,0,0)
> .COLUMNS[I].REMOVEOBJECT('TEXT1')
> .COLUMNS[I].ADDOBJECT('TEXT1','Textbox')
> .COLUMNS[I].HEADER1.CAPTION = GRD_INFO[I,1]
> .COLUMNS[I].HEADER1.ALIGNMENT = 0
> .COLUMNS[I].CONTROLSOURCE = GRD_INFO[I,2]
> .COLUMNS[I].CURRENTCONTROL = 'TEXT1'
> .COLUMNS[I].SPARSE = .T.
> ENDFOR
>ENDWITH

You may look at Column.ColumnOrder properties. Setting them programmatically, e.g. in Grid.Init event you will force needed order.
Edward Pikman
Independent Consultant
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform