حل مشكلة البحث

السلام عليكم

لقد توصلت مؤخرا لحل مشكل البحث التى كانت تواجهنى والتى تخص Currancy Manager

وأتمنى أن يفيدكم هذا الحل وانا مستعد لأى استفسارات

Dim vue As New DataView(DsWakf.TblWakf)

vue.Sort = "WakfCode"

Dim intIndex As Integer = vue.Find(SearchKeyN)

If intIndex = -1 Then

Console.WriteLine("Row not found!")

Else

CmWakf.Position = intIndex

End If

حيث DsWakf هو اسم الداتا ست

TblWakf هو اسم الجدول داخل الداتا سيت

WakfCode هو اسم حقل البحث

SearchKeyN متغير يحمل قيمة البحث

CmWakf هو "Currancy Manager"