Assalamu'alaikum
coba kode baris ini, moga membantu mencari data pada datagrid
function cari( byval kata as string)
Dim brs As Long
brs = DataGrid1.ApproxCount
For i = 1 To brs
DataGrid1.Row = i - 1
If DataGrid1.Columns(1) = kata Then 'tentukan pada kolom berapa data dicari
MsgBox "Data ditemukan pada baris ke " & i
Exit function
End If
Next
MsgBox "DATA Yang dicari tak ada"
end function
Recent Activity
34
New Members
3
New Files
Visit Your Group
SPONSORED LINKS
Texas driver education
Computer telephony
Christian education
Portable computer
Education
Yahoo! Mail
Next gen email?
Try the all-new
Yahoo! Mail Beta.
New web site?
Drive traffic now.
Get your business
on Yahoo! search.
Y! Messenger
Want a quick chat?
Chat over IM with
group members.
.
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
[Non-text portions of this message have been removed]
