IDS-Stationen, IDS-Preis, cDatenserver, etc.

SDL/kunden/usrCntlIDSPreise.Designer.vb

@@ -40,6 +40,7 @@ Partial Class usrCntlIDSPreise
         Me.btnRW = New System.Windows.Forms.Button()
         Me.btnAdd = New System.Windows.Forms.Button()
         Me.btnExcel = New System.Windows.Forms.Button()
+        Me.btnStationen = New System.Windows.Forms.Button()
         CType(Me.dgvIDSData, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxtAddSdl.SuspendLayout()
         CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -269,11 +270,27 @@ Partial Class usrCntlIDSPreise
         Me.btnExcel.UseVisualStyleBackColor = True
         Me.btnExcel.Visible = False
         '
+        'btnStationen
+        '
+        Me.btnStationen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnStationen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnStationen.ForeColor = System.Drawing.Color.Black
+        Me.btnStationen.ImageAlign = System.Drawing.ContentAlignment.TopLeft
+        Me.btnStationen.Location = New System.Drawing.Point(5, 513)
+        Me.btnStationen.Name = "btnStationen"
+        Me.btnStationen.Size = New System.Drawing.Size(89, 36)
+        Me.btnStationen.TabIndex = 39
+        Me.btnStationen.Tag = ""
+        Me.btnStationen.Text = "Stationen"
+        Me.btnStationen.UseVisualStyleBackColor = True
+        Me.btnStationen.Visible = False
+        '
         'usrCntlIDSPreise
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.btnStationen)
         Me.Controls.Add(Me.btnAdd)
         Me.Controls.Add(Me.btnRW)
         Me.Controls.Add(Me.Label1)
@@ -315,4 +332,5 @@ Partial Class usrCntlIDSPreise
     Friend WithEvents btnRW As Button
     Friend WithEvents btnAdd As Button
     Friend WithEvents btnExcel As Button
+    Friend WithEvents btnStationen As Button
 End Class

SDL/kunden/usrCntlIDSPreise.vb

@@ -40,7 +40,7 @@ Public Class usrCntlIDSPreise
 
             dgvFILTER.Width = dgvIDSData.Width
             For Each c As DataGridViewColumn In dgvIDSData.Columns
-                dgvFILTER.Columns(c.Index).Width = c.Width
+                If c.Visible Then dgvFILTER.Columns(c.Index).Width = c.Width
             Next
 
             If Not dgvInitWait Then
@@ -619,13 +619,14 @@ Public Class usrCntlIDSPreise
             btnEditIDS.Visible = False
             dgvIDS.ReadOnly = True
             btnAdd.Visible = False
+            btnStationen.Visible = False
 
         Else
             enableChanges = True
             dgvIDSData.AllowUserToAddRows = True
             dgvIDSData.AllowUserToDeleteRows = True
             dgvIDSData.RowHeadersVisible = True
-
+            btnStationen.Visible = True
         End If
 
 
@@ -1029,5 +1030,13 @@ Public Class usrCntlIDSPreise
         End If
 
 
+    End Sub
+
+    Private Sub btnStationen_Click(sender As Object, e As EventArgs) Handles btnStationen.Click
+
+        Dim frm As New frmIDS_Stationen("tbl_IDS_Stationen", "FMZOLL")
+        frm.ShowDialog(Me)
+
+
     End Sub
 End Class