Devo assegnare un recordset ad una MSHFlexGrid, ma il seguente codice mi va in errore sulla riga rossa;
l'errore è:
"30022
Il controllo Hierarchical FlexGrid non supporta il tipo di associazione di dati necessario."
codice:
Dim miaSource As String, mioSet As ADODB.Recordset, miaConn As ADODB.Connection
Set miaConn = RSPianificazione.ConnPianificazione
miaSource = "SELECT TBPartecipanti.IDContatore, TBPersone.IDPersona, TBPartecipanti.IDPianificazione, " & _
"[TBPersone.Cognome] & ' ' & [TBPersone.Nome] & ' ' & [TBPersone.SecondoNome] as Nominativo, TBPartecipanti.DalGiorno, TBPartecipanti.AlGiorno " & _
"FROM TBPersone INNER JOIN TBPartecipanti ON TBPersone.IDPersona = TBPartecipanti.IDPersona " & _
"WHERE TBPartecipanti.IDPianificazione = " & CLng(id)
Set mioSet = New ADODB.Recordset
mioSet.Open miaSource, miaConn, 1, 3
If mioSet.RecordCount = 0 Then
GrigliaElencoPartecipanti.Visible = False
BarraComandiPartecipanti.Buttons(1).Enabled = False
Else
GrigliaElencoPartecipanti.Visible = True
BarraComandiPartecipanti.Buttons(1).Enabled = True
End If
Set GrigliaElencoPartecipanti.Recordset = mioSet
GrigliaElencoPartecipanti.Refresh
Qualcuno sa dirmi perchè mi da questo errore?
Io ho già usato questo tipo di griglia nello stesso progetto e non mi ha mai dato alcun problema, ora invece si.
Le ho provate tutte, forse voi riuscite a dirmi dove sbaglio.
Ragazzi/e, grazie 1000.