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

看论坛中有动态生成菜单的样本，于是看了看代码，发现有一个函数运行老是错误。估计是因为新版本取消code的原因吧

现在的版本没有编译函数了，如果这个函数写成内部函数，应该怎么写啊？我写了好多次，老是提示各种错误，快崩溃了

求老师指点一二

'编译一个生成不同菜单的函数

Functions.Remove("CreateMenu")

Dim Code As String = ""

Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf

Code = Code & "Return menu"

Functions.Add("CreateMenu", Code)

Functions.Complie()

主题：动态生成菜单