主题：奇怪

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

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 = false  Then
        r.Save
    End If   
Next

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 c.IsBoolean Then
            If r(c.name) = True  Then
                isNull = False
            End If
        ElseIf r.IsNull(c.name) = False
            isNull = False
        End If
    Next
    If isnull = False  Then
        r.Save
    End If
Next