Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combobox problem
Message
De
26/03/2008 07:16:38
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01305596
Message ID:
01305605
Vues:
10
Hi Sergey,
The code looks like here :
Set ENGINEBEHAVIOR 70

Select * ;
	FROM __tapicustomerfound ;
	INTO Cursor _tapicustomerfound;
	NOFILTER

SELECT _tapicustomerfound
LOCATE
Thisform.cboContactSearch.RowSourceType = 0
Thisform.cboContactSearch.RowSource = ""
Thisform.cboContactSearch.RowSourceType = 6
Thisform.cboContactSearch.RowSource = "_tapicustomerfound.kurzbez,telefon,modul"
Thisform.cboContactSearch.ColumnCount = 3
Thisform.cboContactSearch.ColumnWidths = "200,100,30"
Thisform.cboContactSearch.ColumnLines = .F.
Thisform.cboContactSearch.Requery()

If Thisform.cboContactSearch.ListCount>0
	Thisform.cboContactSearch.ListIndex = 1
Endif

IF Thisform.cboContactSearch.ListCount>1
	Thisform.lblKontakt.ForeColor = 255
	Thisform.lblKontakt.Caption = MKSTAPI_LBL_KONTAKT+SPACE(1)+"("+ALLTRIM(STR(Thisform.cboContactSearch.ListCount))+")"
ELSE
	Thisform.lblKontakt.ForeColor = 0
	Thisform.lblkontakt.Caption = MKSTAPI_LBL_KONTAKT
ENDIF
>At which point do you check cboContactSearch.ListCount ?
>
>>I can't uderstand the combobox behaviour :)) And it seems not long time ago, all works.. but now - nothing ..
>>the problem description.
>>I have a method which create a cursor, and this cursor is source of combobox.
>>
>>If looks like
>>
>>Select ..... INTO CURSOR _tapicustomerfound
>>
>>Thisform.cboContactSearch.RowSourceType = 6
>>Thisform.cboContactSearch.RowSource = "_tapicustomerfound.kurzbez,telefon,modul"
>>Thisform.cboContactSearch.ColumnCount = 3
>>Thisform.cboContactSearch.ColumnWidths = "200,100,30"
>>Thisform.cboContactSearch.ColumnLines = .F.
>>Thisform.cboContactSearch.Requery()
>>
>>
>>Before problem was.. when first line of code happens "RowSourceTyp=6" - I have a foxpro error message about "Can't access table".. (even error handler was ignored.. directly foxpro messagebox)
>>
>>But now.. another strange problem happens..
>>I know exactly _tally after SELECT is 1.. but cboContactSearch.ListCount = 0!!
>>Why 0..when form displays.. it has 1 item.. but in the code its 0
>>
>>If exist explanation, I will happy!
>>Thanks
>>Denis
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform