有一个关系集合的问题！

Question

我就是想向过程传入一个集合，让数据集当前记录填充进集合里，而我现在传入的集入是窗体的控件集合！但不局限于些，任何集合都可以！Public Sub FullRecord(colls As Collection, rs As ADODB.Recordset)
  Dim coll As Collection
  
  For i = 0 To rs.Fields.Count - 1
    For Each coll In colls
     If rs.Fields(i).Name = coll.Name Then coll.Value
    Next
    
     
  
  Next
  
End Sub

Answer 1

ObjDataGL.FullRecord Form1.Controls, rs我想把FORM1。CONTROLS集合传进去！

Answer 2

可是我将Form1.Controls传进去就错误!类型不同!

Answer 3

其实，我就纳闷了，，这个Form1.Controls是始终都存在，你干嘛要传进去呢，，
直接用不就行了吗？？？Public Sub FullRecord( rs As ADODB.Recordset)
   dim a as Control
  
  For i = 0 To rs.Fields.Count - 1
    For Each a In Form1.Controls
        If rs.Fields(i).Name = a.Name Then a.Value
    Next
    
     
  
  Next
  
End Sub

Answer 4

其实，如果是传的窗体不同的话，比如，有可能是Form1,Form2.....FormX等你就传窗体呀？？？Public Sub FullRecord(CurForm As Form, rs As ADODB.Recordset)
  dim a as Control
  
  For i = 0 To rs.Fields.Count - 1
    For Each a In CurForm.Controls
        If rs.Fields(i).Name = a.Name Then a.Value
    Next
    
     
  
  Next
  
End Sub

Answer 5

真不知道，你到底做一个什么样子的程序，如果是你所说的，就这样吧，Public Sub FullRecord(MyObj As Object, rs As ADODB.Recordset)这样就不会错了!!!!!!!!!!!!!!!!!!!!!!!!

Answer 6

有事找我联系吧，，我的MSN帐号是  [email protected]