'IM PAGE LOAD
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
            Me.DropDownList1.DataSource = Funktionen.GetResultfromDB(sql) '<-gibt Datareader zurück
            Me.DropDownList1.DataTextField = "betrieb"
            Me.DropDownList1.DataValueField = "facodemam"
            Me.DropDownList1.DataBind()
end if
end sub

   Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Load_Data()
    End Sub
Sub Load_Data()
        Dim sql As String

        sql = "Select * from webfbo.V_LG_AUSWERTUNG_TAG " & _
              "where (firma = " & Me.cboBetrieb.SelectedValue & " And betrieb = " & Me.cboBetrieb.SelectedItem.Text & ") "
        Me.GridDaten.DataSource = Funktionen.GetResultfromDB(sql)
        Me.GridDaten.DataBind()
end sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Dim SQL As String
            SQL = "select distinct betrieb,facodemam from webfbo.usr_betriebe where upper(userid) = '" & User.Identity.Name.ToUpper & "' order by betrieb"
            Me.DDLKST.DataSource = Funktionen.GetResultfromDB(SQL)
            Me.DDLKST.DataTextField = "Betrieb"
            Me.DDLKST.DataMember = "Betrieb"
            Me.DDLKST.DataValueField = "Betrieb"
            Me.DDLKST.DataBind()
            Me.DDLKST.SelectedValue = ""
        End If
    End Sub

    Protected Sub DDLKST_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLKST.SelectedIndexChanged
        Dim sql As String
        sql = "select decode(bukrs,114,'Real ',480,'Extra ')||KST||' in '||plz||' '||ort||', '||strasse from nice_kst where kst = " & Me.DDLKST.SelectedItem.Text
        Me.lblInfo.Text = Funktionen.GetTextResultfromDB(sql, "|")
    End Sub
End Class