فقط شرمنده که کد برای VB.net

Protected ReadOnly Property CurrencyManager() As CurrencyManager
Get
Return CType(BindingContext(DataSource, Datamember), CurrencyManager)

End Get
End Property
Public ReadOnly Property DataRowView() As DataRowView
Get

Dim o As Object = CurrencyManager.Current
If TypeOf o Is DataRowView Then
Return CType(o, DataRowView)
Else
Return Nothing
End If
End Get
End Property


من این یه نمونه کد رو برای برنامه ی خاصی نوشتم
تو هم می تونی با نوشتن اسم dataset به جای datasource ونام تیبلت به جای datamember,این قطعه کد رو به برنامت اضافه کنی
و هر جا که خواستی به طور مثال این جوری ازش استفاده کنی
DataRowView("code_reshte")

یا
DataRowView("reshte_honari")

در ضمن نام dataset شما ds,
table شما "tbl_grouphonari",که حتما نام table رو باید string بدی