[VB6] Ricerca filtrata dei campi

[ladyBlu]

ho chiamato le combo anteponendo al nome del campo il prefisso "cmb", vedi tu di adeguarlo alle tue necessità

If cmbOperator <> "" Then
    strFiltro = "Operator = '" & cmbOperator & "'"
End If

If cmbData <> "" Then
    If strFiltro <> "" Then strFiltro = strFiltro & " AND "
    strFiltro = "Date = #" & cmbData & "#"
End If

If cmbProject <> "" Then
    If strFiltro <> "" Then strFiltro = strFiltro & " AND "
    strFiltro = "Project = '" & cmbProject & "'"
End If

If cmbCustomer <> "" Then
    If strFiltro <> "" Then strFiltro = strFiltro & " AND "
    strFiltro = "Customer = '" & cmbCustomer & "'"
End If

If cmbLotCode <> "" Then
    If strFiltro <> "" Then strFiltro = strFiltro & " AND "
    strFiltro = "LotCode = '" & cmbLotCode & "'"
End If

Dim blnPassed As Boolean
If cmbPassed = True Then
     blnPassed = -1
  Else
     blnPassed = 0
End If
	
If strFiltro <> "" Then strFiltro = strFiltro & " AND "
strFiltro = "Passed = " & blnPassed

If cmbItem <> "" Then
    If strFiltro <> "" Then strFiltro = strFiltro & " AND "
    strFiltro = "Item = '" & cmbItem & "'"
End If