主题：奇怪

Dim tbl As Table = e.Form.Controls("Table1").Table
Dim r As Row
For Each r In tbl.Rows
    Dim isnull As Boolean = True
    For Each c As Col In tbl.Cols
        If r.IsNull(c.name) = False Then
            isNull = False
        End If
    Next
    If isnull  Then
        MessageBox.Show("表中存在空行,不能保存!")
        Return
    End If   
Next