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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于函数请教

共有4833人关注过本帖树形打印复制链接主题：关于函数请教

atmetmicoo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：531 积分：4155 威望：0 精华：0 注册：2012/11/26 21:54:00

关于函数请教 发帖心情

Post By：2013/7/2 16:16:00 [显示全部帖子]

请教：

在一个事件中有一段代码会反复出现，为了让代码显得简洁，我只想调用某一段编码，我尝试过用添加自定义函数，但是自定义函数必须是完整的代码，而我只想调用某一小段代码，请问有没有其他方式可实现。

atmetmicoo

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：531 积分：4155 威望：0 精华：0 注册：2012/11/26 21:54:00

Post By：2013/7/2 16:27:00 [显示全部帖子]

Bin老师，例如：

dim tabletmp1 as string = "表B"

dim deps as list(of string) = datatables("表a").GetUniqueValues("","仓库")

for each dep as string in deps

tables(tabletmp1).addnew()

tables(tabletmp1).current("仓库”) = dep

我想将红色部分代码用自定义函数代替，在新建自定义函数的时候，就不让保存，会提是tabletmp1，dep等未被定义，像这样如何解决？

atmetmicoo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：531 积分：4155 威望：0 精华：0 注册：2012/11/26 21:54:00

Post By：2013/7/3 8:52:00 [显示全部帖子]

OK，非常感谢二位长老相助

主题：关于函数请教