Select Case e.DataCol.name Case "FunitID","FItemID","FSupID","FCyID","FPType","FCurrencyID" If e.DataRow("FunitID") = 0 Or e.DataRow("FItemID") = 0 Or e.DataRow("FSupID") = 0 Or e.DataRow("FCyID") = 0 Or e.DataRow("FPType") = 9 Or e.DataRow("FCurrencyID") = 0 Then e.DataRow("FUsed") = False End If End Select