关于大小比较的疑惑

陈较瘦　发表于：2020-03-01 12:34:29 　

Private Sub Dcolor()
For i = 1 To 12
    n1 = Nz(Me.Controls("ljjs" & i).Value) '每月累积入库数
    n2 = Nz(Me.Controls("bd" & i).Value) '每月必达数
    If n1 < n2 Then
        Me.Controls("ljjs" & i).BackColor = vbRed
        Me.Controls("ljjs" & i).ForeColor = vbBlack
    Else
        Me.Controls("ljjs" & i).BackColor = vbGreen
        Me.Controls("ljjs" & i).ForeColor = vbBlack
    End If
Next i
End Sub

为啥1月的还是红色？不是应该绿色吗？

Top

张志发表于：2020-03-01 20:16:15

用条件格式

Top

陈较瘦发表于：2020-03-03 20:05:53

张老师你好，感谢答复。我上面是纯窗体的，不是基于表的。应该不用了条件格式吧？我发现是我代码错了，Nz(Me.Controls("ljjs" & i).Value) 改为 val(Me.Controls("ljjs" & i)) 就行了。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

关于大小比较的疑惑