'
'
'原创: 许仙; qq:19030300 主页:http://hot1kang1.126.com
'转载请保持信息的完整性 谢谢
'——————————————————————————————————
Public Function FindFiled(rs As Recordset)
Dim d
For Each d In rs.Fields
Debug.Print d.Name
Next
End Function
'
'原创: 许仙; qq:19030300 主页:http://hot1kang1.126.com
'转载请保持信息的完整性 谢谢
'——————————————————————————————————
Public Function FindFiled(rs As Recordset)
Dim d
For Each d In rs.Fields
Debug.Print d.Name
Next
End Function