Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combo will not enable, Control source problem
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8
OS:
Windows 2000
Network:
Novell 6.x
Database:
Visual FoxPro
Divers
Thread ID:
01027250
Message ID:
01027261
Vues:
16
Also I think you should use AddListItem method, not AddItem for the second combo. Where do you specify its RowSource and RowSourceType? You can just put RowSource directly as a string separated by commas.

>By the quick glance it seems like RowSource and RowSourceType do not match each other. E.g. it looks like you're using fields (6, I believe) and not the alias.
>
>>thanks for responding,
>>The dataSource is not readOnly and the datasource is not EOF. The problem is very sporadic, sometimes they enable, sometines they do not. They are both one state or another and both have different data sources. In one cbo the items are added to the list programmitcally:
>>
>>
>>WITH thisform.clsdatadesc.cboGlAcctNum
>>    .Sorted = .T.
>>    .DisplayCount = 7
>>    .columnLines = .t.
>>    .ControlSource = "apInvPoItems.glAcctNum"
>>    .rowsourcetype = 2 && alias
>>    .rowsource = "glAccts.glAcctNum, glAcctName"
>>    .columncount = 2
>>    .boundcolumn = 1
>>    .columnWidths = "50,165"
>>    .style = 2
>>ENDWITH
>>
>>WITH thisform.clsdatadesc.cboFactor
>>    *** form.activate
>>    .AddItem("Discount")
>>       .List[.newindex,2] = "D"
>>    .AddItem("No Discount")
>>       .List[.newindex,2] = "N"
>>    .AddItem("Freight")
>>       .List[.newindex,2] = "F"
>>    .AddItem("Taxes")
>>       .List[.newindex,2] = "T"
>>    .sorted = .f.
>>    .controlSource = "apInvPoItems.factor"
>>    .boundcolumn = 2
>>    .columncount = 2
>>    .columnWidths = "80,10"
>>    .displayCount = 5
>>    .style = 2
>>    .enabled = .T.
>>    .listindex = 1
>>    .readonly = .F.
>>ENDWITH
>>
>>
>>Thanks again, any other suggestions appreciated.
>>Vince
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform