主题：如何删除表中的数字行效率最高？

写sql语句吧

 

Delete From {表A} Where ISNUMERIC(第一列)

 

你的是Access数据库还是SqlServer数据库？

 

如果是Sqlserver，你可以用Replace把.替换成空白

 

Delete From {表A} Where ISNUMERIC(Replace(第一列, '.', ''))

 如果，你的是Access，你可以在数据库里面，加入一个Replace函数。

Dim dt As DataTable = DataTables("表A")
Dim sb As new stringbuilder
Dim r As New System.Text.RegularExpressions.Regex("^[0-9.]+$")
For Each dr As DataRow In dt.Select("")
    If r.ismatch(dr("第一列")) Then
        sb.append(dr("_Identify") & ",")
    End If
Next
Tables("表A").Filter = "_Identify in (" & sb.tostring & ")"
'dt.deletefor("_Identify in (" & sb.tostring & ")")

 

不就是循环每一行，满足条件的就记录一下，最后筛选或删除吗？