luca260786 (Normal User)
Rookie
Messaggi: 22
Iscritto: 10/01/2008
|
Salve a tutti, è da tanto tempo che non scrivo. #IORESTOACASA, aiutiamoci l'un con l'altro.
Detto questo vengo subito al punto.
Di seguito il codice con sottolineato la parte dove premendo debug viene evidenziata.
Codice sorgente - presumibilmente VB.NET |
Private Sub DBCombo1_Click(Area As Integer) If DBCombo1.Text = "" Then Exit Sub Select Case Area Case 0 Case 1 SendKeys "%{Down}" Case 2 Label15.Caption = DBCombo1.BoundText [/u][u]Data1.Recordset.FindFirst ("codice=" & Label15.Caption & "")[u][/u] End Select End Sub
|
Qualcuno di voi può aiutarmi? Grazie 1000 a tutti.
|