如果数据库中的值为空，请将单元格的颜色更改为红色

Question

我开发了Excel宏，它从数据库中获取数据。如果数据库中的值为空，我想更改单元格的颜色。我有这个代码。但是下面的代码不起作用。

If Not rs.EOF Then
For n = 0 To rs.Fields.Count - 1
   objSheet.Cells(iRow, iCol).Value = rs.Fields.Item(n)
         If UCase(rs.Fields.Item(n).Name) = "ORDER_STATUS" Then
            If UCase(rs.Fields.Item(n)) = "" Then
                objSheet.Cells(iRow, iCol).Interior.ColorIndex = 3
                  Else
                   objSheet.Cells(iRow, iCol).Interior.ColorIndex = 4
                    End If
                      End If

Answer 1

反过来尝试相同的代码..

If UCase(rs.Fields.Item(n)) <> "" Then
    objSheet.Cells(iRow, iCol).Interior.ColorIndex = 4
    Else
    objSheet.Cells(iRow, iCol).Interior.ColorIndex = 3
End If

希望这会对你有所帮助:)。