主题：自动增加行

表A班级和数量输入内容后，如果没有空行，自动增加一行，如果有二行删除一行，请老师指教，谢谢！

dr = DataTables("表A").Find("班级 Is Not Null And 数量 > 0")
If dr IsNot Nothing Then
    DataTables("表A").AddNew
Else
    DataTables("表A").DataRows.Delete
End If

在 DataColChanged

班级、数量都输入值，增加一行，如果班级、数量都删除值，空白行有两行及以上删除，只保留一行空白行。

这样输入班级或者数量都会增加一行，错在哪里？

dr = DataTables("表A").Find("班级 Is Not Null And 数量 > 1")
If dr IsNot Nothing
    DataTables("表A").AddNew
Else
    If 空白行 > 1 Then
        dr.Delete
    End If
End If