Проблема с Textbox.Databindings

[AlekseyVB]

Есть база данных SQLite, открыл подключение, заполнил адаптер. Необходимо отразить в ТекстБокс какое-нибудь значение поля Name. Делаю так:

Код: Выделить всё

TextBox1.DataBindings.Add("Text", DS, "tblKindsOfActions.Name")

В ТекстБоксе отражается всегда первое значение. Каким образом можно осуществить переход отображаемого в ТекстБоксе значения к следующему или предыдущему?

[AlekseyVB]

Нашёл решение)

Код: Выделить всё

Dim CM As CurrencyManager

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.DataBindings.Add(New Binding("Text", DS, "tblKindsOfActions.Name"))
        CM = CType(BindingContext(DS, "tblKindsOfActions"), CurrencyManager)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CM.Position += 1
End Sub