Digitborn.com
Active Member
- Joined
- Apr 3, 2007
- Messages
- 353
Hi,
Please, help me optimize (make shorter code) the following If...Else statement:
You can pass me any variants of statements, loops, number of variables from VB6 or VB.NET.
Please, help me optimize (make shorter code) the following If...Else statement:
If cmbNamespace.Text <> "" Then
strFilter1 = "Namespace = '" & Trim(cmbNamespace.Text) & "'"
strFilter = strFilter1
Else
strFilter1 = ""
End If
If cmbClass.Text <> "" Then
strFilter2 = "Class = '" & Trim(cmbClass.Text) & "'"
strFilter = strFilter2
Else
strFilter2 = ""
End If
If txtType.Text <> "" Then
strFilter3 = "Type like '%" & txtType.Text & "%'"
strFilter = strFilter3
Else
strFilter3 = ""
End If
If strFilter2 = "" And strFilter3 = "" Then
strFilter = strFilter1
ElseIf strFilter2 <> "" And strFilter3 <> "" Then
strFilter = strFilter2 & " And " & strFilter3
End If
If strFilter1 = "" And strFilter3 = "" Then
strFilter = strFilter2
ElseIf strFilter1 <> "" And strFilter3 <> "" Then
strFilter = strFilter1 & " And " & strFilter3
End If
If strFilter1 = "" And strFilter2 = "" Then
strFilter = strFilter3
ElseIf strFilter1 <> "" And strFilter2 <> "" Then
strFilter = strFilter1 & " And " & strFilter2
End If
If strFilter1 = "" And strFilter2 = "" And strFilter3 = "" Then
strFilter = ""
ElseIf strFilter1 <> "" And strFilter2 <> "" And strFilter3 <> "" Then
strFilter = strFilter1 & " And " & strFilter2 & " And " & strFilter3
End If
You can pass me any variants of statements, loops, number of variables from VB6 or VB.NET.