以下是引用atmetmicoo在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
next
我想将红色部分代码用自定义函数代替,在新建自定义函数的时候,就不让保存,会提是tabletmp1,dep等未被定义,像这样如何解决?
个人觉得把这整段全封装成函数,效果会更好。整理下思路,形成一个通用的函数,比你单单封装2句话效果更好。