Controlli - Come Far Apparire Un Input Su Inputbox Da Una Griglia (inModificaCAMPO)

DbGrid # Dim strDBGridCell As String
Private Sub DBGrid1_AfterColEdit(ByVal ColIndex As Integer)
'

DBGrid1.Columns(ColIndex) = strDBGridCell
'

End Sub

Private Sub DBGrid1_BeforeColEdit(ByVal ColIndex As Integer, ByVal KeyAscii As Integer, Cancel As Integer)
'

strDBGridCell = InputBox("Edit DBGrid Cell: ", , DBGrid1.Columns(ColIndex))
' se preme il taso annulla

If Not IsNumeric(strDBGridCell) Then
If Len(Trim(strDBGridCell)) = 0 Then
strDBGridCell = DBGrid1.Columns(ColIndex)
End If
End If
End Sub

Private Sub DBGrid1_Change()
End Sub

Private Sub Form_Load()
Data1.DatabaseName = "C:\Programmi\visual basic 5\Biblio.mdb"
Data1.RecordSource = "Publishers"
End Sub