标题：移出行问题

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

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

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

一行就行：

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

nnd，别都烂在肚里