69 lines
3.0 KiB
VB.net
69 lines
3.0 KiB
VB.net
Imports System.Windows.Forms
|
|
|
|
Public Class frmVorlagen
|
|
|
|
Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
|
|
Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagenUpload
|
|
vu.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
Private Sub frmVorlagenUpload_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
initDGV()
|
|
End Sub
|
|
Sub initDGV(Optional searchstring As String = "")
|
|
Dim SQLString = ""
|
|
If searchstring <> "" Then
|
|
SQLString = " AND ([da_kategorie] like '%" & searchstring & "%' OR [da_vorlage] like '%" & searchstring & "%' OR [da_ordner] like '%" & searchstring & "%' OR [da_uOrdner1] like '%" & searchstring & "%' OR [da_uOrdner2]like '%" & searchstring & "%' OR [da_uOrdner3]like '%" & searchstring & "%' OR [da_name] like '%" & searchstring & "%')"
|
|
End If
|
|
With dgvVolagen
|
|
.Columns.Clear()
|
|
.SET_SQL("SELECT [da_id],[da_kategorie],[da_ordner] ,[da_name],da_uOrdner1,da_uOrdner2,da_uOrdner3 FROM [tblDatenarchiv] where da_vorlage=1" & SQLString, "FMZOLL")
|
|
.LOAD()
|
|
If .ColumnCount > 0 Then
|
|
'.Columns("da_uOrdner1").Visible = False
|
|
.Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
End If
|
|
lblCount.Text = "Anzahl Datensätze" & dgvVolagen.Rows.Count
|
|
End With
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvVolagen.DoubleClick
|
|
If dgvVolagen.SelectedRows.Count = 0 Then Exit Sub
|
|
Dim r As DataGridViewRow = dgvVolagen.SelectedRows(0)
|
|
Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(r.Cells("da_kategorie").Value, r.Cells("da_ordner").Value, r.Cells("da_uOrdner1").Value, r.Cells("da_uOrdner2").Value, r.Cells("da_uOrdner3").Value, r.Cells("da_name").Value)
|
|
MsgBox(cDATENSERVER.DATA_LIST.LIST.Count)
|
|
cDATENSERVER.OPEN_SINGLE()
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
If dgvVolagen.SelectedRows.Count = 0 Then Exit Sub
|
|
|
|
Try
|
|
Dim r As DataGridViewRow = dgvVolagen.SelectedRows(0)
|
|
Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(r.Cells("da_kategorie").Value, r.Cells("da_ordner").Value, r.Cells("da_uOrdner1").Value, r.Cells("da_uOrdner2").Value, r.Cells("da_uOrdner3").Value, r.Cells("da_name").Value)
|
|
If cDATENSERVER.uploadDataToDATENSERVERFileDialog() <> "" Then
|
|
dgvVolagen.RELOAD()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
If txtSuche.Text <> "" Then
|
|
Me.initDGV(txtSuche.Text)
|
|
e.Handled = True
|
|
Else
|
|
Me.initDGV()
|
|
e.Handled = True
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
End Class |