Mein Problem schien mir Einfach aber ich bekomme es nicht hin.
Ich habe eine ein TEXTFELD das ich mit einer Single Variable gefüllt habe.
Ich möchte folgende Funktion haben
Bei gleichen Wert Nichts machen ==> OK
Beim Ändern des Wertes Update ==> OK
Beim Löschen des Feld soll Delete ausgeführt werden ==> OK
Beim Erneuten eintrages eines Wertes (nicht 0) wenn das Feld vorher leer war ein Insert ==> OK
Beim Erneuten eintrages eines Wertes (mit 0) wenn das Feld vorher leer war ein Insert ==> das klappt nicht
Ich bekomme immer eine 0 zurück obwol das Feld leer ist
Ich bin ein absoluter Neuling in VB und habe mit Integer, Single und Double Variable benutzt.
Könnte mir Jemand einen kleinen Tipp geben.
Mein TEXTFELD
Stufe Abfrage
Ich habe eine ein TEXTFELD das ich mit einer Single Variable gefüllt habe.
Ich möchte folgende Funktion haben
Bei gleichen Wert Nichts machen ==> OK
Beim Ändern des Wertes Update ==> OK
Beim Löschen des Feld soll Delete ausgeführt werden ==> OK
Beim Erneuten eintrages eines Wertes (nicht 0) wenn das Feld vorher leer war ein Insert ==> OK
Beim Erneuten eintrages eines Wertes (mit 0) wenn das Feld vorher leer war ein Insert ==> das klappt nicht
Ich bekomme immer eine 0 zurück obwol das Feld leer ist
Ich bin ein absoluter Neuling in VB und habe mit Integer, Single und Double Variable benutzt.
Könnte mir Jemand einen kleinen Tipp geben.
Mein TEXTFELD
Stufe Abfrage
VB.NET-Quellcode
- If txt_master_1.Text = "" Then
- txt_m_1 = Nothing
- Else
- txt_m_1 = CSng(txt_master_1.Text)
- End If
- Call MsgBox(txt_m_1)
- Select Case True
- Case (txt_m_1 = Nothing And master_1 = Nothing)
- Call MsgBox("Jetzt muss nichts gemacht der Wert ist leer")
- Case (txt_m_1 = master_1)
- Call MsgBox("Jetzt muss nichts gemacht der Wert ist gleich")
- Case (txt_m_1 = Nothing And master_1 <> Nothing)
- Call MsgBox("Jetzt löschen befehl")
- master_1 = Nothing
- Case (txt_m_1 <> Nothing And master_1 = Nothing)
- Call MsgBox("Jetzt insert befehl Wert war größer vorher oder war leer ")
- master_1 = txt_m_1
- Case (txt_m_1 <> master_1 And txt_m_1 <> Nothing)
- Call MsgBox("update der feldes ")
- master_1 = txt_m_1
- End Select