主题：[求助]

写代码，如

Dim str As String = "云DAB"
Dim s As Integer = 1
Dim e As Integer = 60
For i As Integer = s To e
    If i Mod 10 <> 4 Then
        Dim nr As DataRow = DataTables("表A").addnew
        nr("第一列") = str & format(i, "000")
    End If
Next