Mas Bangun,
Coba yang satu ini, Saya asumsikan anda make BindingSource.
Kurang lebih jadinya seperti ini.
Dim lckey, lckey2 As String
Dim i As Integer
lckey = "value1"
For i = 0 To Me.grid1.RowCount - 1
lckey2 = Me.grid1.Item(0, i).Value
If lckey = lckey2 Then
'==============================================
NamaBindingSource.Position = i
Exit For
'==============================================
End If
Next
Regards,
alam.pramono
--- In [email protected], "Bangun
Ariyanto" <[EMAIL PROTECTED]> wrote:
>
> Teman2 bagaimana cara searching data di grid, ketika ditemukan
data tersebut
> langsung di-sorot di grid
>
> koding kira2 kayak gini.....
>
> lcKey="value1"
> for i=0 to me.grid1.rowcount -1
>
> lcKey2=Me.grid1.Item(0, i).Value
> if lckey=lckey2
> disini saya harus taruh apa?
> endif
> next
>
> saya sudah coba dengan berbagai method, baik
> me.grid1.focus dsb tetapi kursor(mouse warna biru) tetep di posisi
awal.
>
> Pa'UL-cowo "RASIS"
> +RAmahSImpatikSupel
>
>
> [Non-text portions of this message have been removed]
>
