Recordset 当值返回

[yangjinCK]

Public Function GetList(ByVal sql As String)
   
   
   Dim rs As New Recordset
   FindBySql sql, rs
   GetList = rs
  
End Function

这样怎么不对啊，请指教。

[dbcontrols]

Public Function GetList(ByVal sql As String) As New Recordset

Dim rs As New Recordset
  FindBySql sql, rs
  Set GetList = rs
End Function

[yangjinCK]

[Quote=引用 1 楼 dbcontrols 的回复:]
Public Function GetList(ByVal sql As String) As New Recordset

Dim rs As New Recordset
FindBySql sql, rs
Set GetList = rs
End Function
[/Quote]

呵呵
就这么简单啊

[molong9bian]

使用 function 返回值 后面要带上类型

[神马被哪个妞占用了呢]

友情提醒：毫不犹豫的结帖，慷慨激昂的给分

If 本楼给分 Then
    楼主木有小jj
End If

[yangjinCK]

[Quote=引用 4 楼 yiguangqiang88 的回复:]
友情提醒：毫不犹豫的结帖，慷慨激昂的给分


VB code
If 本楼给分 Then
楼主木有小jj
End If
[/Quote]

If 你有小jj Then
你是草包
end If

[li163]

[Quote=引用 1 楼 yangjinck 的回复:]
基本功不扎实，还需苦练
[/Quote]

[yangjinCK]

[Quote=引用 7 楼 li163 的回复:]
引用 1 楼 yangjinck 的回复:
基本功不扎实，还需苦练
[/Quote]

知道怎么改VB那个icon图标不

[神马都能聊]

[Quote=引用 8 楼 yangjinck 的回复:]
引用 7 楼 li163 的回复:
引用 1 楼 yangjinck 的回复:
基本功不扎实，还需苦练


知道怎么改VB那个icon图标不
[/Quote]
在From的属性对话框里找到Icon,右侧的一栏里会出现一个按钮,按钮的文本是...,选择你所需的图标.

[贝隆]

http://download.csdn.net/source/1498324

[yangjinCK]

[Quote=引用 4 楼 yiguangqiang88 的回复:]
友情提醒：毫不犹豫的结帖，慷慨激昂的给分


VB code
If 本楼给分 Then
楼主木有小jj
End If
[/Quote]

If 你有小jj Then
你是草包
end If