Public Class frmData
    Dim dbc As New DB_Connection
    Dim daten As New DB
    Private Sub frmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Globals.conn.sConnectionString = Globals.sConnectionstring
        daten.Get_Applikationsdaten()
        Globals.AppldataRow = 1


        daten.Get_data()
        Me.C1Daten.DataSource = daten.dsDaten.Tables(0)
        Me.C1Daten.DataMember = daten.dsDaten.Tables(0).TableName
        Try
            Me.C1Daten.Columns("aktiv").FilterText = True
            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
            For i As Integer = 1 To C1Daten.Splits(0).DisplayColumns.Count - 1
                Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
            Next
        Catch
        End Try
    End Sub

    Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
        DivFnkt.show_office(Me.C1Daten.Columns("Dokumentid").Value, Me)
    End Sub

    Private Sub DokumentBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentBearbeitenToolStripMenuItem.Click
        Dim doc As New edokadb.clsDokument
        doc.cpMainConnectionProvider = Globals.conn
        doc.sDokumentid = New SqlTypes.SqlString(CType(Me.C1Daten.Columns("Dokumentid").Value, String))
        doc.SelectOne()
        Dim wl As New WordLib
        wl.DokumentID = doc.sDokumentid.Value
        wl.Open_Excel(DivFnkt.Get_Filename(doc.sDokumentname.ToString, ""), doc.sDokumentid.ToString)

    End Sub
End Class