Imports System.ComponentModel
Public Class eQM_UC_ComboBox
    Inherits System.Windows.Forms.UserControl
    'Die Combobox benötigt das Formular frmeQMComboBoxList
    Private fr As New frmeqmComboBoxListe()
    Private QuerryDataSet As DataSet
    Private QuerryDataTable As String
    Private QuerryTableAndID As String
    Private QuerryTableAndValue As String
 
#Region " Vom Windows Form Designer generierter Code "
'Hier werden noch keine Bindings vergeben, erst in InitMe()
        'txtQuerryID
        'txtSourceBindingID
        'txtQuerryValue
        'cmdAnzeige
        'txtBorder
        'txtAnzeige
        'eQM_UC_ComboBox
#End Region
 
    Public Sub initMe(ByVal MainDataSet_ As DataSet, ByVal QuerryDataSet_ As _
      DataSet, ByVal QuerryName As String, ByVal MainTableAndValue_ As String, _
      ByVal QuerryTableAndID_ As String, ByVal QuerryTableAndValue_ As String)
        'Variable werden initialisiert
        QuerryTableAndID = QuerryTableAndID_
        QuerryTableAndValue = QuerryTableAndValue_
        Me.QuerryDataSet = QuerryDataSet_
        Me.QuerryDataTable = QuerryName
        'Textfelder werden an die DatenTabellenFelder angebunden.
        Me.txtSourceBindingID.DataBindings.Clear()
        Me.txtSourceBindingID.DataBindings.Add("Text", MainDataSet_, _
          MainTableAndValue_)
 
        'Dataview zum Filtern und Datagrid für Anzeige werden angebunden
        Me.fr.DGAnzeige.DataSource = QuerryDataSet_
        Me.fr.DGAnzeige.DataMember = QuerryName
        Me.txtQuerryValue.DataBindings.Clear()
        Me.txtQuerryValue.DataBindings.Add("Text", Me.fr.DGAnzeige.DataSource, _
          QuerryTableAndID_)
        Me.txtQuerryID.DataBindings.Clear()
        Me.txtQuerryID.DataBindings.Add("Text", Me.fr.DGAnzeige.DataSource, _
          QuerryTableAndValue_) ' QuerryDataSet_, QuerryTableAndValue_)
 
        Dim trueorfalse As Boolean
        trueorfalse = Me.txtQuerryValue.BindingContext.Contains( _
          Me.fr.DGAnzeige.DataSource, QuerryName)
        MsgBox(trueorfalse.ToString)
'...Hier habe ich auch die anderen Felder überprüft.
    End Sub
 
    Private Sub txtSourceBindingID_TextChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles txtSourceBindingID.TextChanged
        Try
            NeuerWert  = '...
            Me.txtAnzeige.Text = NeuerWert 
        Catch
            '    Me.txtAnzeige.Text = ""
        End Try
    End Sub
 
    Private Sub txtQuerryValue_TextChanged(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles txtQuerryValue.TextChanged
        If Me.txtQuerryValue.Text = Me.txtSourceBindingID.Text Then
            'Nichts tun
        Else
            Me.txtSourceBindingID.Text = Me.txtQuerryValue.Text
        End If
    End Sub
 
    Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdAnzeige.Click
        Dim frmT As Integer
        Dim frmL As Integer
        Dim bind_test As Binding
        Try
            'Oberkante des Anzeigebereichs wird ermittelt
            frmT = getTop(Me) + Me.Height
            'Linke Kante des Anzeigebereichs wird ermittelt.
            frmL = getLeft(Me) + 4
            'Anzeigefenster wird Positioniert und eingestellt.
            fr.Width = Me.txtBorder.Width
            fr.Height = 300
            fr.Top = frmT
            fr.Left = frmL
            Me.fr.ShowDialog()
        Catch
        End Try
    End Sub
 
    Private Sub UC_Resize(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Resize
'...
    End Sub
 
    Public Function getTop(ByVal Objekt As Object) As Integer
'...
    End Function
 
    Public Function getLeft(ByVal Objekt As Object) As Integer
'...
    End Function
 
End Class

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)