以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单元格不能为空 并定位颜色提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176575)
--  作者：yifan3429
--  发布时间：2022/4/18 21:05:00
--  单元格不能为空 并定位颜色提示
 
                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
--  作者：有点蓝
--  发布时间：2022/4/18 21:13:00
--  
设置颜色只能放到到drawcell事件
--  作者：yifan3429
--  发布时间：2022/4/18 21:16:00
--  
 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
                Next
--  作者：有点蓝
--  发布时间：2022/4/18 22:07:00
--  
                        If r.IsNull(c) Then
r.DataRow.SetError(c, "不能为空")
                            \'MessageBox.Show(c &"不能为空",Vars("昵称"))
                            Return ""
                        End If