主题：[求助]判断空行后删除

Dim t As Table = e.form.controls("Table1").Table

t.DataTable.DeleteFor("品名 is null and 规格型号 is null")

你需要一次性删除还是一行一行删除？

Dim t As Table = e.form.controls("订货明细表").Table
If t.rows.count = 0 Then
    msgbox("表格为空")
    Return
End If
For i As Integer = t.rows.count-1 To 0 Step -1
    Dim r As Row = t.rows(i)
    If r.Isnull("品名")  Or  r.Isnull("型号规格")  Or  r.Isnull("计量单位") Or  r.Isnull("订货数量") = True Then '有空行
        If  MessageBox.show("有空值,不保存!是否删除空值行?","提示",MessageBoxButtons.YesNo) = DialogResult.Yes  '是否删除'
            r.delete '删除'
        Else
            Return '不删,退出'
        End If
    End If
Next

8楼的是一行一行删除。每删除一行弹出一个提示。

如果要整体删除，参考

Dim t As Table = e.form.controls("订货明细表").Table
If t.rows.count = 0 Then
    msgbox("表格为空")
    Return
End If
For i As Integer = t.rows.count-1 To 0 Step -1
    Dim r As Row = t.rows(i)
    If r.Isnull("品名")  Or  r.Isnull("型号规格")  Or  r.Isnull("计量单位") Or  r.Isnull("订货数量") = True Then '有空行
        If  MessageBox.show("有空值,不保存!是否删除空值行?","提示",MessageBoxButtons.YesNo) = DialogResult.Yes  '是否删除'
            Exit For
        Else
            Return '不删,退出'
        End If
    End If
Next
For i As Integer = t.rows.count-1 To 0 Step -1
    Dim r As Row = t.rows(i)
    If r.Isnull("品名")  Or  r.Isnull("型号规格")  Or  r.Isnull("计量单位") Or  r.Isnull("订货数量") = True Then '有空行
        r.delete
    End If
Next

这个是一行一行保存

dr.save

这个是整体保存

DataTables("订货主表").save

就是放在后面，不就行了？

不会，选择不删除之后，就return了，不会保存、不会执行下面的代码。

修改代码

For Each dr As Row In Tables("工程需求_订货明细表").Rows  '删除后保存
    dr.locked = True
    dr.save
Next