Si ci sono riuscito!!!!
applico la function rigaselezionata per gli eventi click e CurrentCellChanged...
Funziona alla grande!!!!
Ecco a voi..... per i posteri....
Se avete critiche da fare prego pure....
codice:Public Function RigaSelezionata(ByVal dg As DataGrid) As Boolean Dim cm As CurrencyManager = Me.BindingContext(dg.DataSource, dg.DataMember) Dim dv As DataView = CType(cm.List, DataView) Dim i As Integer Dim trovato As Boolean trovato = False For i = 0 To dv.Count - 1 If dg.IsSelected(i) Then trovato = True End If Next i Return trovato End Function Private Sub griglia_selezionata(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdDataGrid.CurrentCellChanged, DataGrid1.CurrentCellChanged, GrigliaSelez.CurrentCellChanged, GrigliaVerificatori.CurrentCellChanged, grdDataGrid.Click, DataGrid1.Click, GrigliaSelez.Click, GrigliaVerificatori.Click If sender.Equals(grdDataGrid) Then If RigaSelezionata(grdDataGrid) Then Me.Assegna.Enabled = True Else Me.Assegna.Enabled = False End If End If If sender.Equals(DataGrid1) Then If RigaSelezionata(DataGrid1) Then Me.CmdRiassTot.Enabled = True Else Me.CmdRiassTot.Enabled = False End If End If If sender.Equals(GrigliaSelez) Then If RigaSelezionata(GrigliaSelez) Then Me.CmdRiassegna.Enabled = True Else Me.CmdRiassegna.Enabled = False End If End If If sender.Equals(GrigliaVerificatori) Then If RigaSelezionata(GrigliaVerificatori) Then Me.CmdOKAss.Enabled = True Else Me.CmdOKAss.Enabled = False End If End If End Sub

Rispondi quotando