主题：自动输入问题

 Datacolchanged事件

Select e.DataCol.name
    Case "某一列"
        If e.DataRow("某一列") > 2500 AndAlso e.DataRow("某一列") <= 3000 Then
            e.DataRow("建议列") = "未超标"
        End If
        If e.DataRow("某一列") > 3000 Then
            e.DataRow("建议列") = "超标"
        End If
End Select