Question

VB.net 如何编写一个可以返回数组的函数（过程）？

如：登录窗口，用户名为下列表框，里面的数据项需通过一个函数来完成添加，（因为它地方可也需要用到这个功能，所以选择用函数来实现）

Answer 1

public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function

追问

附代码，请帮忙修改

追答

public function CombList(mytj As String) As String()
dim cmd as new oledbcommand(mytj,conn)
'如果用泛型：
dim lr as new list(of string)
''如果不用泛型
'dim lr as new arraylist()

dbreader=cmd.executereader
while dbreader.read
lr.add dbreader.getstring(0)
end while
conn.close()
dbreader.close()
'如果用泛型：
return lr.toarray()
''如果不用泛型：
'return lr.toarray(GetType(String))
End function

调用：
opendata("reg_user","")
tj="select * from reg_user"
dim arraystring as string() = comblist(tj)
for each s as string in arraystring
cmbuserid.items.add(s)
next