You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
1.5 KiB
37 lines
1.5 KiB
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 |