主题：单元格不能为空 并定位颜色提示

 
                Dim Cols1() As String = {"区域名称","区域楼层" }
                For Each r As Row In Tables("订单_产品主表").Rows
                    For Each c As String In Cols1
                        If r.IsNull(c) Then
                            e.Style = "警告"  无效
                            MessageBox.Show(c &"不能为空",Vars("昵称"))
                            Return ""
                        End If                                           
                    Next
                Next

 Dim Cols1() As String = {"区域名称","区域楼层" }
                For Each r As Row In Tables("订单_产品主表").Rows
                    For Each c As String In Cols1
                        If r.IsNull(c) Then
                            c.SetError("c", "不能为空")   这个方案怎么解决呢
                            'MessageBox.Show(c &"不能为空",Vars("昵称"))
                            Return ""
                        End If
                    Next