主题：求教 代码执行效率问题

SystemReady = False

For Each dr1 As DataRow In DataTables("结果").DataRows
    Dim dr As DataRow
    dr = DataTables("配置").Find("[内容] like '*" & dr1("PON口") & " ont " & dr1("ONUID") & " gemport 1*'")
    If dr IsNot Nothing Then
        Dim nr() As String
        nr = dr("内容").split(" ")
        dr1("PVLAN") = nr(4)
        dr1("CVLAN") = nr(13)
    Else
        dr1("PVLAN") = Nothing
        dr1("CVLAN") = Nothing
    End If
Next

SystemReady = True