From 39837250f172eef017fd4ddde9a9f804cccc3385 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 11 Jan 2023 08:43:25 +0100 Subject: [PATCH] GUI Verbesserung Warenorte --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmWarenorte.vb | 14 ++++++++++++-- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 28195e7..a92149f 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmWarenorte.vb b/Aviso/frmWarenorte.vb index b62c835..335ebb5 100644 --- a/Aviso/frmWarenorte.vb +++ b/Aviso/frmWarenorte.vb @@ -44,7 +44,9 @@ Public Class frmWarenorte .Columns("wo_warenort").HeaderText = "Warenort" .Columns("wo_bezeichnung").Visible = False .Columns("wo_aktiv").Visible = False - .Columns("wo_firma").Visible = False + '.Columns("wo_firma").Visible = False + .Columns("wo_firma").HeaderText = "Firma" + .Columns("wo_firma").Width = 70 End With @@ -130,7 +132,15 @@ Public Class frmWarenorte End If - Dim WarenortNew As New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_warenort").Value, dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value) + Dim WarenortNew As cWarenorte + + If dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value Is DBNull.Value Then + WarenortNew = New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_warenort").Value, DBNull.Value) + Else + WarenortNew = New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_warenort").Value, dgvWarenorteNew.SelectedRows(0).Cells("wo_firma").Value) + + End If + txtWarenort.Text = WarenortNew.wo_warenort txtBezeichnung.Text = WarenortNew.wo_bezeichnung