edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

VK Cbam Save, Vollm.ind.

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-24 13:54:29 +01:00
parent c6205619c6
commit 8fdf2b46d1
7 changed files with 212 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.vb
View File

@@ -34,7 +34,6 @@ Public Class frmVorlagen
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
@@ -66,4 +65,16 @@ Public Class frmVorlagen
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.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)
cDATENSERVER.OPEN_SINGLE_ORIG()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class