Tach auch, bekomme die Fehlermeldung an dieser stelle:
Bei
Was mache ich denn nun wieder falsch?
hier der ganze Code
Bei
Option Strict On
bekomme ich die Fehlermeldung, bei Option Strict Off
läuft es wie gewünscht.Was mache ich denn nun wieder falsch?
hier der ganze Code
VB.NET-Quellcode
- Private Sub SubUserFilter()
- Dim strFilter As String
- Dim arrSpilt As Array ' in MS Access war hier "variant"
- Dim strFeld As String = ""
- Dim strText As String = ""
- If Len(txtProjektname.Text) > 0 Then
- strText = "Projektname like '%" & txtProjektname.Text & "%'" & "|" & strText
- End If
- If Len(txtEndkunde.Text) > 0 Then
- strText = "Endkunde like '%" & txtEndkunde.Text & "%'" & "|" & strText
- End If
- If Len(txtEinsatzort.Text) > 0 Then
- strText = "Einsatzort like '%" & txtEinsatzort.Text & "%'" & "|" & strText
- End If
- If Len(txtProjektverantwortlich.Text) > 0 Then
- strText = "Projektverantwortlich like '%" & txtProjektverantwortlich.Text & "%'" & "|" & strText
- End If
- If Len(txtBL.Text) > 0 Then
- strText = "BL like '%" & txtBL.Text & "%'" & "|" & strText
- End If
- If Len(txtKunde.Text) > 0 Then
- strText = "Kunde like '%" & txtKunde.Text & "%'" & "|" & strText
- End If
- arrSpilt = Split(strText, "|")
- For index = 0 To arrSpilt.GetUpperBound(0)
- strFeld = strFeld & arrSpilt(index) & " and "
- Next
- If Len(strFeld) > 1 Then
- strFilter = Replace(strFeld, "and and", "")
- TextBox1.Text = strFilter ' Testbox, damit ich das Ergebnis sehen kann. Löschen wenn Entwicklung beendet ist.
- VwwiedervorlageBindingSource.Filter = strFilter
- Else
- VwwiedervorlageBindingSource.Filter = Nothing
- End If
- txtCount.Text = VwwiedervorlageBindingSource.Position() + 1 & " von " & VwwiedervorlageBindingSource.Count()
- VwwiedervorlageBindingSource.Sort = "AuftragsNr"
- End Sub
Mit freundlichen Dinges
Lupus
P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL
Lupus
P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL