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