Moin moin
Ich habe einen DateTimePicker und möchte, dass die TextBox "TBCustomer" nach der Auswahl eines Datums selektiert wird.
Das habe ich nun im ValueCHanged Event des DTP gemacht. Funktioniert aber nicht. Die TB bekommt keinen Fokus, wenn ich ein Datum mit der Maus aus dem DTP auswähle - das Event wird aber gefeuert.
Um dies zu testen, habe ich eine MessageBox im Code eingefügt, mit dieser klappt es. Nachdem ich auf OK klicke, hat meine TB den Fokus, ohne TB eben nicht.
Was mache ich hier falsch?
Ich habe auch das Leave Event des DTP versucht, aber bringt auch nix.
Spoiler anzeigen
Ich habe einen DateTimePicker und möchte, dass die TextBox "TBCustomer" nach der Auswahl eines Datums selektiert wird.
Das habe ich nun im ValueCHanged Event des DTP gemacht. Funktioniert aber nicht. Die TB bekommt keinen Fokus, wenn ich ein Datum mit der Maus aus dem DTP auswähle - das Event wird aber gefeuert.
Um dies zu testen, habe ich eine MessageBox im Code eingefügt, mit dieser klappt es. Nachdem ich auf OK klicke, hat meine TB den Fokus, ohne TB eben nicht.
Was mache ich hier falsch?
Ich habe auch das Leave Event des DTP versucht, aber bringt auch nix.
VB.NET-Quellcode
- Private Sub GetIncome()
- Dim IncomeDate As Date = Date.Parse(DTPIncomeDate.Value.ToString("dd.MM.yyyy"))
- 'Textboxen leeren
- For Each TB As Control In TBList
- TB.Text = ""
- Next
- TBCustomers.Text = ""
- LBLDailyIncome.Text = ""
- 'prüfen ob Datum bereits existiert und in Variable speichern
- Dim IncomeRow = DtsSettings.DailyIncome.FirstOrDefault(Function(x) x._Date.Date = IncomeDate)
- If IncomeRow Is Nothing Then Return
- TBCustomers.Text = IncomeRow.CustomerCount.ToString
- LBLDailyIncome.Text = (IncomeRow.DailyIncome / 100).ToString
- IncomeDate = IncomeRow._Date
- 'Schleife durch ListOf(TB), zum laden der Warengruppeneinnahmen
- For Each TB As Control In TBList
- Dim Groupname As String = TB.Name.Substring(3)
- Dim ProductGroupRow = DtsSettings.Distribution_Table.SingleOrDefault(Function(x) x.DailyIncomeRow._Date.Date = IncomeDate AndAlso x.ProductGroupRow.Name = Groupname)
- If ProductGroupRow Is Nothing Then Return
- TB.Text = (ProductGroupRow.ProductGroupIncome / 100).ToString
- Next
- End Sub