简单明了的问题，Function中的参数传递过来后，在过程中能否当变量使用？？？

[fredtaylor]

如：

Function a(name)
    a = rs(a)
End Function

Call a("ArtTitle")

就是一个读取数据库字段的问题，参数name怎样才能既保证其值，又能在过程中当做一个变量使用。。。

如果直接这样不行，那么有什么好的方法？？

[fredtaylor]

[Quote=引用楼主 fredtaylor 的帖子:]
如：

Function a(name)
    a = rs(a)
End Function

Call a("ArtTitle")

[/Quote]

不好意思，上面代码写错了。应该是这样的：

Function a(name)
    name = rs(name)
End Function

Call a("ArtTitle")

[ACMAIN_CHM]

可以啊

[ACMAIN_CHM]

语法上，编译上没有问题，但逻辑上不理解你为什么需要这样做。

[hookee]

Dim rs 

Function a(name)
    a = rs(name).value
End Function

a "ArtTitle"

b = a("ArtTitle") 

Function a(name)
   Set a = rs(name)
End Function
set b  = a("ArtTitle")

[fredtaylor]

[Quote=引用 4 楼 hookee 的回复:]
VBScript code
Dim rs

Function a(name)
a = rs(name).value
End Function

a "ArtTitle"

b = a("ArtTitle")

Function a(name)
Set a = rs(name)
End Function
set b = a("ArtTitle")
[/Quote]


我这样做主要是为了读取多个字段，定义一个数组来读取多个字段，并赋值给变量。

Function data(a,b,c,d,e,f,g)
ccc = rs(a)&"|"&rs(b)&"|"&rs(c)&"|"&rs(d)
End Function

这样可以吗？