主题：[求助]自定义函数求助

 

Dim ld As string

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Select 客户名称 From 客户资料 Where 客户名称 = '" & Forms("合同维护").Controls("客户名").text & "' "

ld = cmd.ExecuteScalar()

Return ld

  以上 ld 返回客户名称  
我希望 可以将 Forms("合同维护").Controls("客户名").text   这一段，也就是指定控件的属性值  作为一个参数  
最终的调用方式是 Functions.Execute("函数名称","某一控件的属性值")  应该怎么改？
谢谢。。努力学习中~~

Functions.Execute("函数名称",Forms("合同维护").Controls("客户名").text)

调用我会，我是说把上面的代码在自定义函数中应该怎么去编辑参数？

Dim ld As string

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Select 客户名称 From 客户资料 Where 客户名称 = '" & Args(0) & "' "

ld = cmd.ExecuteScalar()

Return ld

晕。。这就么简单？、我也想到为简单，就是没去试，哎

好像有点问题
dim aa as string = sheet(1,10).Value
dim bb as string =sheet(2,8).Value
Dim Parts合同号() As String = aa.Split(":")
Dim Parts客户名() As String = bb.Split(":")
e.Form.Controls("合同号").Text=parts合同号(1)
MessageBox.Show(Functions.Execute("返回客户ID", " & Parts(1) & " ))

     这里的参数也是用的变量，好像就不对，不能成功返回  消息框返回的全是空            parts(1)  的值 是 客户名  我试过了

MessageBox.Show(Functions.Execute("返回客户ID", Parts(1) ))

就报没有定义 Parts  这个变量的错

您就不能放在您前面的代码后面(6楼代码)测试?

因为这里是需求判断的，我用消息框只是测试一下