我想定义一个函数,然后希望这个函数值返回一个数组,即返回不低于一个值的函数
我写了一些程序,程序返回错误!
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
本程序的含义为,用户输入表名然后返回该表的所有字段的名称!
请大家帮忙一下啊,如果可以,请写一个详细的小函数给我!谢谢拉!
祝你快乐!

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'程 序 员 : 梁 嘉 辉
'模 块功 能 : 显 示 表 的 所 有 字 段 名
'编 写 时 间 : 7/1/2006
'E - Mail : myfend_liang@yahoo.com.cn
' 欢迎大家给我来信,交流生活趣事.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim g_Connection As ADODB.Connection
Dim g_Recordset As ADODB.Recordset

Private Sub Command1_Click()
Dim FieldCount As String
FieldCount = FieldCountShow("上学期成绩单")
Print FieldCount
End Sub

Private Sub Form_Load()
Dim str_ConnectionString As String
Set g_Connection = CreateObject("ADODB.Connection")
str_ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= D:\vb60实例\mdb\score02.mdb"
g_Connection.Open str_ConnectionString
End Sub

Private Function FieldCountShow(str_TableName As String) As String
Set g_Recordset = CreateObject("ADODB.Recordset")
g_Recordset.Open "SELECT * FROM " & str_TableName, g_Connection, adOpenKeyset, adLockPessimistic
Dim i As Integer
Dim Field_Have As Boolean
Dim FieldCount As String
If g_Recordset.Fields.Count > 0 Then
Field_Have = True
For i = 0 To g_Recordset.Fields.Count - 1
FieldCount = FieldCount & g_Recordset.Fields(i).Name & " "
Next
Else
MsgBox ("该表没有字段")
Field_Have = False
End If
If Field_Have Then
FieldCountShow = FieldCount
Else
FieldCountShow = ""
End If
g_Recordset.Close
End Function

Private Sub Form_Unload(Cancel As Integer)
Set g_Recordset = Nothing
Set g_Connection = Nothing
End Sub

用传地址方法很方便

首先谢谢二楼的答复！
其次三楼的你也应该传个示例给我看看啊！

function get( add as long ) as boolean

add =100

end function

调用 get(a) 后 a 就被赋值100
这只是原理。。。