主题：导入后空行的删除

订单表的DataColChanging

 

If e.DataCol.Name = "订单ID" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单ID = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单ID已经存在!")
        e.Cancel = True
    End If
End If

 

做了一个导入订单ID的窗口， 导入按钮代码

 

If Tables("导入订单_ID表").rows.Count > 0 Then
    For Each r1 As Row In Tables("导入订单_ID表").GetCheckedRows
        Dim  r2 As Row = Tables("订单表").AddNew
        r2("订单ID") = r1("订单ID")
    Next
    e.Form.close
Else
    MessageBox.Show("无此ID,请重新选择!")
End If

 

如果订单ID重复， 则提示此订单ID已经存在!，点击确定关闭导入窗口， 问题是： 关闭导入窗口后新增了一个空行， 如何在关闭导入窗口后不添加空行或者自动删除新增的空行

 

 

DataTables("xxx").DeleteFor("订单ID Is Null")

谢谢老师，但是需要整行为空才能删除， 如何写， 或者当前行订单ID为空才能删除， 如何写

DataTables("表A").DeleteFor("订单ID Is Null and 第二列 is null and 第三列 is null")