Update 2024-01-10

This commit is contained in:
Stefan Hutter
2024-01-10 09:40:00 +01:00
parent 6164ec3d16
commit 2d7f517e98
148 changed files with 2871 additions and 940 deletions

View File

@@ -127,6 +127,7 @@ Public Class frmSuche
Me.SuperTabItem1.Text = "Kunde"
Me.SuperTabItem2.Visible = False
End If
If Globals.DruckBranche = False Then Me.SuperTabControl1.Tabs(5).Visible = False
End Sub
@@ -286,7 +287,7 @@ Public Class frmSuche
Private Sub btnSucheFreitext_Click(sender As Object, e As EventArgs) Handles btnSucheFreitext.Click
Dim db As New clsDB
db.Get_Tabledata("Freitextsuche", "", db.Get_SQL(40), Me.txtsucheFreitext.Text)
db.Get_Tabledata("Freitextsuche", "", db.Get_SQL(50), Me.txtsucheFreitext.Text)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = db.dsDaten.Tables(0)
Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName