Function DoAllCOmbo (iType As Integer, Id As Integer) As Integer
Dim i%
Dim s$
Dim sData$
Dim Ret%
Dim Cpt%

Cpt = 0

If iType <> 0 And Id <> 0 Then
    's = CStr(iType) + "." + CStr(Id)
    'sData = "Select DISTINCT Component.componentid From _system.Component "
    'sData = sData + " WHERE Component.componentid.xxKey !=  0.0"
    'sData = sData + " AND Component.SubLevel.string = '" + s + "'"
    's = ""
    'Ret = pExecute(sData)
    'While (Ret = True)
    '    s = s + OnSQlGetItem(0) + ","
    '    Cpt = Cpt + 1
    '    Ret = pMoveNext(0)
    'Wend
    'If Cpt > 0 Then
    '    sData = "Select DISTINCT Component.Name,Component.componentid From _system.Component,_system.LinkComponent "
    '    sData = sData + " WHERE Component.componentid.xxKey IN (" + Left$(s, Len(s) - 1) + ")"
    '    sData = sData + " AND LinkComponent.Name.string = '" + GlobPU.XasName + "'"
    '    Ret = SqlCombo(cbo(0), sData)
    '    DoAllCOmbo = Cpt
    'End If
    Ret = SqlCombo(cbo(0), sData)
Else
    cbo(0).Clear
    cbo(0).AddItem "Votre sélection..." + Space(40) + "0"
End If
Ret = ClearAll(1, 4)
Ico(0).Visible = False
Ico(1).Visible = False
xLb(3).Caption = ""
Ret = DoCritCombo(0)

End Function