主题：如何编写带参数的内部函数？

例如：我编写了一个带参数的内部函数如下：

Dim Arg1() As String    'Arg1(0)=字符串1如“你好”，Arg1(1)=字符串2，如“我也很好”
Dim Arg2 As String   'Arg2 为字符串3 如“你能来吗？”

MessageBox.Show(Arg1(0) & Arg1(1) & Arg2)

return

 

调用部分为：

 

Functions.Execute("New_TarifFileListView"，"你好"， "我也很好", "你能来吗？")

 

这样调用有问题。请问调用部分应该如何写才正确？再次感谢。刘海屋

 

MessageBox.Show(Args(0) & Args(1) & Args(2))

http://www.foxtable.com/help/topics/1486.htm

谢谢您的帮助。可能我的问题未提清楚。下面是个例子：

         Dim Arg As String = "New_CommuW"
         Functions.Execute("New_EmailwithAttachment", Arg)

错误提示：

         自定义函数 New_EmailWithAttachments 执行出错，错误信息如下：

         ....

         System.ArgumentNULLException值不能为空

         参数名：Key

          ....

希望能得到您的进一步帮助。谢谢。

 

刘海屋

 

 

 

 你的函数内容怎么写？

dim str() as string = {"你好","我也很好"}

 

Functions.Execute("New_TarifFileListView"，str, "你能来吗？")

自定义函数错了，不能重复定义 args

 

直接：

 

MessageBox.Show(Arg1(0) & Arg1(1) & Arg2)

return

 

即可

你好。我写全一个简化的自定义函数和其调用如下：

1。自定义函数(函数名=New_EmailWithNoAttachment）：

    

Dim New_EmailWithNoAttachment() As String = Args(2)

Dim Pnl2 As WinForm.Panel = Forms(Args(0)).Controls(Args(1))
Pnl2.Visible = True

 

2. 调用程序为：

  

Functions.Execute(("New_EmailwithNoAttachment"), "New_CommuW", "Pnl2")

 

3。错误信息为：

    自定义函数“New_EmailWithNoAttachment"执行出错，错误信息如下：

      System.IndexOutOfRangeException索引超出了数组界限

      在UserCode.AE.....Azw(Objet[]Args)

 

请帮助分析错误在哪里，万分感谢。

刘海屋

1。自定义函数(函数名=New_EmailWithNoAttachment）：

    

Dim New_EmailWithNoAttachment() As String = Args(2)   ’这里调用的是第三个参数

Dim Pnl2 As WinForm.Panel = Forms(Args(0)).Controls(Args(1))
Pnl2.Visible = True

 

2. 调用程序为：

  

Functions.Execute(("New_EmailwithNoAttachment"), "New_CommuW", "Pnl2")   ‘这里传人的只有两个参数

 

3。错误信息为：             

    自定义函数“New_EmailWithNoAttachment"执行出错，错误信息如下：

      System.IndexOutOfRangeException索引超出了数组界限

      在UserCode.AE.....Azw(Objet[]Args)

 

请帮助分析错误在哪里，万分感谢。

刘海屋

我的问题其实很简单。就是：FoxTable中带参数（1 个以上的字符串参数）的内部函数的写法，和调用程序的句法。简单写一个小例子即可。谢谢