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

第一个问题，不需要特地去禁用和启用各个按钮，这样太罗嗦，只需在保存按钮的代码前面加入一段代码，用于判断当前行是否是空行，如果是的，则拒绝保存。

第二个问题，试试这样：

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("客户资料").Current
    Dim dr As DataRow = DataTables("省份地区表").Find("省份 = '" & ps(0) & "' And 地区 = '" & ps(1) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("销售区域") = dr("省份") + dr("地区")
        e.Form.DropDownBox.Value = dr("省份") + dr("地区")
    End If
    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
End If

Dim nms() As String = {"列1","列2","列3"}   '不允许为空的列名

dim r As Row = Tables("XX").Current

For each nm AS string  in nms

    if r.isnull(nm) Then

         messagebox.show(nm & "必须输入内容")

         return

    end if

next

r.Save