关于学习动态代码中的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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) ‘动态添加一个函数，名称为nav，代码体就是上面合并的字符串
Functions.Complie ‘编译这个函数，编译后就可以调用这个函数了

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