diff --git a/SDL/kunden/usrCntlIDSPreise.Designer.vb b/SDL/kunden/usrCntlIDSPreise.Designer.vb index 067113d4..3157a204 100644 --- a/SDL/kunden/usrCntlIDSPreise.Designer.vb +++ b/SDL/kunden/usrCntlIDSPreise.Designer.vb @@ -23,7 +23,7 @@ Partial Class usrCntlIDSPreise Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblIDS = New System.Windows.Forms.TextBox() Me.dgvOfferteDetails = New System.Windows.Forms.DataGridView() Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -63,8 +63,8 @@ Partial Class usrCntlIDSPreise Me.dgvOfferteDetails.AllowUserToDeleteRows = False Me.dgvOfferteDetails.AllowUserToOrderColumns = True Me.dgvOfferteDetails.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -220,9 +220,8 @@ Partial Class usrCntlIDSPreise Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.Location = New System.Drawing.Point(64, 15) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(11, 13) + Me.Label1.Size = New System.Drawing.Size(0, 13) Me.Label1.TabIndex = 35 - Me.Label1.Text = "." ' 'btnRW ' diff --git a/SDL/kunden/usrCntlIDSPreise.vb b/SDL/kunden/usrCntlIDSPreise.vb index 78d99bbf..7d9f922a 100644 --- a/SDL/kunden/usrCntlIDSPreise.vb +++ b/SDL/kunden/usrCntlIDSPreise.vb @@ -185,9 +185,6 @@ Public Class usrCntlIDSPreise End Select - Label1.Text = cbxTypes._value - - Select Case cbxTypes._value Case "LK", "LKS" 'If kdNr_filter Then SQL_ &= " AND KundenNr=" & kdNr @@ -881,9 +878,7 @@ Public Class usrCntlIDSPreise Private Sub info(text As String) If text <> "" Then - Label1.Text = text - Thread.Sleep(4000) - Label1.Text = "" + MsgBox(text) End If