主题：保存按钮在合计行报错

Dim nms() As String = {"条码"} '不允许为空的列名
Dim r As Row = Tables("采购列表.采购明细").Current
If DataTables("采购明细").DataRows.Count = 0 Then
    Forms("采购明细").Close()
    Else
        For Each nm As String In nms
    If r.isnull(nm) Then
         messagebox.show(nm & "必须输入内容")
         Return
    End If
    Next
    r.Save
End If

 

 

老师问一下，，为什么在鼠标点击了合计行，，保存报错，，点击表格行上可以保存

此主题相关图片如下：捕获.png

参考：http://www.foxtable.com/webhelp/topics/0445.htm，判断一下current是否为空