主题：求满足条件改变字体的方法

首先在菜单的数据表功能区，执行：自定义样式命令

设置  小余1000   字体为红色

在表属性里找到 I绘制---DrawCell

把代码粘贴进去就可以了

If e.Col.Name = "数量" Then
          If e.Row("数量") < 1000 Then
            e.Style = "小余1000"
        End If
   End If