Zitat:

Dim drv As DataRowView = DirectCast(bs.Current, DataRowView)   If Not IsDBNull(drv("VNR")) Then Text = drv("VNR").ToString End If

Dim rwVisVnrTermin = DirectCast(DirectCast(VisVnrTerminBindingSource.Current, _
  DataRowView).Row, VisVnrTerminRow)

dim vnr As String = rwVisVnrTermin.VNR
'bzw
dim vnr = if(rwVisVnrTermin.IsVNRNull, "nicht gesetzt!", rwVisVnrTermin.VNR)
rwVisVnrTermin.VNR="canceled"
'ich vermute in VNR sogar einen ForeignKey, also dass sich dahinter eine 
' ParentRow verbirgt:
dim rwVNR As VNRRow = rwVisVnrTermin.VNRRow 'dies ist der (bereits 
' **typisierte**) Datensatz der übergeordneten Tabelle, auf den die 
' VNR-Property verweist

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 11.04.14 um 07:56:34 editiert.