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
加好友 
发短信
Post By：2016/7/20 16:39:00 [只看该作者]
