Dim dt As DataTable = DataTables("表A") For i As Integer = dt.datarows.count-1 To 0 Step -1 Dim str As String = dt.datarows(i)("第一列") Dim reg As new System.Text.RegularExpressions.Regex("^[a-zA-Z]+[.0-9]+$") If reg.Ismatch(str) = True Then dt.datarows(i).delete End If Next