主题：移出行问题

DataTables("订单").DataRows(0).Remove()

请问移除表A第一列不为空的行代码应该怎么写，谢谢

If DataTables("订单").DataRows(0)("第一列") <> Nothing Then
DataTables("订单").DataRows(0).Remove()
End If

If DataTables("订单").isnull("第一列")= False Then DataTables("订单").DataRows(0).Remove() End If

这样会更好

谢谢2为老师

我的代码是用在窗口按钮中，怎么2楼的提示出错，好像第一句语法有问题。谢谢

Dim dt As Table = Tables("表A")
Dim r As Integer
Dim drs As List(Of DataRow) = DataTables("表A").Select("[第一列] Is Not Null")
For n As Integer = 0 To drs.Count -1
    r = dt.FindRow("[第一列] = '" & drs(n)("第一列") & "'", dt.Position + 1, True )
    If r >= 0 Then
    DataTables("表A").DataRows(r).Remove()
    End If
Next

 

楼上的代码少考虑了一个问题，改成这样：

 

Dim dt As Table = Tables("表A")
Dim r As Integer
Dim drs As List(Of DataRow) = DataTables("表A").Select("[第一列] Is Not Null","_Identify")
For n As Integer = 0 To drs.Count -1
    r = dt.FindRow("[第一列] = '" & drs(n)("第一列") & "'", dt.Position + 1, True )
    If r >= 0 Then
    DataTables("表A").DataRows(r).Remove()
    End If
Next

谢谢C版

一行就行：

 

DataTables("xxx").RemoveFor("条件表达式")

 

 

nnd，别都烂在肚里