Bug Speichern Inherit Value und ReadOnly Columns
This commit is contained in:
@@ -64,6 +64,17 @@ Public Class frmColumn_Detail
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Private Sub READ_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles READ_ONLYCheckBox.CheckedChanged
|
||||
Console.WriteLine($"READ_ONLY changed to: {READ_ONLYCheckBox.Checked}")
|
||||
Console.WriteLine($"CheckEditInheritValue is now: {CheckEditInheritValue.Checked}")
|
||||
End Sub
|
||||
|
||||
Private Sub CheckEditInheritValue_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEditInheritValue.CheckedChanged
|
||||
Console.WriteLine($"CheckEditInheritValue changed to: {CheckEditInheritValue.Checked}")
|
||||
Dim stackTrace As New StackTrace()
|
||||
Console.WriteLine($"Called from: {stackTrace}")
|
||||
End Sub
|
||||
|
||||
Sub Save_Data()
|
||||
Try
|
||||
TBPM_CONTROL_TABLEBindingSource.EndEdit()
|
||||
@@ -92,7 +103,7 @@ Public Class frmColumn_Detail
|
||||
)
|
||||
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
tslblAenderungen.Caption = "Änderungen gespeichert - " & Now
|
||||
FillData(GUIDTextBox.Text)
|
||||
' FillData(GUIDTextBox.Text)
|
||||
Else
|
||||
tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user