| Forum: VB.NET |
Thema:
CheckBox an Datenbank |
Von:
(
05.12.2007 12:11) |
Hallo Leute, bin Neuling in der .Net Welt komme aus dem C++ Builder Universum von Borland. Will mich aber jetzt langsam mal umstellen.Also folgende Frage: Ich verwende folgenden Code um eine Checkbox an ein Feld in dr Datenbank anzubinden.
Das Feld ist Integer. Es wird 0 oder 1 eingetragen.
Leider funktioniert es nicht, ich kann einfach den Fehler nicht Finden. 'bsUser = BindingSource
Dim b_checked As New Binding("CheckState", bsUser, "usr_standart")
AddHandler b_checked.Format, AddressOf IntToChecked
AddHandler b_checked.Parse, AddressOf CheckedToInt
cbStandart.DataBindings.Add(b_checked)
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 cevent.Value
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 cevent.Value = CheckState.Unchecked
cevent.Value = 0
Case cevent.Value = CheckState.Checked
cevent.Value = 1
Case cevent.Value = CheckState.Indeterminate
cevent.Value = System.DBNull.Value
End Select
End Sub
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
