InsertComboGrid

'Inserire queste righe nel form e il gioco e' fatto:

'_________________________________________________________


Private Sub TimerEdit_Timer()
Dim x As Long, y As Long
Dim col As Integer
Timert.Enabled = False
If DBGrid1.CurrentCellVisible Then
col = DBGrid1.Col
x = DBGrid1.Left
y = DBGrid1.Top
Combo1.Width = DBGrid1.Columns(col).Width
Combo1.Left = x + DBGrid1.Columns(col).Left
Combo1.Top = y + DBGrid1.RowTop(DBGrid1.Row)
Combo1.Visible = True
Else
Combo1.Visible = False
End If
End Sub
'_________________________________________________________


Private Sub DBGrid1_RowColChange(LastRow As Variant,
ByVal LastCol As Integer)
Call Timer_Timer
End Sub
'_________________________________________________________


Private Sub DBGrid1_Scroll(Cancel As Integer)
TimerEdit.Enabled = True
End Sub

inserire questo codice in un form dopo aver inserito
un DBCombo (chiamata "Combo1"), una DBGrid chiamata
"DBGrid1" e un Timer chiamato "Timer" e impostare le
proprieta' di quest'ultimo Interval=1 e Enabled=False