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 ?
>>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() >>>>