<![CDATA[设计碎片

<![CDATA[设计碎片 - VB]]> http://blog.edotpower.com/ zh-cn PBlog2 v2.4 设计碎片 http://blog.edotpower.com/images/logos.gif http://blog.edotpower.com/ 设计碎片 http://blog.edotpower.com/default.asp?id=5 <![CDATA[vb组件返回数组函数例子]]> star520dust@163.com(stardust) Wed,05 Dec 2007 17:43:19 +0800 http://blog.edotpower.com/default.asp?id=5     Dim frs As New adodb.Recordset
    frs.Open "select * from stone_usermsg where id=" & id, Conn, 1, 1
    Return_usermsg = Array(Trim(frs("msg_title")), Trim(frs("msg_content")), Trim(frs("msg_user")), Trim(frs("msg_fromuser")), Trim(frs("msg_addtime")), Trim(frs("msg_isview")), Trim(frs("msg_isback")))
    frs.Close
    Set frs = Nothing

End Function

引用时：rs=组件名称.Return_usermsg(id)
               msg_title=rs（0）
       ...]]>