Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.DataColumn
Imports System.EventArgs
Imports System.Drawing
 
Partial Class ersatzbeschaffung_liste
    Inherits System.Web.UI.Page
 
    Private dv As DataView
    Private selitem As String
 
    Protected Sub Page_LoadComplete(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.LoadComplete
 
        'Auffüllen der DropDownList für die Suche
        Dim conn As New SqlConnection("Data Source=DEGWEB01\sqlexpress;Initial" & _
          "Catalog=servicedesk;Trusted_Connection=True")
        Dim cmd As New SqlCommand("SELECT ID, Mitarbeiter, Defektes_Gerät," & _
        "Standort, Defekt_am, Seriennummer, Weitergeleitet_an," & _
        "Weitergeleitet_am, Leihgerät, Ersatzgerät_eingetroffen," & _
        "Ersatzgerät_aufgestellt, Ticketnummer, Datum FROM" & _
        "tbl_ersatzbeschaffung", conn)
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable()
        Dim i As Integer = 0
 
        conn.Open()
        da.Fill(dt)
        conn.Close()
        dv = New DataView(dt)
 
        ddlSuche.Items.Clear()
        ddlSuche.Items.Add("Spalte auswählen")
        For Each c As DataColumn In dt.Columns
            ddlSuche.Items.Add(c.ColumnName)
        Next c
 
    End Sub
 
    'Aufruf PopUp "ersatzbeschaffung_detail.aspx"
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As _
      GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim b As LinkButton = DirectCast(e.Row.Cells(15).FindControl( _
              "LinkButton1"), LinkButton)
            b.OnClientClick = "javascript:window.open(" & _
            "'ersatzbeschaffung_detail.aspx?id=" + CStr(DataBinder.Eval( _
            e.Row.DataItem, "ID")) + "', 'newwindow'," & _
            "config='height=485,width=460, toolbar=no, menubar=no," & _
            "scrollbars=no, resizable=no,location=no, directories=no," & _
            "status=no')"
        End If
    End Sub
 
End Class