以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自定义函数求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4538)
--  作者：roy78
--  发布时间：2009/10/9 21:07:00
--  [求助]自定义函数求助
 

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("函数名称","某一控件的属性值")  应该怎么改？
谢谢。。努力学习中~~
--  作者：狐狸爸爸
--  发布时间：2009/10/9 21:35:00
--  
Functions.Execute("函数名称",Forms("合同维护").Controls("客户名").text)
--  作者：roy78
--  发布时间：2009/10/9 21:37:00
--  
调用我会，我是说把上面的代码在自定义函数中应该怎么去编辑参数？
[此贴子已经被作者于2009-10-9 21:38:09编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/10/9 21:39:00
--  

Dim ld As string

Dim cmd As New SQLCommand

cmd.C

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

ld = cmd.ExecuteScalar()

Return ld
--  作者：roy78
--  发布时间：2009/10/9 21:42:00
--  
晕。。这就么简单？、我也想到为简单，就是没去试，哎
[此贴子已经被作者于2009-10-9 21:42:24编辑过]
--  作者：roy78
--  发布时间：2009/10/9 22:13:00
--  
以下是引用狐狸爸爸在2009-10-9 21:39:00的发言：

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)  的值 是 客户名  我试过了
[此贴子已经被作者于2009-10-9 22:14:01编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/10/9 22:22:00
--  
MessageBox.Show(Functions.Execute("返回客户ID", Parts(1) ))
--  作者：roy78
--  发布时间：2009/10/9 22:23:00
--  
就报没有定义 Parts  这个变量的错
--  作者：程兴刚
--  发布时间：2009/10/9 23:28:00
--  
以下是引用roy78在2009-10-9 22:23:00的发言：
就报没有定义 Parts  这个变量的错


您就不能放在您前面的代码后面(6楼代码)测试?
--  作者：roy78
--  发布时间：2009/10/9 23:40:00
--  

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