主题：关于学习动态代码中的问题

老师好！

     正在学习帖子上 的动态代码，有段编译函数的代码能不能请老师注释下，有点迷糊不懂！特别是标红部分，谢谢！

Dim code As String
code= " dim name as string = args(0) " & vbcrlf
code= code & " Select Case name " & vbcrlf
For Each dr As DataRow In DataTables("导航").DataRows
    If dr("代码")> ""  Then
        code = code & " case " & """" & dr("名称") & """" & vbcrlf
        code = code & dr("代码")  & vbcrlf
    End If
Next
code= code & "end  Select  " & vbcrlf
Functions.Remove("nav")
Functions.Add("nav",Code)
Functions.Complie