Error_txtID.DataBindings.Add("Text", ds.Tables(TabName), "e.id")

Select e.*, c.pcindex, c.pcname, c.standort, u.nutzer, u.id FROM error as e, _
  clients as c, users as u WHERE e.UserID = u.id and e.ClientID = c.PCIndex

Error_txtID.DataBindings.Add(New Binding("Text", ds.Tables(TabName), "e.id"))

EALA FREYA FRESENA

Beitrag wurde zuletzt am 30.06.16 um 13:27:05 editiert.

'Deklarationen
Dim dt As New DataTable
Dim bs As New BindingSource
 
Dim tbx As New TextBox With {.Parent = Me}
 
'Spalten und Daten
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("E.ID", GetType(String)) 'kritische Spalte
dt.Columns.Add("E_ID", GetType(String), "E.ID") 'Expression-Column
 
dt.Rows.Add(1, "10")
dt.Rows.Add(2, "20")
 
'Datenbindung
bs.DataSource = dt
tbx.DataBindings.Add(New Binding("Text", bs, "E_ID"))
 
 
'Vom Benutzer geänderte Spalten-Werte müssen explizit eingetragen werden
Private Sub tbx_KeyDown(sender As Object, _
    e As System.Windows.Forms.KeyEventArgs) Handles tbx.KeyDown
 
    If e.KeyCode = Keys.Return Then
       Dim r As DataRowView = DirectCast(bs(bs.Position), DataRowView)
       r.Item("E.ID") = tbx.Text
       bs.EndEdit()
    End If
End Sub