In your example, you are comparing the same string value (strFieldValue). If that really is the case, in other words, if, based on one field, you need to change a bunch of fields, simply do the following:
Select Case strFieldValue
Case "-1"
.FDFSetValue "Cigarettes", "X", False
.FDFSetValue...