Office中国论坛/Access中国论坛

标题: [求助]关于一个参数在过程中的传递! [打印本页]

作者: nofuture 时间: 2006-3-2 20:32
标题: [求助]关于一个参数在过程中的传递!
Option Compare Database

Private Sub cmd_test()
checkproduct (strSQL)
text_test = strSQL
End Sub

Private Sub checkproduct(ByRef strSQL As String)

strSQL = "可选的。表示所有模块的所有其它过程都可访问这个 Sub 过程。"

End Sub

怎样做才能使text_test在点击后显示字符串呢?

作者: zhengjialon 时间: 2006-3-2 20:54
不太明白你要做什么,参数传递可以用定义全局变量来实现.

作者: gaoqiwen 时间: 2006-3-2 20:56
不是太明白!

按上面的理解,不如将strSQL做成全局常量.

作者: sgrshh29 时间: 2006-3-2 20:58
他可能是这个意思：

Private Sub cmd_test()
text_test = checkproduct

End Sub

下面的函数作为共有函数

Public Function checkproduct() as string

checkproduct = "可选的。表示所有模块的所有其它过程都可访问这个 Function 过程。"

End Sub

作者: nofuture 时间: 2006-3-2 21:11
我解释一下,本身我对过程与过程的参数传递不是很清楚.

我的程序里希望定义一个函数checkproduct() ,如果条件是A,那么连接字符串为strSQL1

如果条件为B,那么连接字符串为strSQL2,我知道通过函数内引用窗体控件可以实现,但是我不想这么做(想换种方法!)

窗体的按钮cmd_test点击的时候,可以通过这个函数来检测现在是A还是B,然后将子窗体的来源设置成strSQL1或strSQL2.

现在我的问题在于,我怎么能将函数里设置好的strSQL传递到窗体上,按照我的做法(当然是错误的!),

点击按纽,先执行checkproduct ,然后strSQL被设置为我设定的值,在让text_test显示这个值!

我知道在传递上出问题,但不知道怎么改!

Private Sub cmd_test()
checkproduct
text_test = strSQL
End Sub

sub checkproduct()

strSQL = "可选的。表示所有模块的所有其它过程都可访问这个 Function 过程。"

End Sub

[此贴子已经被作者于2006-3-2 13:25:08编辑过]

作者: sgrshh29 时间: 2006-3-2 21:26
"可以通过这个函数来检测现在是A还是B"? 检测什么是A还是B？窗体？文本框？按钮？其它？strSQL1、strSQL2 来自何处？最好上传，并加以详细说明，否则只好猜一下了。

作者: nofuture 时间: 2006-3-2 21:33
晕~~!没这么复杂的,我唯一不明白的就只有一点,

现在我的问题在于,我怎么能将函数里设置好的strSQL传递到窗体上,按照我的做法(当然是错误的!),

点击按纽,先执行checkproduct ,然后strSQL被设置为我设定的值,在让text_test显示这个值!

我知道在传递上出问题,但不知道怎么改!

Private Sub cmd_test_CLICK()
checkproduct
text_test = strSQL
End Sub

sub checkproduct()

strSQL = "ABCEDADSFASDFASDFASDFASDF"

End Sub

[此贴子已经被作者于2006-3-2 13:41:46编辑过]

作者: nofuture 时间: 2006-3-2 21:45
不好意思~!

偶犯了个超级低级的错误!按钮没加click事件~!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)