函数值返回数组问题的请教
我想定义一个函数,然后希望这个函数值返回一个数组,即返回不低于一个值的函数我写了一些程序,程序返回错误!
Public Function table(tablename As String) As String
Dim x, y, z As Integer
rs.Open "select * from" & Space(1) & tablename, con, 1, 3
x=1
for x=1 to rs.fields.count
table(x)=rs.fields(x).name
next
End Function
本程序的含义为,用户输入表名然后返回该表的所有字段的名称!
请大家帮忙一下啊,如果可以,请写一个详细的小函数给我!谢谢拉!
祝你快乐!
