你的代码还是有点问题，我改过来后终于行了，谢谢。
Dim lst As new List(of Long)
Dim i As Long = 0
Dim p1 As String = "0$"
Dim p2 As String = "^[0,2]+$"
Dim p3 As String = "^2+$"
Dim p4 As String = "0[2]+$"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Do While lst.Count < 2020
Dim i2 As String= i.Tostring
Dim k As Long = i2.length
If r.IsMatch(i2,p2) Then
lst.Add(i)
If r.IsMatch(i2,p1) Then
i += 2
ElseIf r.IsMatch(i2,p4) Then
Dim s2 As String = System.Text.RegularExpressions.Regex.replace(i2,p4,"")
i=clng(s2 & "2".PadRight(k-s2.Length,"0"))
ElseIf r.IsMatch(i2,p3) Then
i=clng("2".PadRight(k+1,"0"))
Else
i += 18
End If
Else
i += 2
End If
Loop
DataTables("表A").StopRedraw
Dim dr As DataRow
For a As Integer = 0 To lst.Count - 1
If a < DataTables("表A").DataRows.Count
dr = DataTables("表A").DataRows(a)
Else
dr = DataTables("表A").AddNew
End If
dr("鼠数") = lst(a)
Next
DataTables("表A").ResumeRedraw
[此贴子已经被作者于2020/2/7 17:52:13编辑过]
加好友 
发短信
Post By：2020/2/7 17:52:00 [只看该作者]
