From e5f6b65a9cb3cdd3ba5bb4da87735f80d01a5537 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 12 Oct 2022 11:23:39 +0200 Subject: [PATCH] Bugfixes --- Aviso/frmFrachtkostenBerechnen.Designer.vb | 2 ++ Aviso/frmFrachtkostenBerechnen.vb | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index 39ebad1..353e30e 100644 --- a/Aviso/frmFrachtkostenBerechnen.Designer.vb +++ b/Aviso/frmFrachtkostenBerechnen.Designer.vb @@ -286,6 +286,7 @@ Partial Class frmFrachtkostenBerechnen Me.cbxLandNach._allowedValuesFreiText = Nothing Me.cbxLandNach._allowFreiText = False Me.cbxLandNach._value = "" + Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append Me.cbxLandNach.FormattingEnabled = True Me.cbxLandNach.Location = New System.Drawing.Point(255, 23) Me.cbxLandNach.Name = "cbxLandNach" @@ -297,6 +298,7 @@ Partial Class frmFrachtkostenBerechnen Me.cbxLandVon._allowedValuesFreiText = Nothing Me.cbxLandVon._allowFreiText = False Me.cbxLandVon._value = "" + Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest Me.cbxLandVon.FormattingEnabled = True Me.cbxLandVon.Location = New System.Drawing.Point(75, 22) Me.cbxLandVon.Name = "cbxLandVon" diff --git a/Aviso/frmFrachtkostenBerechnen.vb b/Aviso/frmFrachtkostenBerechnen.vb index 8869546..6900c80 100644 --- a/Aviso/frmFrachtkostenBerechnen.vb +++ b/Aviso/frmFrachtkostenBerechnen.vb @@ -21,8 +21,6 @@ Public Class frmFrachtkostenBerechnen InitializeComponent() Try - MsgBox(IsNumeric(absID)) - MsgBox(IsNumeric(empfID)) gewicht = IIf(gewichtInput.ToString <> "", CDbl(gewichtInput), 0) @@ -50,13 +48,15 @@ Public Class frmFrachtkostenBerechnen Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load - cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True) + + + cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [VERAG].[dbo].[Adressen] order by LandKz asc", False, "FMZOLL", True, True) + cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", "")) txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'") txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & absenderID & "'") - - cbxLandNach.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) FROM [VERAG].[dbo].[Adressen]", False, "FMZOLL", True, True) + cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", "")) txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'") txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [VERAG].[dbo].[Adressen] where AdressenNr = '" & empfaengerID & "'")