Protected Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click If (inc <> (MaxRows - 1)) Then inc = inc + 1 Next() End If End Sub
MaxRows = dst.Tables("TableName").Rows.Count Private Sub Next() txt_kodi.Value = dst.Tables("TableName").Rows(inc).Item(1) txt_pershkrimi.Valuedst.Tables("TableName").Rows(inc).Item(1)
inc
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)