نام جدول : object_grid
تعداد کل رکوردها را بدست آورید.
مقدار فیلد کلید از سطر جاری (current row) را بدست آورید.
آن را در dataset جستجو کنید .
مفدار ستون مورد نظر از آن سطر را بدست آورید.
'محاسبه تعداد رکوردها
Dim all_count As Integer = object_set.Tables(0).Rows.Count
Dim i, find_i As Integer
'مقدار فیلد کد از سطر انتخاب شده از جدول را محاسبه می کند
Dim this_code As Long = object_grid.Item(object_grid.CurrentCell.RowNu mber, 0)
Dim code As Long
For i = 0 To all_count - 1 'کد را در دیتاست جستجو می کند
Try
code = object_set.Tables(0).Rows(i).Item& #40;0)
If this_code = code Then
find_i = i
Exit For
End If
Catch
End Try
Next
'فیلد نام از رکوردی که فیلد کد آن از سطر جاری جدول بدست آمده را بدست می آورد
Textbox1 = object_set.Tables(0).Rows(find_i). Item(1)