技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

心得/经验/绝招

获取指定表所有字段名的函数

Private Function GETZD(tbName As String)
Dim cat As New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
For i = 0 To cat.Tables(tbName).Columns.Count - 1
Debug.Print cat.Tables(tbName).Columns.Item(i).Name
Next
End Function

需引用ADOX
用法：GETZD ("表名")

发布人:共享  
分享到：
点击次数：  更新时间：2005-08-16 12:13:39  【打印此页】  【关闭】
上一条：如何调出工作组对话框  下一条：隐藏系统菜单栏


相关文章

热门文章

热门产品