Initial commit

SW/_FRReporting/Formulare/frmDataSelect.vb

@@ -0,0 +1,28 @@
+Public Class frmDataSelect
+
+    Dim m_selectedvalue As String
+    Property SelectedValue As String
+        Get
+            Return m_selectedvalue
+        End Get
+        Set(value As String)
+            m_selectedvalue = value
+        End Set
+    End Property
+    Private Sub frmDataSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
+    End Sub
+
+    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
+        Me.SelectedValue = Me.C1Daten.Columns(0).Value
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+
+    Private Sub C1Beziehungen_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Daten.MouseDown
+        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
+        Exit Sub
+    End Sub
+
+End Class