主题：[求助]

 1、新增10行 Tables("凭证.凭证明细").AddNew(10)

 

 2、保存有数据的行，先删除空行，再保存

 

For Each r As Row In Tables("凭证.凭证明细").Rows
    If r.IsNull("第一列") OrElse r.IsNull("第二列") Then
        r.Delete
    Else
        r.Save
    End If
Next

 无法编辑？表控件那里，允许编辑设置成true啊

 那就不可能不允许编辑。

 

 例子说明。

 自动编号，这样做

 

http://www.foxtable.com/help/topics/0630.htm

 

http://www.foxtable.com/help/topics/2403.htm

 

 有点问题

 

For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
    Dim r As Row = Tables("表A").Rows(i)
    If r.IsNull("第一列") OrElse r.IsNull("第二列") Then
        r.Delete
    Else
        r.Save
    End If
Next

如果是全部为空，要这样写

 

For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
    Dim r As Row = Tables("表A").Rows(i)
    If r.IsNull("第一列") AndAlso r.IsNull("第二列") Then
        r.Delete
    Else
        r.Save
    End If
Next

 不可能。看10楼、11楼啊

 

 例子上传上来。