[求助]关于一个参数在过程中的传递!

nofuture

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

不太明白你要做什么,参数传递可以用定义全局变量来实现.

gaoqiwen

不是太明白!

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

sgrshh29

他可能是这个意思：

Private Sub cmd_test()
text_test = checkproduct

End Sub



下面的函数作为共有函数

Public Function checkproduct() as string

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

End Sub

nofuture

我解释一下,本身我对过程与过程的参数传递不是很清楚.

我的程序里希望定义一个函数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

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

nofuture

晕~~!没这么复杂的,我唯一不明白的就只有一点,

现在我的问题在于,我怎么能将函数里设置好的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

不好意思~!

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