Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Das erstellen der Connection etc. hab ich jetzt hier
'weggelassen
Dim ds As DataSet = New DataSet
da.Fill(ds, "artikel")
Dim dt As DataTable = ds.Tables("artikel")
Me.TextBox1.DataBindings.Add("Text", dt, "bezeichnung")
'checkbox_Robinson.DataBindings.Add("int", dt, "robinsonliste");
'radioButton_Variante_1.DataBindings.Add("1", dt, "variante_1");
Dim bnd_chk As Binding = New Binding("CheckState", dt, "srpflicht")
' Formatierungs- und Parse-Handler
AddHandler bnd_chk.Format, AddressOf IntToChecked
AddHandler bnd_chk.Parse, AddressOf CheckedToInt
Me.CheckBox1.DataBindings.Add(bnd_chk)
End Sub
Private Sub IntToChecked(ByVal sender As Object, ByVal cevent As ConvertEventArgs)
If cevent.Value Is System.DBNull.Value Then
cevent.Value = CheckState.Indeterminate
Else
Select Case CInt(cevent.Value.ToString)
Case 0
cevent.Value = CheckState.Unchecked
Case 1
cevent.Value = CheckState.Checked
Case Else
cevent.Value = CheckState.Indeterminate
End Select
End If
End Sub
Private Sub CheckedToInt(ByVal sender As Object, ByVal cevent As ConvertEventArgs)
Select Case True
Case CType(cevent.Value, Integer) = CheckState.Unchecked
cevent.Value = 0
Case CType(cevent.Value, Integer) = CheckState.Checked
cevent.Value = 1
Case CType(cevent.Value, Integer) = CheckState.Indeterminate
cevent.Value = System.DBNull.Value
End Select
End Sub