[VB6] Aiuto con SelBookmarks e Bookmark

[zorro77]

Salve a tutti
non riesco ad usare questi due metodi per riuscire a selezionare in automatico una riga del datagrid.....nel senso che appena si apre il datagrid la riga (l'ultima) deve essere già selezionata.
qualcuno potrebbe postarmi qualche esempio a riguardo?

Grazie mille!!!

[yyzyyz]

non uso molto questi metodi , cmq dai un'okkiata qui:

SelBookMarks
BookMarks

[giorgiogio48]

Se ora ho capito bene le routine che ti servono sono queste.

Private Sub DataGrid1_AfterDelete()
DataGrid1.Bookmark = Adodc1.Recordset.RecordCount
res = DataGrid1.Bookmark
DataGrid1.SelBookmarks.Add (res)
End Sub

Private Sub DataGrid1_AfterUpdate()
DataGrid1.Bookmark = Adodc1.Recordset.RecordCount
res = DataGrid1.Bookmark
DataGrid1.SelBookmarks.Add (res)
End Sub

Private Sub Form_Load()
DataGrid1.Bookmark = Adodc1.Recordset.RecordCount
res = DataGrid1.Bookmark
DataGrid1.SelBookmarks.Add (res)
End Sub

[zorro77]

Provo subito e ti faccio sapere...mi raccomando...rimani in ascolto su questo canale

[zorro77]

Il problema che ho evidenziato è che usando il datagrid legato all'adodc della form in questo modo

SHAPE {select Campo1.Tab1,Campo2.Tab1,Campo3.Tab1,Campo4.Tab1,Ca mpo5.Tab1 from Tab1 Order by Campo1} AS ParentCMD APPEND ({select Campo1.Tab2,Campo2.Tab2 from Tab2 ORDER BY Campo1} AS ChildCMD RELATE Campo1.Tab1 TO Campo2.Tab2) AS ChildCMD

e utilizzando questo codice per posizionarmi sull'ultima riga del datagrid associato al record principale

Dim res As Variant
    Dim recordset As recordset
    Set recordset = datPrimaryRS.recordset("ChildCMD").UnderlyingValue
    grdDataGrid.Bookmark = recordset.RecordCount
    res = grdDataGrid.Bookmark
    grdDataGrid.SelBookmarks.Add (res)

Per esempio, sul primo record il datagrid ad esso associato mi da 5 righe, e tutti gli altri record hanno 0 righe niei loro datagrid, sul primo record la riha selezionata è l'ultima.
Se invece negli altri record, per esempio solo nel primo ho una sola riga, nel primo record la riga evidenziata sarà la penultima.

il conto delle righe del datagrid mi viene fatto sulla somma di tutte le righe dei datagrid

[giorgiogio48]

Originariamente inviato da zorro77

SHAPE {select Campo1.Tab1,Campo2.Tab1,Campo3.Tab1,Campo4.Tab1,Ca mpo5.Tab1 from Tab1 Order by Campo1} AS ParentCMD APPEND ({select Campo1.Tab2,Campo2.Tab2 from Tab2 ORDER BY Campo1} AS ChildCMD RELATE Campo1.Tab1 TO Campo2.Tab2) AS ChildCMD

Siceramente non ho capito cosa sono le righe di codice che hai scritto sopra.
Io per fare una query nella datagrid e per avere sempre l'ultima riga selezionta userei un codice "del tipo":

Private Sub Command1_Click()
Adodc1.RecordSource = "select nome from Clienti where nome='Giorgio'"
Adodc1.Refresh
DataGrid1.Bookmark = Adodc1.Recordset.RecordCount
res = DataGrid1.Bookmark
DataGrid1.SelBookmarks.Add (res)

End Sub

Ah, prima di fare ciò setta la proprità connectionstring e la proprità Recorsdsource di adodc1. Inoltre poi setta la proprietà datasource di datagrid