以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如行判断空行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92453)
--  作者：njl2016k9
--  发布时间：2016/11/3 16:07:00
--  如行判断空行
一张表有列，但无任何数据，即全是“空行”，如何用语句判定空行？
求写在”按钮“上的动作语句。
--  作者：有点蓝
--  发布时间：2016/11/3 17:36:00
--  
Dim all As Boolean = True
For Each dr As DataRow In DataTables("表A").DataRows
    Dim rll As Boolean = True
    For Each c As DataCol In DataTables("表A").DataCols
        If c.Name.StartsWith("_") = False 
            If (c.IsBoolean = False And  not dr.IsNull(c.Name)) OrElse (c.IsBoolean  AndAlso dr(c.Name) = True)
                rll = False
                Exit For
            End If
        End If
    Next
    If rll Then
        Output.Show("空行,ID" & dr("_Identify"))
    Else
        all = False
    End If
Next

If all Then
    Output.Show("空表")
End If
--  作者：njl2016k9
--  发布时间：2016/11/4 7:40:00
--  
谢谢！