Feldvalidatoren wurden für alle Desktop- sowie Mobilansichten eingerichtet.
This commit is contained in:
@@ -160,7 +160,7 @@ Partial Class Kundenbereich_Default
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID").ToString
|
||||
Catch A As UnauthorizedAccessException When Kdnrtext = Nothing
|
||||
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID augetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
End Try
|
||||
dt = Nothing
|
||||
If txt_Absender.Text IsNot "" Then
|
||||
@@ -437,6 +437,11 @@ Partial Class Kundenbereich_Default
|
||||
End Sub
|
||||
|
||||
Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
|
||||
|
||||
Dim TB As TextBox = sender
|
||||
If TB.Text = "" Then
|
||||
TB.Attributes.Add("Border", "2px solid red")
|
||||
Else
|
||||
TB.Attributes.Add("Border", "None")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user