|
Dim filter As String = "1=1"
For Each dc As DataCol In DataTables("表A").DataCols
filter &= " and " & dc.Name & " Is not null"
Next
Dim fdr As DataRow = DataTables("表A").Find(filter, "_sortkey")
Dim sidx As Integer = Tables("表A").FindRow(fdr)
fdr = DataTables("表A").Find(filter,"_sortkey desc")
Dim eidx As Integer = Tables("表A").FindRow(fdr)
For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
If i < sidx OrElse i > eidx Then
Tables("表A").Rows(i).delete
End If
Next
|
加好友 
发短信
Post By：2015/6/28 16:09:00 [只看该作者]
