[مساعدة]

تفضل التعديل الجزئية المطلوبة

كود :

Public Sub changeposition()
        Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من" & _
            Me.BindingContext(dataset1, "table1").Count

     End Sub