一个模块问题

Question

你要返回Name的值应该这样定义函数
public function find (tcid as string ) as string然后把name  =rsfind!type
改为：find = rsfind!typeprivate cmdfind_click()
    dim i ,name
    i=trim(txtfind.text)
    name= find(i)
end sub

Answer 1

或者定义
 public name  as string
你就可在任意的地方使用name变量

Answer 2

我认为PUBLIC变量应尽量少用，如果是一个返回值，可以使用函数返回，如果多个返回值，建议采用参数引用的方式返回，就是使用BYREF关键字定义参数，这样参数在函数内的变化就能返回。

Answer 3

改一个函数名试试
Find和VB原有函数有冲突