主题：如何实现空行不保存

Dim nms() As String = {"客户全称","客户","地址","联系电话","联系人","联系人手机","付款天数","客户英文简称"}   '不允许为空的列名
Dim r As Row = Tables("客户信息").Current
For Each nm As String  In nms
    If r.isnull(nm) Then
         messagebox.show(nm & "必须输入内容")
         Return
    End If
Next
r.Save