AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 09.01

Browse Source
This commit is contained in:
Jonathan Jenne
2018-01-09 15:24:19 +01:00
parent 62a3cc3eb8
commit e0fe5e3707
4 changed files with 610 additions and 542 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SchaumKommiCollo/KommiCollo/frmPrintOptions.vb
View File

@@ -126,12 +126,13 @@ Public Class frmPrintOptions
End Sub
Private Sub btnUebernahme_Click(sender As Object, e As EventArgs) Handles btnUebernahme.Click
Try
Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True, False)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
'Try
' Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
' Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True, False)
'Catch ex As System.Exception
' System.Windows.Forms.MessageBox.Show(ex.Message)
'End Try
Dim report As New reportUebergabe()
report.CreateDocument(False)