65 lines
2.0 KiB
VB.net
65 lines
2.0 KiB
VB.net
Public Class usrCntlSearch
|
|
|
|
Dim MAIN As frmCheckIn
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Sub New(MAIN)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.MAIN = MAIN
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged
|
|
initDGV()
|
|
End Sub
|
|
|
|
|
|
Sub initDGV()
|
|
|
|
With MyDatagridview1
|
|
|
|
Dim search = txt.Text
|
|
If search.Length <= 2 Then .Columns.Clear() : Exit Sub
|
|
|
|
Dim sqlstr = "SELECT TOP (20) [AvisoID],[LKW_Nr] LKW,[Frächter],Auftraggeber Avisierer
|
|
FROM [Aviso]
|
|
WHERE ((LKW_Nr LIKE '%" & search & "%') OR (Frächter LIKE '%" & search & "%') OR (Auftraggeber LIKE '%" & search & "%')) AND Status NOT IN (1,2) AND Datum > DATEADD(MONTH,-1 ,GETDATE())
|
|
order by DATUM DESC"
|
|
|
|
' .SET_SQL(sqlstr, "AVISO")
|
|
'.LOAD()
|
|
.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
|
|
|
|
If .RowCount = 0 Then
|
|
.Columns.Clear() : Exit Sub
|
|
End If
|
|
|
|
|
|
.Columns("AvisoID").Visible = False
|
|
.Columns("LKW").Width = 400
|
|
.Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
'.loa.Columns("Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Avisierer").Visible = False
|
|
|
|
' MsgBox(dt.Rows(0)("AvisoID"))
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If MyDatagridview1.SelectedRows.Count > 0 Then
|
|
MAIN.SET_FOUND(MyDatagridview1.SelectedRows(0).Cells("AvisoId").Value)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub usrCntlSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
txt.Focus()
|
|
MAIN.TRANSLATE(Me)
|
|
End Sub
|
|
End Class
|